<%
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
%>
Payment Methods:
1.
Bank Transfer (Telegraphic Transfer)
2. PayPal
(3.4% + USD 0.3 Surcharge will be added)
3. Western Union
~~~~~
¡@