<% '------------------- ' Spooky Login 2000 © ' www.Outfront.net CONST a_log_inc = 3.121 '------------------- '------------ Sub jsError() '------------ Dim WriteError If l_error_mess then If bNameError OR bPassError AND Trim(errLogin)="" then Response.Write ("alert('"&txtEnterName&"')") WriteError=True End if If Trim(errLogin)<>"" AND NOT writeError then Response.Write ("alert('"&errLogin&"')") writeError=True End if If lcase(Request.QueryString("CMD"))="clear" AND NOT writeError then Response.Write ("alert('"&txtCookieCleared&"')") End if End if End Sub '------------ Sub htmlError() '------------ If NOT l_error_mess then Call htmlMessage() Else Response.Write ("") End if End Sub '------------ Sub htmlMessage() '------------ Response.Write ("") If bNameError OR bPassError then Response.Write (txtEnterName & "
") End if If Trim(errLogin) <> "" then Response.Write (Replace(errLogin,"\n","
")) End if If lcase(Request.QueryString("CMD")) = "clear" then Response.Write (txtCookieCleared & "
") End if Response.Write ("") End Sub %> ">

Login
Password		<%If r_register_self then%>><%end if%>
<%Call htmlError%><%If l_use_cookie AND cUsrName = "" then %> value="True"> <%Response.Write(txtStoreCookie)%>  <%End if If l_send_password then%> value="True"> <%Response.Write(txtSendPassword)%>  <%End if If l_clear_cookie AND cUsrName <> "" then%> <%=txtClearCookie%> <%End if%>