Print Badge

<%@ Language=VBScript %> <% Option Explicit Dim objConn, rs %> Print Badge <% Dim machineid, strSQL, machineNumber, modelName, machineImage machineid = Request.QueryString("machineid") If machineid = "" Then machineid = "0" If Not IsNumeric(machineid) Then machineid = "0" strSQL = "SELECT m.machinenumber, mo.modelnumber, mo.image FROM machines m LEFT JOIN models mo ON m.modelnumberid = mo.modelnumberid WHERE m.machineid = " & CLng(machineid) Set rs = objConn.Execute(strSQL) If rs.EOF Then machineNumber = "NOT FOUND" modelName = "" machineImage = "" Else machineNumber = rs("machinenumber") & "" modelName = rs("modelnumber") & "" machineImage = rs("image") & "" End If rs.Close Set rs = Nothing objConn.Close %>

<%=Server.HTMLEncode(modelName)%>

<% If machineImage <> "" Then %>

<% End If %>

*<%=Server.HTMLEncode(machineNumber)%>*