%@ 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
<%
%>
<%
%>