<%if session("username") = "" then response.Redirect("login.asp") End if session("totalbusiness") = 0 set rs = server.CreateObject("ADODB.RECORDSET") rs.open "select * from userpetTable where userid = " & session("userid"),conn if rs.eof then Response.Redirect("pets.asp?p=1") end if rs.close %> Select a Food Level
 
<% chkmenu=12 %>
<%if request("f") = 1 then Response.Write("You don't have sufficient amount of money to buy food.") end if %>
Starters
Main Course
Drinks
<% set rs1 = server.CreateObject("Adodb.recordset") rs1.open "SELECT userPetTable.userPetId, userPetTable.userid, userPetTable.petId, userPetTable.userpetName FROM userPetTable WHERE (((userPetTable.userid)=" & session("userid") & ") AND ((userPetTable.energylevel)>0) AND ((userPetTable.status)='Grown Up')) ORDER BY userPetTable.userpetName;",conn if rs1.eof then Response.Redirect("pets.asp?p=1") end if %> <%if request("flag") = 2 then session("petitemid") = request("selectedpet") end if%> <%if session("petitemid")= "" then%> <%if not rs1.eof then%> <%session("petitemid") = rs1("userpetid") sqlstr = "select energylevel,cityid from userpettable where energylevel > 0 and userpetid = " & rs1("userpetid") end if else sqlstr = "select energylevel,cityid from userpettable where energylevel > 0 and userpetid = " & session("petitemid") end if dim ppid if session("petitemid")= "" then%> <%if not rs1.eof then%> <%ppid=rs1("petid") %> <%else%> ppid=0 <%end if%> <%else%> <%ppid=session("petitemid")%> <%end if%> <%response.Write("") %> Select a Pet
<%if not session("petitemid") = "" then rs1.open "SELECT PetTable.petId,PetTable.pet_path FROM PetTable INNER JOIN UserPetTable ON PetTable.petId = UserPetTable.petId WHERE (((UserPetTable.userPetId)=" & session("petitemid") & ") and energylevel > 0);",conn if not rs1.eof then %> " width="100" height="100" > <% end if end if%>
Desserts



INSTRUCTIONS

First select your pet from the pulldown menu in the middle. To browse through the different types of food just click on the image or link for that food. Make sure to keep your Mucho Pets healthy. If a pets hunger level reaches 100, they may run away for good.

Check back often as new Mucho Foods are added regularly!!!
<% if not session("petitemid")="" then set rsp =Server.CreateObject("adodb.recordset") rsp.open "SELECT UserPetTable.hungerlevel,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")%>
Hunger Level <%=rsp("hungerlevel")%>
Energy Level <%=rsp("energylevel")%>
 
<%end if end if %>