Print QR Code

<%@ Language=VBScript %> <% Option Explicit Dim objConn, rs %> Print QR Code <% Dim printerid, strSQL, csfName, winName, ipAddr, modelName printerid = Request.QueryString("printerid") If printerid = "" Then printerid = "0" If Not IsNumeric(printerid) Then printerid = "0" strSQL = "SELECT p.printercsfname, p.printerwindowsname, p.ipaddress, mo.modelnumber FROM printers p LEFT JOIN models mo ON p.modelid = mo.modelnumberid WHERE p.printerid = " & CLng(printerid) Set rs = objConn.Execute(strSQL) If rs.EOF Then csfName = "NOT FOUND" winName = "" ipAddr = "" modelName = "" Else csfName = rs("printercsfname") & "" winName = rs("printerwindowsname") & "" ipAddr = rs("ipaddress") & "" modelName = rs("modelnumber") & "" End If rs.Close Set rs = Nothing objConn.Close %>

Position:

<%=Server.HTMLEncode(modelName)%>

<%=Server.HTMLEncode(csfName)%>

<% If winName <> "" Then %>

<%=Server.HTMLEncode(winName)%>

<% End If %> <% If ipAddr <> "" Then %>

<%=Server.HTMLEncode(ipAddr)%>

<% End If %>