<% dim firstname, surname, email, password, mobile, company, birthday, loginButton username=TRIM(Request("firstname")) password=TRIM(Request("surname")) password=TRIM(Request("email")) password=TRIM(Request("password")) password=TRIM(Request("mobile")) password=TRIM(Request("company")) password=TRIM(Request("birthday")) logButton=Request("loginButton")="Login" if logButton then Dim Con, sql, rec set Con = Server.CreateObject("ADODB.Connection") Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") 'Select the record matching the firstname. sql = "SELECT * FROM tblusers WHERE UCase(firstname)=' "& UCase(firstname) & "' AND UCase(password)=' " & UCase(password) & " ' " set rec=Con.execute(sql) 'If no match found, EOF is not true. if NOT rec.EOF then Response.Redirect("security.htm") 'Change to page redirect to after login else blankError="Invalid useremail." 'EOF is true, no match found. end if end if %> New Page 1
Please supply us with you login details
 

Clients receive access to online reporting and data management systems on request. Should you wish to gain access to this facility please click on the Request Access link below.

Please log in:
 
">
E-mail Address
Password
<% if blankError<>"" then Response.Write("
"&blankError&"
") end if %>

If this is the first time you are logging on, type your

username and you will be prompted for a password.

Request Access