<% if session("username")="" then Response.Redirect("login.asp") end if %>

<%set rs = server.CreateObject("ADODB.RECORDSET") if not request("id") = "" then rs.open "select * from livefight where player1 = " & request("id") & "or player2 = " & request("id") ,conn if rs.eof then conn.execute "update opponenttable set ready = 1 where userpetid = " & Request("id") conn.execute "insert into livefight (player1,player2,strength1,strength2) values (" & session("petselected") &","&request("id")&",100,100)" end if rs.close end if rs.open "SELECT livefight.player1, livefight.player2, UserPetTable.userid FROM livefight INNER JOIN UserPetTable ON livefight.player1 = UserPetTable.userPetId WHERE (((UserPetTable.userid)="&session("userid")&"));",conn if not rs.eof then player1 = rs("player1") player2 = rs("player2") else rs.close rs.open "SELECT livefight.player1, livefight.player2, UserPetTable.userid FROM livefight INNER JOIN UserPetTable ON livefight.player2 = UserPetTable.userPetId WHERE (((UserPetTable.userid)="&session("userid")&"));",conn player1 = rs("player1") player2 = rs("player2") end if rs.close rs.open "SELECT UserPetTable.status,UserPetTable.userpetName, PetTable.pet_path,PetTable.petName, UserPetTable.creationDate, livefight.strength1, livefight.player1 FROM livefight INNER JOIN (PetTable INNER JOIN UserPetTable ON PetTable.petId = UserPetTable.petId) ON livefight.player1 = UserPetTable.userPetId WHERE (((livefight.player1)="&player1&"));",conn %> Player 1 stats Name <%=rs("userpetname")%> " width="40" height="40"> Type <%=rs("petname")%> Age <%if not rs("status") = "Growing" then%> <%dte = datediff ("d",Cdate(rs("creationdate")),Now)%> <%=dte%> <%else%> Growing <%end if%> Wins <% rs.close rs.open "SELECT Count(FightHistoryTable.userpetid) AS CountOfuserpetid, FightHistoryTable.Result FROM FightHistoryTable GROUP BY FightHistoryTable.userpetid, FightHistoryTable.Result HAVING (((FightHistoryTable.userpetid)="&player1&") AND ((FightHistoryTable.Result)='WIN'));",conn if not rs.eof then %> <%=rs("countofuserpetid")%> <%else%> 0 <%end if%> Loses <% rs.close rs.open "SELECT Count(FightHistoryTable.userpetid) AS CountOfuserpetid, FightHistoryTable.Result FROM FightHistoryTable GROUP BY FightHistoryTable.userpetid, FightHistoryTable.Result HAVING (((FightHistoryTable.userpetid)="&player1&") AND ((FightHistoryTable.Result)='LOSE'));",conn if not rs.eof then %> <%=rs("countofuserpetid")%> <%else%> 0 <%end if%> <%set at = Server.CreateObject("ADODB.RECORDSET") at.open "SELECT UserPetTable.userpetName, livefight.strength1 FROM UserPetTable INNER JOIN livefight ON UserPetTable.userPetId = livefight.player1 WHERE (((livefight.player1)=" & player1 & "));",conn %> Attacker Name: <%=at("userpetname")%> Strength: <%=at("strength1")%> <%set at = Server.CreateObject("ADODB.RECORDSET") at.open "SELECT UserPetTable.userpetName, livefight.strength2 FROM UserPetTable INNER JOIN livefight ON UserPetTable.userPetId = livefight.player2 WHERE (((livefight.player2)=" & player2 & "));",conn %> Defender Name: <%=at("userpetname")%> Strength: <%=at("strength2")%> "> <% rs.close rs.open "SELECT UserPetTable.status,UserPetTable.userpetName, PetTable.petName,PetTable.pet_path, UserPetTable.creationDate, livefight.strength1, livefight.player2 FROM livefight INNER JOIN (PetTable INNER JOIN UserPetTable ON PetTable.petId = UserPetTable.petId) ON livefight.player2 = UserPetTable.userPetId WHERE (((livefight.player2)="&player2&"));",conn %> Player 2 stats Name <%=rs("userpetname")%> " width="40" height="40"> Type <%=rs("petname")%> Age <%if not rs("status") = "Growing" then%> <%dte = datediff ("d",Cdate(rs("creationdate")),Now)%> <%=dte%> <%else%> Growing <%end if%> Wins <% rs.close rs.open "SELECT Count(FightHistoryTable.userpetid) AS CountOfuserpetid, FightHistoryTable.Result FROM FightHistoryTable GROUP BY FightHistoryTable.userpetid, FightHistoryTable.Result HAVING (((FightHistoryTable.userpetid)="&player2&") AND ((FightHistoryTable.Result)='WIN'));",conn if not rs.eof then %> <%=rs("countofuserpetid")%> <%else%> 0 <%end if%> Loses <% rs.close rs.open "SELECT Count(FightHistoryTable.userpetid) AS CountOfuserpetid, FightHistoryTable.Result FROM FightHistoryTable GROUP BY FightHistoryTable.userpetid, FightHistoryTable.Result HAVING (((FightHistoryTable.userpetid)="&player1&") AND ((FightHistoryTable.Result)='LOSE'));",conn if not rs.eof then %> <%=rs("countofuserpetid")%> <%else%> 0 <%end if%>       <% set weapon = Server.CreateObject("ADODB.RECORDSET") weapon.open "SELECT weapontable.weaponName,weapontable.weaponid FROM (weaponPetTable INNER JOIN weapontable ON weaponPetTable.weaponId = weapontable.weaponId) INNER JOIN LevelWeaponTable ON weapontable.levelId = LevelWeaponTable.levelId WHERE (((weaponPetTable.userpetId)=" & player1 & ") AND ((LevelWeaponTable.levelName) like 'Hand Guns'));",conn %> Hand Guns Hand Weapons Assault Weapons Heavy Artillery Explosive Devices <% if not weapon.eof then while not weapon.eof%> <% weapon.movenext wend end if weapon.close weapon.open "SELECT weapontable.weaponName,weapontable.weaponid FROM (weaponPetTable INNER JOIN weapontable ON weaponPetTable.weaponId = weapontable.weaponId) INNER JOIN LevelWeaponTable ON weapontable.levelId = LevelWeaponTable.levelId WHERE (((weaponPetTable.userpetId)=" & player1 & ") AND ((LevelWeaponTable.levelName) like 'Hand Weapons'));",conn %>   ">  <%=weapon("weaponName")%> <% if not weapon.eof then while not weapon.eof%> <% weapon.movenext wend end if weapon.close weapon.open "SELECT weapontable.weaponName,weapontable.weaponid FROM (weaponPetTable INNER JOIN weapontable ON weaponPetTable.weaponId = weapontable.weaponId) INNER JOIN LevelWeaponTable ON weapontable.levelId = LevelWeaponTable.levelId WHERE (((weaponPetTable.userpetId)=" & player1 & ") AND ((LevelWeaponTable.levelName) like 'Assault Weapons'));",conn %>   ">  <%=weapon("weaponName")%> <%if not weapon.eof then while not weapon.eof%> <% weapon.movenext wend end if weapon.close weapon.open "SELECT weapontable.weaponName,weapontable.weaponid FROM (weaponPetTable INNER JOIN weapontable ON weaponPetTable.weaponId = weapontable.weaponId) INNER JOIN LevelWeaponTable ON weapontable.levelId = LevelWeaponTable.levelId WHERE (((weaponPetTable.userpetId)=" & player1 & ") AND ((LevelWeaponTable.levelName) like 'Heavy Artillary'));",conn %>   ">  <%=weapon("weaponName")%> <%if not weapon.eof then while not weapon.eof%> <% weapon.movenext wend end if weapon.close weapon.open "SELECT weapontable.weaponName,weapontable.weaponid FROM (weaponPetTable INNER JOIN weapontable ON weaponPetTable.weaponId = weapontable.weaponId) INNER JOIN LevelWeaponTable ON weapontable.levelId = LevelWeaponTable.levelId WHERE (((weaponPetTable.userpetId)=" & player1 & ") AND ((LevelWeaponTable.levelName) like 'Explosive Devices'));",conn %>   ">  <%=weapon("weaponName")%> <%if not weapon.eof then%> <%while not weapon.eof%> <% weapon.movenext wend end if weapon.close %>   ">  <%=weapon("weaponName")%>   Select Where to attack(1 Place) Head Body Legs     CHAT   <%set rsside = Server.CreateObject("Adodb.Recordset") rsside.open "select moneyleft from usertable where userid = " & session("userid"),conn dim nettotal %> Money In Hand $ <%=FormatNumber(rsside("moneyleft"),2)%> <% nettotal = Cdbl(rsside("moneyleft"))%> <%rsside.close()%> Items Worth <%rsside.open "SELECT Sum(PetItemTable.Cost * PetItemTable.quantity) AS SumOfCost FROM UserPetTable INNER JOIN PetItemTable ON UserPetTable.userPetId = PetItemTable.userpetid GROUP BY UserPetTable.userid HAVING (((UserPetTable.userid)="& session("userid") &"));",conn%> $ <%if not rsside.eof then%> <%=rsside("sumofcost")%> <% nettotal = nettotal + cdbl(rsside("sumofcost"))%> <%else%> 0 <%end if%> <%rsside.close%> Arena Wins Loss <%rsside.open "select sum(totalwins) as wins , sum (totalloses) as loss from userpettable where userid = " & session("userid") , conn%> <%if not rsside.eof then%> <%=rsside("wins")%> / <%=rsside("loss")%> <%else%> 0 / 0 <%end if%> <%rsside.close%> Total Net Worth $ <%=FormatNumber(nettotal,2)%> <% 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")%>