%@ CodePage=65001 Language="VBScript"%>
<% GetConfigVariables
SetupDatabase
dim sResult, bMenu
bMenu=Request("Menu")
If bMenu<>"Yes" then
sPostUsername = request.form("postusername")
sPostPassword = request.form("postpassword")
Else
sPostPassword=Session("PW")
sPostUserName=Session("Username")
End If
sRedirect = request("redirect")
'Response.Write(sPostUserName & "--" & sPostPassword & "--" & sRedirect):Response.End
if request("password") = "assigned" then
sError = sError & "Thank you. Your password will be assigned and e-mailed to you.
If you do not recieve your e-mail within 24 hours, contact the BBS Administrator.
"
elseif request("password") = "authorization" then
sError = sError & "Thank you. You will be contacted once your account has been authorized.
"
end if
if request("error") = "admin" then
sError = sError & "Sorry, Administrator level security privileges required.
"
end if
if request("error") = "restricted" then
sError = sError & "Sorry, open to authorized members only. Please contact an Administrator if this is an error.
"
end if
if request("error") = "needregistration" then
sError = sError & "Not Yet Registered? Click Register below.
Recently Registered? Your account may be pending authorization.
"
end if
if request("action") = "logon" then
CheckUsername sPostUsername, sPostPassword, sResult
'Response.Write sResult:Response.End
if sResult = "inactive" then
' Logon failed
sError = sError & "Sorry, Unauthorised Account.
Recently Registered? Your account may be pending authorization.
Contact the Administrator if this is an error."
elseif sResult = "badpassword" or sResult = "notregistered" then
sError = sError & "Sorry, There was an error in either your username or your password. Please try again.
"
elseif sResult = "ok" then
if request("StoreInCookie") = 1 then
dExpireDate = dateserial(year(now)+1, month(now), day(now))
else
dExpireDate = "1/1/1990"
end if
response.cookies("username") = XORCrypt(sPostUsername, sConnString)
response.cookies("username").path = "/"
if request("StoreInCookie") = 1 then
response.cookies("username").expires = dExpireDate
end if
sUsername = sPostUsername
response.cookies("password") = XORCrypt(sPostPassword, sConnString)
response.cookies("password").path = "/"
if request("StoreInCookie") = 1 then
response.cookies("password").expires = dExpireDate
end if
sPassword = sPostPassword
sLogonType = "ok"
end if
end if
if len(sRedirect) = 0 then sRedirect = sValidatedBaseURL & "/category-view.asp"
' In the case of a failed logon, the username & password fields will be set to the
' attempted username. In the case of the first attempt, they will be set to the
' cookie username & password values (if available)
if len(trim(sPostUsername))= 0 then sPostUsername = sUserName
if len(trim(sPostPassword))= 0 then sPostPassword = sPassword
%>