% Response.Buffer = true %> <% If Session("logged_in") <> "Y" then Dim txtUserName Dim invalid_try Dim remember_me If Request.Querystring("rem")="n" Then txtUserName ="" remember_me = "" Else If Request.Cookies ("aeBruggemann")("UserName") <> "" Then txtUserName = Request.Cookies ("aeBruggemann")("UserName") If Request.Cookies ("aeBruggemann")("rem_token") <> "" and invalid_try <> 1 Then remember_me = Request.Cookies ("aeBruggemann")("rem_token") Else remember_me = "" End If Else txtUserName ="" remember_me ="" End If End If If Request.ServerVariables("Request_Method") = "POST" Then If Request.Form("UserName") <> "" AND ((Request.Form("Rem_token") <> "" ) OR (Request.Form("Password") <> "")) Then invalid_try = process_login(1) Else invalid_try = 1 End If End if End if %>