|
Client Login
<%
if request.form("dologout") = "true" then
Session("userlogin")=""
response.write " You have successfully logged out "
end if
function ValidateLogin(xuserID,xpassword)
Dim FSObject
Dim LoginFile
Set FSObject = Server.CreateObject("Scripting.FileSystemObject")
Set LoginFile = FSObject.OpenTextFile(Server.MapPath(txtName),1)
ValidateLogin = False
While Not LoginFile.AtEndOfStream
line=LoginFile.ReadLine
lines_txt = Split(line,"|")
c_xuserID = lines_txt(0)
c_xpassword = lines_txt(1)
redirectpath = lines_txt(2)
if xuserID=c_xuserID and c_xpassword=xpassword Then
Session("userlogin")=c_xuserID
response.redirect siteroot & vt_auth_folder & "/" & redirectpath
End if
Wend
LoginFile.Close
Set LoginFile = Nothing
Set FSObject = Nothing
End function
Dim xError
If Request.form("Login").Count <> 0 Then
user=Request.Form("userid")
pass=Request.Form("userpass")
if ValidateLogin(user,pass) = False Then
xError = " Invalid User ID or Password
Please re-enter your details "
End if
End if
%>
Welcome to the client login facility which is free and available to all clients with on-going matters. This service enables you to access information on your file at a time convenient to you on-line via our password protected secure system.
Please login using the username and password supplied to you.
|
|
|