Login
<%
'================ Logging out of session
If lcase(request("Logout")) = "logout" Then
Call LogOffUser
response.redirect Dirpath & "login.asp"
End IF
If lcase(request("Login")) = "login" Then%>
<%
If CheckLogin(Request("UserName"),Request("Password")) Then
response.redirect DirPath & AdminPath & "admin.asp"
else
response.redirect DirPath & "login.asp"
End If
End IF
'================ check if session variable is empty
If Session("user") = "" Then%>
<%response.write Session("error")
Else
If ValidUser(10) Then
response.redirect DirPath & AdminPath & "admin.asp"
Else
response.Redirect DirPath & "performer_docs.asp"
End If
End If
%>
|