<% if session("username")="" then Response.Redirect("login.asp") end if session("winner") = "" %> Welcome to Arena
 
<% chkmenu=10 %>
<%set rsamount = Server.CreateObject("ADODB.RECORDSET") rsamount.open "select moneyleft from usertable where userid="&session("userid"),conn if not rsamount.eof then %> "> <%end if%>
BET AMOUNT
   
Bet Amount  
 
   

INSTRUCTIONS

Enter the amount that you would like to bet that you beat the opponent. If you win, you win this money back as well as the same amount from the other pet. If you lose, your opponent wins this money from you. Once you hit next, you will be taken to the waiting area where users can select your pet to battle. It may take a few minutes for someone to initiate a battle with you. So be patient.

Good Luck!!!
<% 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("petitemid") & "));",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")%>