Select a weapon

<%if session("username") = "" then response.Redirect("login.asp") End if %> <% if request("yes") = 1 then Response.Write(" Your pet has been loaded with that weapon...") End if %> Select a weapon

<% chkmenu=7 %>

<%if Request.QueryString("notmuchmoney") = 1 then Response.Write(" You Dont Have Sufficient Money to Buy that Weapon...") end if dim s s = request("lid") %>

Mucho Weapon Wizard

<% dim rs,i set rs = Server.CreateObject("Adodb.RecordSet") rs.Open "weaponTable", conn, adOpenStatic, adLockReadOnly, adCmdTable rs.Filter = "levelid = " & s if not rs.eof then %> <% dim aa aa = 0 string1 = Array(1,2,3,4,5,6) strweapon = Array(1,2,3,4,5,6) %> <% if not session("totalweapon") > rs.RecordCount then session("totalweapon") = session("totalweapon") + request("total") else session("totalweapon") = rs.RecordCount - 6 end if if session("totalweapon") < rs.RecordCount then if session("totalweapon") < 1 then session("totalweapon") = 0 else rs.Move session("totalweapon"),1 end if diff = rs.RecordCount - session("totalweapon") if diff > 5 then val = 5 else val = diff - 1 end if for i = session("totalweapon") to session("totalweapon") + val %> <% aa = aa + 1 if aa = 3 then Response.Write("") end if rs.MoveNext %> <% next end if end if %>

	<% str = "#" & rs("weaponname") str1 = rs("weaponname") string1(aa) = "weaponinfo.asp?weapon=" & rs("weaponid") strweapon(aa) = "createweapon.asp?w=1&weapon=" & rs("weaponid") %>	" width="82" height="89" border="0"> >Choose this Weapon <%=rs("cost")%> MD

disabled<%end if%> onClick="return value_backward('buyweapons.asp?total=-6&lid=<%=s%>')"> = rs.RecordCount then %> disabled<%end if%> onClick="return value_forward('buyweapons.asp?total=6&lid=<%=s%>')">

<% 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("total12"))+0,1 %> 0 <%else%> <%=request("total12")%> <%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%>