Unnamed

<%'-------------------' 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 ifEnd Sub'------------Sub htmlError()'------------	If NOT l_error_mess then		Call htmlMessage()	Else		Response.Write ("<noscript>")		Call htmlMessage()		Response.Write ("</noscript>")	End ifEnd Sub'------------Sub htmlMessage()'------------	Response.Write ("<b>")	If bNameError OR bPassError then		Response.Write (txtEnterName & "<br>")	End if	If Trim(errLogin) <> "" then		Response.Write (Replace(errLogin,"\n","<br>"))	End if	If lcase(Request.QueryString("CMD")) = "clear" then		Response.Write (txtCookieCleared & "<br>")	End if	Response.Write ("</b>")End Sub%><SCRIPT type="text/javascript" language="javascript"><!--function open_window(url) {	mywin = window.open(url,'win','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=450,height=250');}<%Call jsError()%>// --></SCRIPT><table border="0" cellpadding="2" cellspacing="1" width="250" style="border-style: solid; border-width: 1"><form method="POST" name="LoginForm" action="<%=Request.Servervariables("PATH_INFO")%>">  <input type="hidden" name="DoForm" value="True">  <input type="hidden" name="UID" value="<%=UID%>">  <input type="hidden" name="U1" value="<%=U1%>">  <input type="hidden" name="Redirect" value="<%=Redirect%>">      <tr>        <td align="right" style="font-family: Verdana; font-size: 12px">Login</td>        <td>        <input type="text" name="UserName" size="15" tabindex=1 value="<%=UserName%>" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1"></td>        <td>        <input src="images/spooky_login.gif" border='0' type="image" name="I1"></td>      </tr>      <tr>        <td align="right" style="font-family: Verdana; font-size: 12px">Password</td>        <td>        <input type="password" name="T2" tabindex=2 value="<%=T2%>" size="15" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1"></td>        <td>        <%If r_register_self then%><a href=<%=strRegPage%>><img src="images/spooky_register.gif" border='0'></a><%end if%></td>      </tr>     <tr>        <td colspan="3"><font face="Verdana" size="1"><%Call htmlError%><%If l_use_cookie AND cUsrName = "" then %>          <input type="checkbox" name="C1" <%if c1 then Response.Write ("checked")%> value="True">          <%Response.Write(txtStoreCookie)%>&nbsp; <a href="javascript:open_window('includes/pop_whatsthis.asp?CMD=Cookie')" title="Whats this?">        <img src="images/spooky_help.gif" width="18" height="18" border="0" align="absmiddle"></a><br>          <%End if			If l_send_password then%>          <input type="checkbox" name="C3"<%If C3 then Response.Write " checked"%> value="True">          <%Response.Write(txtSendPassword)%>&nbsp; <a href="javascript:open_window('includes/pop_whatsthis.asp?CMD=Email')" title="Whats this?">        <img src="images/spooky_help.gif" width="18" height="18" border="0" align="absmiddle"></a><br>          <%End if			If l_clear_cookie AND cUsrName <> "" then%>          <a href="login.asp?CMD=Clear"><%=txtClearCookie%></a>          <%End if%>          </font>        </td>      </tr></FORM></table>