<%@ Language=VBScript %> <% Option Explicit Dim objConn, rs %> Print USB Barcode Label <% Dim serialNumber, usbAlias, machineid, strSQL serialNumber = Request.QueryString("serial") machineid = Request.QueryString("machineid") If machineid <> "" And IsNumeric(machineid) Then strSQL = "SELECT serialnumber, alias FROM machines WHERE machineid = " & CLng(machineid) & " AND machinetypeid = 44" Set rs = objConn.Execute(strSQL) If Not rs.EOF Then serialNumber = rs("serialnumber") & "" usbAlias = rs("alias") & "" End If rs.Close Set rs = Nothing End If objConn.Close serialNumber = Trim(serialNumber) If serialNumber = "" Then serialNumber = "00000000" %>

USB Barcode Label

Serial: <%=Server.HTMLEncode(serialNumber)%> <% If usbAlias <> "" Then %> (<%=Server.HTMLEncode(usbAlias)%>)<% End If %>

Back to USB Devices

Prints on ULINE S-20135 label sheet (3"x3" cells). Each cell holds up to 12 mini-labels (1"x0.75").