<%
Dim adu,adp,chk
If Session("AdminUser")="" or Session("AdminPwd")="" Then
Response.Redirect "Index.html"
Else
adu = Replace(Session("AdminUser"),"'","")
adp = Replace(Session("AdminPwd"),"'","")
Set chk = Conn.Execute("Select admin,password From [Admin] Where admin='"&adu&"' and password='"&adp&"'")
If chk.Eof and chk.Bof Then
Response.Redirect "Index.html"
End if
End if
chk.Close
Set chk=Nothing
%>