<%@ language="VBScript"%>
<% response.buffer=true %>
My Account
<%
fail=1
if(request.queryString("act")="checklogin") then
set rsp = con.execute("select *from userinfo where username='" & trim(request.form("UserName")) & "' and password='" & trim(request.form("Password")) & "'")
if(rsp.eof=true) then
session("login")="no"
fail=0
else
session("login")="yes"
session("curuser")=rsp("username")
session("curname")=rsp("fname")
'session("totamt")=""
'session("cart")=""
'session("totqty")=""
if(len(trim(request.form("URLFIRE")))>=1) then
response.redirect(request.form("URLFIRE"))
else
response.redirect("https://moroccanhomefurnishings.com/my.asp")
end if
end if
end if
%>
<%
if(fail=0) then
%>
<< Invalid Username or Password.
>>