<% Response.Write("

Check for Duplicate Printer Machines

") Dim strSQL, rs ' Find duplicates by machinenumber strSQL = "SELECT machinenumber, COUNT(*) as cnt " &_ "FROM machines " &_ "WHERE machinenumber LIKE '%-PRINTER' " &_ "GROUP BY machinenumber " &_ "HAVING COUNT(*) > 1 " &_ "ORDER BY cnt DESC, machinenumber" set rs = objConn.Execute(strSQL) Response.Write("

Duplicate Machine Numbers:

") Response.Write("") Response.Write("") Dim hasDuplicates hasDuplicates = False While Not rs.EOF hasDuplicates = True Response.Write("") Response.Write("") Response.Write("") Response.Write("") rs.MoveNext Wend Response.Write("

Machine Number	Count
" & Server.HTMLEncode(rs("machinenumber") & "") & "	" & rs("cnt") & "

") If Not hasDuplicates Then Response.Write("

No duplicates found!

") End If rs.Close ' Show all printer machines grouped Response.Write("

All Printer Machines (grouped by name):

") strSQL = "SELECT machinenumber, COUNT(*) as cnt, GROUP_CONCAT(machineid) as ids " &_ "FROM machines " &_ "WHERE machinetypeid = 15 " &_ "GROUP BY machinenumber " &_ "ORDER BY machinenumber" set rs = objConn.Execute(strSQL) Response.Write("") Response.Write("") While Not rs.EOF Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") rs.MoveNext Wend Response.Write("

Machine Number	Count	Machine IDs
" & Server.HTMLEncode(rs("machinenumber") & "") & "	" & rs("cnt") & "	" & Server.HTMLEncode(rs("ids") & "") & "

") rs.Close objConn.Close %>