Create Account

<%if session("username") = "" then Response.Redirect("Login.asp") End if%> <%if not request("accno") = "" then Response.Redirect("muchobankmain.asp") End if%>

<% chkmenu=13 %>

<% set rs = Server.CreateObject("ADODB.RECORDSET") 'rs.open "userTable",conn, adOpenForwardOnly,adLockOptimistic,adCmdTable rs.open "select userid,familyname from usertable where userid = " & session("userid") ,conn %>

Create Account

<% if Request("pass")=1 then 'set rs = Server.CreateObject("ADODB.RECORDSET") set rs2 = Server.CreateObject("ADODB.Recordset") rs2.open "select moneyleft from usertable where userid = " & session("userid"),conn if clng(request("initdeposit")) <= clng(rs2("moneyleft")) then if request("initdeposit") >= 500 then moneyleft = clng(rs2("moneyleft")) - clng(request("initdeposit")) strSql= "insert into createaccount(userid,familyname,initmoney,acctype,laccessdate) values('" & request("accno1") & "','" & request("famname") & "','" & request("initdeposit") & "','" & request("handmoney") & "',#"&date&"#)" conn.execute(strSql) strSql= "update usertable set moneyleft = '" & clng(moneyleft) & "' where userid = " & session("userid") conn.execute(strSql) response.Redirect("muchoinfo.asp") else response.Write("Initial money must be greater then 500 dollar") end if else response.Write("You dont have enough money.") end if end if %>

Account No:

" name="accno1">

Family Name:

" name="famname">

Initial Deposit:

Account Type:

INSTRUCTIONS

To setup a Mucho Bank Account, there is a $500 minimum. Each account balance earns 1% per day. There is a 1% fee on the account balance for any withdrawals.

Check back often as new Mucho Bank options are added regularly!!!

<% if not session("petitemid")="" then set rsp =Server.CreateObject("adodb.recordset") rsp.open "SELECT UserPetTable.userpetName, PetTable.petName, UserPetTable.energylevel, PetTable.smallimg FROM PetTable INNER JOIN UserPetTable ON PetTable.petId = UserPetTable.petId WHERE (((UserPetTable.userPetId)=" & session("petitemid") & "));",conn if not rsp.eof then %>

" width="34" height="34">

Pet Name

<%=rsp("userpetname")%>

Pet Type

<%=rsp("petname")%>

Energy Level

<%=rsp("energylevel")%>

<%end if end if %>