Add USB Device - Scan Serial Number

Back to USB Devices

<% ' Check for error messages Dim errorType, errorSerial, errorMsg errorType = Request.QueryString("error") errorSerial = Request.QueryString("serial") errorMsg = Request.QueryString("msg") If errorType <> "" Then If errorType = "invalid" Then Response.Write("") ElseIf errorType = "db" Then Response.Write("") End If Else Response.Write("") End If %>

Serial Number

Generate

Name/Label (optional)

Business Unit (optional) -- Select Business Unit -- <% Dim rsBU, strBUSQL strBUSQL = "SELECT businessunitid, businessunit FROM businessunits WHERE isactive = 1 ORDER BY businessunit ASC" Set rsBU = objConn.Execute(strBUSQL) While Not rsBU.EOF Response.Write("" & Server.HTMLEncode(rsBU("businessunit") & "") & "") rsBU.MoveNext Wend rsBU.Close Set rsBU = Nothing %>

Add USB Device