<%@ LANGUAGE="VBSCRIPT" %> '<% 'Session("User") = Request.ServerVariables("REMOTE_HOST") 'Dim DS() 'Dim PN() 'Dim GC() 'Dim MD() 'Dim oConn 'Dim strSQL 'Dim oRs 'Dim RecordCount 'Dim i 'RecordCount = 0 'Set oConn = Server.CreateObject("ADODB.Connection") 'oConn.Open "SERNO" 'strSQL = "SELECT * FROM SerialPCDC" 'Set oRs = oConn.Execute(strSQL) 'Do While Not oRs.EOF ' ReDim Preserve DS(RecordCount) ' DS(RecordCount) = oRs("Description") ' ReDim Preserve GC(RecordCount) ' GC(RecordCount) = oRs("PCDC") ' ReDim Preserve MD(RecordCount) ' MD(RecordCount) = oRs("Model") ' ReDim Preserve PN(RecordCount) ' PN(RecordCount) = oRs("PartNumber") ' RecordCount = RecordCount + 1 ' oRs.MoveNext 'Loop ' oConn.Close ' Set oRs=Nothing ' Set oConn=Nothing %> Wyse Technology - Technical Support Help <% %> <% %>
Wyse Technology
Gobal Leader in Thin Computing
Wyse Global Sites | Search 
Redirecting