<% chkmenu=9 %>  
<% if session("username") = "" then response.Redirect("login.asp") end if set rs = Server.CreateObject("ADODB.RECORDSET") sqlstr = "select moneyLeft from userTable where userid = " & Session("userid") rs.open sqlstr,conn moneyLeft = rs("MoneyLeft") rs.close if moneyleft < cost then Response.Redirect("chooseitemlevel.asp?notmuchmoney=1") end if sqlstr = "select * from itemTable where itemid = " & request("item") rs.open sqlstr,conn %>
&count=1&type=item">
<%=session("cityname")%>

" border="1">

 "> "> "> Item Name: <%=rs("itemName")%>

Item Cost: <% set rss = Server.CreateObject("ADODB.RECORDSET") rss.open "select percentage from city where cityid = " & session("cityin") ,conn percentagevalue = rs("cost") if not rss.eof then percentagevalue = rs("cost") + rs("cost") * rss("percentage") / 100 end if rss.close %> <%=percentagevalue%> MD

After Buying item You left: <%=moneyLeft - percentagevalue%> MD

Description: <%=rs("description")%>
">
<% set rsitem = server.CreateObject("ADODB.recordset") rsitem.open "SELECT UserPetTable.userpetName, PetItemTable.petItemId FROM UserPetTable INNER JOIN PetItemTable ON UserPetTable.userPetId = PetItemTable.userpetid WHERE (((UserPetTable.userPetId)=" & session("petitemid") & ") AND ((PetItemTable.itemId)=" & request("item") & "));",conn if not rsitem.eof then %> &petid=<%=session("petitemid")%>';" src="images/sell.jpg" > <% end if %>
<% 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%>
<%set rsi = Server.CreateObject("adodb.recordset") rsi.open "SELECT itemtable.itemName, PetItemTable.Cost, PetItemTable.quantity FROM (UserPetTable INNER JOIN PetItemTable ON UserPetTable.userPetId = PetItemTable.userpetid) INNER JOIN itemtable ON PetItemTable.itemId = itemtable.itemId 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%>
Item Qty Cost
<%=rsi("itemname")%> <%=rsi("quantity")%> <%=rsi("cost")%>
<% set rst = Server.CreateObject("Adodb.Recordset") rst.open "SELECT sum(petitemtable.cost) as total FROM (UserPetTable INNER JOIN PetItemTable ON UserPetTable.userPetId = PetItemTable.userpetid) INNER JOIN itemtable ON PetItemTable.itemId = itemtable.itemId 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%>