<% if session("username")="" then Response.Redirect("login.asp") end if if session("petselected") = "" then Response.Redirect("Arena.asp") end if %> <% 'if request("pass") = 1 then ' Response.Write("Password Successfuly changed...") 'end if '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %>

<% set rso = Server.CreateObject("ADODB.RECORDSET") rso.open "select * from userpettable where userpetid = " & session("petselected"),conn,3,2 if request("w") = 1 then %> Congraltulation you have won the fight. <% set rs = Server.CreateObject("ADODB.RECORDSET") rs.open "select moneyleft from usertable where userid = " & session("userid"),conn,3,2 rs("moneyleft") = Cdbl(rs("moneyleft")) * 1.05 rs.update rso("moneyEarned") = rso("moneyEarned") + cdbl(rs("moneyleft")) * 0.05 rso("ArenaWinlossprice") = rso("ArenaWinlossprice") + cdbl(rs("moneyleft")) * 0.05 rso("totalwins") = cint(rso("totalwins")) + 1 rso.update rso.close rs.close %> <%end if if request("L") = 1 then%> Sorry, you have lost the fight. <% rso("totalLoses") = cint(rso("totalLoses")) + 1 rso.update rso.close%> <%end if%> <% conn.execute "DELETE livefight.*, UserPetTable.userid FROM livefight INNER JOIN UserPetTable ON livefight.player1 = UserPetTable.userPetId WHERE (((UserPetTable.userid)=" &session("userid")& "));" %> <% 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")%>

<%session("petselected") = ""%>