<%
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
%>
Shipping
Freight forwarders
for orders over USD5,000.
Couriers for
orders below USD5,000.
For orders which
are less than USD5,000 to be shipped through freight forwarder, a charge of
USD200 will be applied.
~~~~~
¡@