<%if session("username") = "" then response.Redirect("login.asp") End if %> <% if request("yes") = 1 then Response.Write(" Your pet has been loaded with that business...") End if %> Select a Food
 
<% chkmenu=12 %>
<%dim s s = request("bid") %>
  <%dim sw sw = request("bid") if sw = 1 then response.Write("Starters") elseif sw = 2 then response.Write("Main Course") elseif sw = 3 then response.Write("Drinks") elseif sw = 4 then response.Write("Desserts") end if %>
<% dim rs,i set rs = Server.CreateObject("Adodb.RecordSet") rs.Open "foodTable", conn, adOpenStatic, adLockReadOnly, adCmdTable rs.Filter = "cafeid = " & s if not rs.eof then %> <% dim aa aa = 0 string1 = Array(1,2,3,4,5,6) strbusiness = Array(1,2,3,4,5,6) %> <% if not session("totalbusiness") > rs.RecordCount then session("totalbusiness") = session("totalbusiness") + request("total") else session("totalbusiness") = rs.RecordCount - 6 end if if session("totalbusiness") < rs.RecordCount then if session("totalbusiness") < 1 then session("totalbusiness") = 0 else rs.Move session("totalbusiness"),1 end if diff = rs.RecordCount - session("totalbusiness") if diff > 5 then val = 5 else val = diff - 1 end if for i = session("totalbusiness") to session("totalbusiness") + val %> <% aa = aa + 1 if aa = 3 then Response.Write("") end if rs.MoveNext %> <% next end if end if %>
  <% str = "#" & rs("foodname") str1 = rs("foodname") string1(aa) = "foodinfo.asp?business=" & rs("foodid") strbusiness(aa) = "createfood.asp?w=1&business=" & rs("foodid") %>

  &petid=<%=session("petitemid")%>')" >" width="98" height="119" border="1">
    &petid=<%=session("petitemid")%>" >Choose a Food

<%=rs("foodprice")%> MD
">

 

disabled<%end if%> onClick="return value_backward('buyfood.asp?total=-6&bid=<%=s%>')"> = rs.RecordCount then %> disabled<%end if%> onClick="return value_forward('buyfood.asp?total=6&bid=<%=s%>')">

<% 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 %>