<% 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() %> <%= NoScript() %> <%= OutputCSS() %> style="margin:0px 0px 0px 0px">

<%= logTitleDesc %> ><%= tmName %> > ><%= profPass %> > colspan="2"> <%= profSaveCookied %> >

<%= logNewUser %> <%= logForgetEmailbutton %>

<% End If %>