<%
If session("ManagerUser")="" or session("ManagerPwd")="" Then
Response.Redirect "admin.htm"
Else
ad=Replace(session("ManagerUser"),"'","")
pwd=Replace(session("ManagerPwd"),"'","")
Set ad = Conn.Execute("Select [Admin],[PassWord] From [Manager] Where [Admin]='"&ad&"' and [PassWord] ='"&pwd&"'")
If ad.Eof and ad.Bof Then
Response.Redirect "admin.htm"
End if
End if
%>