<%if session("username") = "" then response.Redirect("login.asp") End if session("totalbusiness") = 0 %> Select a Business Level
 
<% chkmenu=8 %>
<%if request("notmuchmoney")=1 then%> <%end if%>
You don't have enough money to buy business.
   
Communication
<% 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%>
Entertainment
Recreation
Labour
Services



INSTRUCTIONS

First select your pet from the pulldown menu in the middle. Once selected, the business that your pet owns is located in the box to the right. To browse through the certain types of businesses, just click on the image or link for each type. Each pet can only own one business. Additional businesses of the same type can be purchased by each company.

Check back often as new Mucho Businesses are added regularly!!!
<% if not session("petitemid")="" then set rsp =Server.CreateObject("adodb.recordset") rsp.open "SELECT UserPetTable.userpetName,UserPetTable.companyname, 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")%>
Company Name <%if len(rsp("companyname")) > 1 then%> "><%=rsp("companyname")%> <%else Response.Write("-") end if %>
Business Type <%set rsppt=Server.CreateObject("ADODB.RECORDSET") rsppt.open "SELECT businesstable.BusinessName FROM businesstable INNER JOIN userBusinessTable ON businesstable.businessID = userBusinessTable.BID WHERE (((userBusinessTable.userpetID)="& session("petitemid")&"));",conn if not rsppt.eof then Response.Write(rsppt("BusinessName")) else Response.Write("-") end if %>
Energy Level <%=rsp("energylevel")%>
 
<%end if end if %>