<%@ Language=VBScript %> <% Option Explicit Dim objConn, rs %> Batch Print USB Barcode Labels <% Dim strSQL strSQL = "SELECT m.machineid, m.serialnumber, m.alias FROM machines m WHERE m.machinetypeid = 44 AND m.isactive = 1 ORDER BY m.serialnumber ASC" Set rs = objConn.Execute(strSQL) %>

Batch Print USB Barcode Labels

Select USB devices to print (72 labels per page - 6 ULINE labels x 12 mini-labels each, cut after printing):

<% Dim displayName Do While Not rs.EOF displayName = rs("serialnumber") & "" %>
, '<%=Server.HTMLEncode(Replace(rs("serialnumber") & "", "'", "\'"))%>', '<%=Server.HTMLEncode(Replace(rs("alias") & "", "'", "\'"))%>')"> ">
<% rs.MoveNext Loop rs.Close Set rs = Nothing objConn.Close %>
Selected: 0 USB devices (0 pages)
Back to USB Devices