<% Response.Write("

Production Printer Machines Count

") Dim strSQL, rs ' Count printer machines strSQL = "SELECT COUNT(*) as cnt FROM machines WHERE machinetypeid = 15" set rs = objConn.Execute(strSQL) Response.Write("

Machines with Printer type (machinetypeid=15): " & rs("cnt") & "

") rs.Close ' Count machines with -PRINTER suffix strSQL = "SELECT COUNT(*) as cnt FROM machines WHERE machinenumber LIKE '%-PRINTER'" set rs = objConn.Execute(strSQL) Response.Write("

Machines with '-PRINTER' suffix: " & rs("cnt") & "

") rs.Close ' Show sample Response.Write("

Sample Printer Machines:

") strSQL = "SELECT m.machineid, m.machinenumber, m.alias, c.address as ipaddress " &_ "FROM machines m " &_ "LEFT JOIN communications c ON m.machineid = c.machineid AND c.comstypeid = 1 " &_ "WHERE m.machinetypeid = 15 " &_ "ORDER BY m.machineid DESC LIMIT 10" set rs = objConn.Execute(strSQL) Response.Write("") Response.Write("") While Not rs.EOF Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") rs.MoveNext Wend Response.Write("

ID	Machine Number	Alias	IP
" & rs("machineid") & "	" & Server.HTMLEncode(rs("machinenumber") & "") & "	" & Server.HTMLEncode(rs("alias") & "") & "	" & Server.HTMLEncode(rs("ipaddress") & "") & "

") rs.Close objConn.Close %>