<% chkmenu=6 %>   Confirmation <% set rs = server.CreateObject("Adodb.RecordSet") set rspets = server.CreateObject("Adodb.RecordSet") set rsgr = server.CreateObject("Adodb.RecordSet") rs.open "userpetTable",conn, adOpenForwardOnly,adLockOptimistic,adCmdTable rs.Filter = "petid = " & session("pid") & " and userid = '" & session("userid") &"'" rspets.open "select * from userpettable where userid = " & session("userid"),conn,adOpenForwardOnly,adLockOptimistic rsgr.open "select * from userpettable where status = 'Growing' and userid = " & session("userid"),conn if rsgr.eof then Max = 0 while not rspets.eof max = max + 1 rspets.moveNext wend if not max >= 9 then if rs.eof then rs.addnew set urs = Server.CreateObject("Adodb.RecordSet") sqlstr = "select userid from usertable where username = '" & session("username") & "'" urs.open sqlstr,conn rs("userid") = urs("userid") urs.close sqlstr = "select petId from pettable where petId = " & session("pid") urs.open sqlstr,conn rs("petId") = urs("petId") urs.close rs("strength") = 100 rs("userpetname")=request.form("pname") rs("gender") = request.Form("gender") rs("cityid") = 1 rs("energylevel") = 100 rs("hungerlevel") = 0 rs("creationdate") = date() rs("laccessdate") = date() if max = 0 then rs("status") = "Grown Up" else rs("status") = "Growing" end if rs("weaponlevel") = 1 rs.update pid = rs("userpetid") rs.close set rsp = Server.CreateObject("Adodb.recordset") rsp.open "SELECT weapontable.weaponId, weapontable.Cost FROM weapontable WHERE (((weapontable.weaponName) Like 'Pocket Knife')) OR (((weapontable.weaponName)='Bastard Sword')) OR (((weapontable.weaponName)='Dagger'));",conn while not rsp.eof conn.execute "insert into weaponpettable (userpetid,weaponid,cost,quantity) values ("& pid & ","& rsp("weaponid") & ","& rsp("cost") & ",1)" rsp.movenext wend 'Response.Redirect("pets.asp?yes=1") Response.Write("Your Pet is Created") else 'Response.Redirect("pets.asp?No=1") Response.Write("The pet you have chosen already exists, to go back please press Go Back") end if else Response.Write("You are allowed only 9 pets, to go back please press Go Back") end if Else Response.Write("You can grow one pet at a time, to go back please press Go Back") End if %>