% Dim DSN,LoginRS, strResponse, objConn DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("\data_src\stock.mdb") & ";" & "Persist Security Info=False;" if Request("machineNo") <> "" and Request("accountNo") <> "" then 'OPen connection Set objConn = server.CreateObject("ADODB.Connection") objConn.Open(DSN) 'Test the machineno in the database strSQL = "select * from ARMASTER, EQMASTER where CustCode = '" & Request("accountNo") & "' and EquipID = " & Cint(Request("machineNo")) Set LoginRS = Server.CreateObject("ADODB.Recordset") Set LoginRS = objConn.Execute(strSQL) if LoginRS.Eof = false then 'Test the account no against the machine number 'if valid Session("CustID") = LoginRS("ARMaster.CustID") Session("equipID") = Request("machineNo") Response.Redirect("myxerox.asp") else 'else if not valid strResponse = "sorry, we have no match for that combination" End if End if %>
![]() |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
(c) Xerox Shop Sunshine Coast 2005 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||