<% if request.form<>"" then Dim isLoginSuccessful response.write(OutputCSS()) if not fromThisDomain("login.asp") then response.redirect (forumdir&"first.asp?error=referer") response.end end if if request.form("jsenabled") = "false" then response.redirect (forumdir&"first.asp") response.end end if Login = SQLstrip(request.form("login")) password = request.form("password") if len(Login) = 0 or len(password) = 0 then response.write ("
"&profAllFieldReq&"
") response.write (""&javascriptBackDesc&"
") response.end end if Dim loginFailureReason:loginFailureReason = 0 '1=banned, 2=no such login, 3=no such password, 4= not confirmed isLoginSuccessful = LogOnToForumMD5(Login, password, true) 'this sub will change the value of the variable "loginFailureReason" if isLoginSuccessful then call success() else call cancel() end if else Dim Login, Password login = getLoginCookies() %> <%= Application(dbName&"forumtitle") %> <%= NoScript() %> <%= OutputCSS() %> style="margin:0px 0px 0px 0px">
<%= logTitleDesc %>
><%= tmName %> >
><%= profPass %> >
colspan="2"> <%= profSaveCookied %> >




<%= logNewUser %>
<%= logForgetEmailbutton %>
<% End If %>