<!--#include file="Connections.asp" -->
<%
Response.Expires=0
pwd=Request("pwd")
set checkpwd = Server.CreateObject("ADODB.Recordset")
checkpwd.ActiveConnection = datalink
checkpwd.Source = "SELECT * FROM menu"
checkpwd.Open()
If pwd=checkpwd("menu8") And Not checkpwd.Eof Then
	Session("action_pwd")=pwd
	Response.Write("&action=complete")
	Response.Write("&login=admin")
Else
	Response.Write("&action=pwderror")
End If
checkpwd.Close()

If Request("action")="logout" Then
	Session.Abandon
	Response.Write("&action=logout")
End If
%>