<% @LANGUAGE = VBScript %> <% Option Explicit Dim oConn, oRS, sQ, sConnection, sRV Set oConn = Server.CreateObject("ADODB.Connection") sConnection = "Driver={ODBC Driver 11 for SQL Server};Server=TOSHIBA-P500\SQLGENESIS;DSN=mssql_limsorder-GENESIS.dsn;UID=limsorder;PWD=Genesis1;Database=limsorder" oConn.Open sConnection Set oRS=Server.CreateObject("ADODB.Recordset") Set oRS.ActiveConnection = oConn %> OPTIMUM ANALYTICAL and CONSULTING, LLC
__________________________________________________________________________

CustomerID

CompanyCode

Password

Please enter your Customer ID, Company Code, and Password first.





<% oConn.Close Set oRS = Nothing Set oConn = Nothing %>