<% if session("username") = "" then response.Redirect("login.asp") end if dim pid pid = request("pet") session("pid") = pid %>

<% chkmenu=6 %> Add Pet User name: <%=session("username")%> Family name: <%=session("FamilyName")%> Pet name: Gender: <% if request("petCreated") = 1 then Response.Write(rs("gender")) else %> Male Female <% response.Write(" ") end if%> <%if not request("petCreated") = 1 then Response.Write(" ") %> <% end if %>             <% if not session("petitemid")="" then set rsp =Server.CreateObject("adodb.recordset") rsp.open "SELECT 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 %> " width="34" height="34"> Pet Name <%=rsp("userpetname")%> Pet Type <%=rsp("petname")%> Energy Level <%=rsp("energylevel")%> <%end if end if %>