<% Option Explicit %>
<%
'
' $Id: admin.asp,v 1.1.1.1 2003/03/09 22:45:57 peter Exp $
'
'
'
' @author Peter Theill peter@theill.com
'
Response.Buffer = True
Dim error
error = ""
If (Request("action") = "login") Then
' log on if available
If (Request("password") = ADMINISTRATOR_PASSWORD) Then
Session("com.theill.conquerchat.administrator") = "True"
Response.Redirect("admin.display.asp")
Else
error = getMsg("admin.error.incorrect_password")
End If
End If
%>
<%= APPLICATION_NAME %>
<% If (Len(error) > 0) Then %>
