<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
function CheckUser(CustomerNo, PIN, Branch)
dim fs,f,ListToReturn, CurrentLine, S
if Branch <> "" then
set fs = Server.CreateObject("Scripting.FileSystemObject")
set f = fs.OpenTextFile(Server.MapPath("onlineappointments/" & Branch & "/Data/Customer.ini"), 1)
CheckUser = False
do while (f.AtEndOfStream = false) and (CheckUser = false)
S = f.ReadLine
CurrentLine = Split(S, "=", -1, 1)
if (LBound(CurrentLine) = 0) and (UBound(CurrentLine) = 1) then
if (CurrentLine(0) = CustomerNo) and (CurrentLine(1) = PIN) then
CheckUser = True
end if
end if
loop
end if
end function
If CheckUser(Request.Form("login"),Request.Form("password"),Request.Form("branch")) = True Then
Session("Branch") = Request.Form("branch")
Session("CustomerNo") = Request.Form("login")
Response.redirect "oa_customerdetails.asp?CID=" & Session("CustomerName")
End If
%>
Book an Appointment Online
Step 1 of 4 - Login
Welcome to our online appointment booking system. Booking an appointment is very simple - just follow the instructions below. Of course, if you need any help,
then please contact us and we will be happy to assist you.
Before you can use the online booking facility, you must have a customer number and PIN number. To get this information, please ask us to set you up with an account.
We can do this next time you are in the salon or alternatively, you can phone us on 0161 773 0101.
<%
if (Request.Form("login") <> "" or Request.Form("password") <> "") then
Response.Write("We are sorry but we could not locate your customer details.
")
Response.Write("Please make sure your customer number and PIN number are correct. ")
Response.Write("If you still have problems, please contact us for help.
")
end if
%>
