<% chkmenu=7 %>

<% if session("username") = "" then response.Redirect("login.asp") end if set rs = Server.CreateObject("ADODB.RECORDSET") rs.open "select * from weaponPetTable where weaponid = " & request("weapon") & " and userpetid = " & session("petitemid"),conn if not rs.eof then Response.Redirect("chooseweaponlevel.asp?already=1") end if set rs = Server.CreateObject("ADODB.RECORDSET") sqlstr = "select weaponid,cost from weaponTable where weaponid = " & request("weapon") rs.open sqlstr,conn weaponid = rs("weaponid") cost = rs("cost") rs.close sqlstr = "select moneyLeft from userTable where userid = " & Session("userid") rs.open sqlstr,conn moneyLeft = rs("MoneyLeft") rs.close if moneyleft < cost then Response.Redirect("chooseWeaponlevel.asp?notmuchmoney=1") end if sqlstr = "select * from weaponTable where weaponid = " & request("weapon") rs.open sqlstr,conn %>

&count=1&type=weapon">
  Mucho Weapon

">

 "> "> "> Weapon name: <%=rs("weaponName")%>

Weapon cost: <%=cost%> MD

After buying this weapon, you will be left <%=moneyLeft - Cost%> MD

Description: <%if rs("description")="" then response.write("None") else response.write(rs("description")) end if rs.close%>
">
<% 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 %>
<%set rsi = Server.CreateObject("adodb.recordset") rsi.open "SELECT weapontable.weaponName, weaponpetTable.Cost, weaponpetTable.quantity FROM (UserPetTable INNER JOIN weaponpetTable ON UserPetTable.userPetId = weaponpetTable.userpetid) INNER JOIN weapontable ON weaponpetTable.weaponId = weapontable.weaponId WHERE (((UserPetTable.userPetId)=" &session("petitemid")& "));",conn ,adOpenStatic, adLockReadOnly if not rsi.eof then rsi.move clng(request("total"))+0,1 %> 0 <%else%> <%=request("total")%> <%end if%> " > <%for i=0 to 4 if not rsi.eof then total = total + rsi("cost") %> <% rsi.movenext end if next%>
Weapon Qty Cost
<%=rsi("weaponname")%> <%=rsi("quantity")%> <%=rsi("cost")%>
<% set rst = Server.CreateObject("Adodb.Recordset") rst.open "SELECT sum(weaponpetTable.cost) as total FROM (UserPetTable INNER JOIN weaponpetTable ON UserPetTable.userPetId = weaponpetTable.userpetid) INNER JOIN weapontable ON weaponpetTable.weaponId = weapontable.weaponId WHERE (((UserPetTable.userPetId)=" &session("petitemid")& "));",conn ,adOpenStatic, adLockReadOnly if not rst.eof then %> Total: <%=rst("total")%> <%end if%>
<%if rsi.recordcount > 5 then%> Back Next <%end if%> <%end if%>