Someone

<%
'-------------------
' 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 ("<noscript>")
		Call htmlMessage()
		Response.Write ("</noscript>")
	End if
End 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>