<% if session("username")="" then Response.Redirect("login.asp") end if session("winner") = "" %> Welcome to Arena
 
<% chkmenu=10 %>
<%end if%>
  Welcome To Mucho Arena
<%if request("s") = 1 then response.Write("Your opponent had leave the fight.") end if %>
<%set rspetimg=Server.CreateObject("ADODB.RECORDSET") rspetimg.open "select pet_path from pettable where petid =" & rs("petid"),conn %>
<%if not session("petselected")="" then rs.open "select * from userpettable where userpetid = " & session("petselected"),conn %>
Select a MuchoPet: <%set rs = Server.CreateObject("ADODB.Recordset") rs.open "select * from userpettable where status = 'Grown Up' and userid = " & session("userid"),conn %>
MuchoPet Age: <%if not rs("status") = "Growing" then%> <%dte = datediff ("d",Cdate(rs("creationdate")),Now)%> <%=dte%> <%else%> Growing <%end if%>
Energy Level: <%=rs("energylevel")%>
Strength Level: <%=rs("strength")%>
Hunger Level: <%=rs("hungerlevel")%>
Money Earned: $<%=FormatNumber(rs("moneyearned"),2)%>
No. Of Battles: <%=rs("totalwins")+rs("totalloses")%>
Battles Won: <%=rs("totalwins")%>
Battles Lost: <%=rs("totalloses")%>
"> <%rspetimg.close%>
<%if request("recent") = "" then recent = 0 counter = 0 else recent = clng(request("recent")) counter = clng(request("recent")) if recent < 0 then recent = 0 counter = 0 end if end if%>
  Recent Battles
<%set rswin = Server.CreateObject("ADODB.RECORDSET") rswin.open "SELECT weapontable.*, weaponPetTable.Quantity, LevelWeaponTable.levelName FROM (weaponPetTable INNER JOIN weapontable ON weaponPetTable.weaponId = weapontable.weaponId) INNER JOIN LevelWeaponTable ON weapontable.levelId = LevelWeaponTable.levelId WHERE (((weaponPetTable.userpetId)=" & session("petselected") & "));",conn,3,2 if not rswin.eof then rswin.move clng(recent)+0,1 end if %> <%for i=1 to 5 if not rswin.eof then counter = counter + 1 %> <% recent = recent + 1 rswin.movenext end if Next%>
Sr. Weapon Name Weapon Level Weapon Price Quantity Weapon Image
<%=counter%> <%=rswin("weaponname")%> <%=rswin("levelname")%> <%=rswin("cost")%> <%=rswin("quantity")%> " width="34" height="34">
<%if recent > 5 then%> <   <%else%> < <%end if%> <%if not rswin.eof then%> > <%else%> > <%end if%>



INSTRUCTIONS

First select your pet from the pulldown menu at the top. Once selected, your pets information will update. When you are ready simply click the "Next" button to proceed.

Good Luck in the Arena, you are going to need it!!!
<% if not session("petitemid")="" then set rsp =Server.CreateObject("adodb.recordset") rsp.open "SELECT UserPetTable.strength,UserPetTable.userpetName, PetTable.petName, UserPetTable.energylevel, PetTable.smallimg FROM PetTable INNER JOIN UserPetTable ON PetTable.petId = UserPetTable.petId WHERE (((UserPetTable.userPetId)=" & session("petselected") & "));",conn if not rsp.eof then %> <%end if end if %>
" width="34" height="34">
Pet Name <%=rsp("userpetname")%>
Pet Type <%=rsp("petname")%>
Pet Strength <%=rsp("strength")%>
No. of weapons <%set rspp = Server.CreateObject("ADODB.RECORDSET") rspp.open "select count(weaponId) as countofweapon from weaponpettable where userpetid="&session("petselected"),conn if rspp("countofweapon") = "" then Response.Write("0") else Response.Write(rspp("countofweapon")) end if %>
Energy Level <%=rsp("energylevel")%>