<% set rs = Server.CreateObject("Adodb.Recordset") rs.open "select cityid,cityno from city order by cityid",conn %> About Muchopets
<% chkmenu=0 %>  
  About Us

Muchopets® is a place where children, as well as anyone for that matter can come and live another life. They can create totally unique characters for themselves, and control the lives of these characters. Through the many activities and content provided by the member’s use of the site, Muchopets provides many hours of entertainment each and every week. Unlike similar sites that claim to have tons of content, our content is plentiful, but still of top quality to provide the most entertainment value. Our mission is to just be a place where anyone can come in our world and escape their daily lives. Even if just for a moment.
<% if not session("username")="" then %>
<% 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 %>
 
<% end if %>