<%
if request("action")="log" then
usremail =trim(request.Form("usremail"))
usrpwd =trim(request("usrpwd"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from usr where usremail='"&usremail&"' and usrpwd='"&usrpwd&"'"
rs.open sql,conn,1,3
if not rs.eof then
session("usremail")=usremail
session("usrname")=rs("usrname")
session("usrsex")=rs("usrsex")
response.write""
else
response.write ""
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
Contact Us
Email:
enquiry@wingfaibags.com
Tel: (852)2481 3319
Fax: (852)2481 1571
Address: 21-33 Tai Lin Pai Road, Vanta
Industrial Centre, Unit 1617, Kwai Chung, N.T. Hong Kong
~~~~~