<%@ 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 %> <%=validateField(sBBSName)%> : Category View <% if request("action") = "logon" and sResult="ok" then %> <% end if %> <% if request("action") = "logon" and sResult="ok" then %>

Thank you for logging in. You will be automatically redirected in one second, or you may click here.

<% else %> <% if bDisplayBBSQuotes = 1 then%>

<%=sBBSRandomQuoteText%> <%=GetRandomQuote%>
<% else %>
<% end if %>
<%=sError%>
Login or click "Register" to create your new account.
Username: <% if bBBSRegistrationClosed=0 then %>Register<% end if %>
Password: Forgot your password?
Remember My Login Yes  
 

Login problems? Contact the administrator.
<% end if %>