<%
Response.Expires=0
pwd=Session("action_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
	Response.Write("action=pwderror")
	Response.End
End If
checkpwd.Close()
%>