<%
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
%>
Delivery:
30 to 60 days depending on production
schedule. For small orders, please email us for further information.
~~~~~