% Set DataConnection = Server.CreateObject("ADODB.Connection") DataConnection.Open "DBQ=" & Server.Mappath("database/staff.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set cmdDC = Server.CreateObject("ADODB.Command") cmdDC.ActiveConnection = DataConnection SQL = "SELECT * FROM client_info WHERE client = " & Request.Form("client_no") cmdDC.CommandText = SQL Set RecordSet = Server.CreateObject("ADODB.Recordset") RecordSet.Open cmdDC, , 0, 2 If RecordSet.EOF Then RecordSet.Close Set RecordSet = Nothing Set cmdDC = Nothing DataConnection.Close Set DataConnection = Nothing Response.Redirect "staff_login2.html" Else If (ucase(RecordSet.Fields("name")) <> ucase(Request.Form("name"))) Then RecordSet.Close Set RecordSet = Nothing Set cmdDC = Nothing DataConnection.Close Set DataConnection = Nothing Response.Redirect "staff_login2.html" End If End If RecordSet.Close Set RecordSet = Nothing Set cmdDC = Nothing DataConnection.Close Set DataConnection = Nothing %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||