<% ' ----- Get Passed Variables strStatus = Request("Status") ' ----- Request Login Data If strStatus = "1" Then strUsername = LCASE(TRIM(Request("Username"))) ' Adjustors Name strPassword = LCASE(TRIM(Request("Password"))) ' Policy Number strQuery = "SELECT * FROM Customer WHERE Policy = '" & strPassword & "'" call Database_Query If objRec.EOF Then strStatus = "1" Else Do Until objRec.EOF If strUsername = objRec("AdjusterFirstName") & " " & objRec("AdjusterLastName") Then strCustomerID = objRec("CustomerID") strStatus = "2" End If objRec.MoveNext Loop End If objRec.Close End If ' ----- Grant Access or show Login Screen -------------------------------------------------------- If strStatus = "2" Then ' If login was successful then do this. Session("WilliamsClient") = "1" Session.Timeout = 30 Response.Redirect "client_customer.asp?CustomerID=" & strCustomerID Else ' If login failed then do this. %> Williams & Partners - Disclaimer
.



Disclaimer

The content of this web site and any attached or referenced pages has been written or gathered by
Williams & Partners for information purposes only.

Caution:  Do not use the “Submit a Claim” interface to send any privileged or confidential information. 
Internet messages can be intercepted.

Unauthorized use of the information on this website is strictly prohibited
and should be used for information purposes only.

I understand the terms of use