<% function CheckUser(CustomerNo, PIN, Branch) dim fs,f,ListToReturn, CurrentLine if Branch <> "" then set fs = Server.CreateObject("Scripting.FileSystemObject") set f = fs.OpenTextFile(Server.MapPath(Branch & "/Data/Customer.ini"), 1) CheckUser = False do while f.AtEndOfStream = false CurrentLine = Split(f.ReadLine,"=") if (CurrentLine(0) = CustomerNo) and (CurrentLine(1) = PIN) then CheckUser = True end if loop end if end function myVal = CheckUser(Request.Form("login"),Request.Form("password"),"TestShop") If myVal = True Then Session("Branch") = "TestShop" Session("CustomerNo") = Request.Form("login") Response.redirect "customerdetails.asp?CID=" & Session("CustomerName") End If %>
 

Four simple steps to book online. Simply give us a few contact details then choose your the date, time and type of appointment.

You will then recieve through e-mail confirmation within moments. Getting together with Blue Lizard has never been easier.
 
  You must have a customer number and PIN to use this service.

Please contact Blue Lizard to obtain these. Click Here.
 
<% if (Request.Form("login") <> "" or Request.Form("password") <> "") then Response.Write("We are sorry but we could not locate your customer details.

Please make sure your customer number and PIN number are correct.

If you sill have problems please contact us for help.") end if %>
Please Log In :
   
Your customer number:
Your PIN.
 
<% dim FolderName set fs = Server.CreateObject("Scripting.FileSystemObject") 'Response.Write(Server.MapPath("./"))' set MainFolder = fs.GetFolder(Server.MapPath("./")) set BranchFolders = MainFolder.SubFolders for Each objFolder in BranchFolders FolderName = UCase(objFolder.Name) if (FolderName <> "IMAGES") then Response.Write("" ) end if next %>  
 
 
all rights reserved © 2007 | contact fitness | contact tanning