<%
Session("ShopAdmin")=""
Session("INIT")=""
Dim myconn
msg=""
ShopOpenDatabase myconn
on error resume next
If Request("Submit")<>"" Then
SQL = "SELECT * FROM tblUser WHERE fldUserName='" & Request("UserName") & "' AND fldPassword='" & Request("Password") & "'"
Set rs = myconn.Execute(SQL)
if err.number>0 then
msg="database Open error
" & Session("Openerror")
else
If Not rs.EOF Then
Session("ShopAdmin") = rs("fldUserName")
Session("usertables")=rs("TablesAllowed")
LogUser Session("ShopAdmin"), "in", myconn
Shopclosedatabase myconn
response.redirect "shopadmin1.asp"
Else
msg=LangAdmin01 & "
"
end if
end if
end if
shopPageHeader
if msg <> "" Then
response.write msg
end if
%>