<%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 business
 
<% chkmenu=8 %>
<% dim s s = request("bid") %>
  Mucho business wizard
<% dim rs,i set rs = Server.CreateObject("Adodb.RecordSet") rs.Open "businessTable", conn, adOpenStatic, adLockReadOnly, adCmdTable rs.Filter = "blevelid = " & 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("businessname") str1 = rs("businessname") string1(aa) = "businessinfo.asp?business=" & rs("businessid") strbusiness(aa) = "createbusiness.asp?w=1&business=" & rs("businessid") set rsbus = Server.CreateObject("Adodb.RecordSet") rsbus.Open "select cost as countofb from userbusinesstable where BID=" & rs("businessid") & " and userpetid = " & session("petitemid") & " order by cost desc",conn,3,2 if not rsbus.eof then bcount = rsbus("countofb") end if %>

  " width="98" height="119" border="1"> " >
    " >Choose this Business

<%if not rsbus.eof then %> <%=cdbl(bcount) * 2%> MD <%else%> <%=rs("cost")%> MD <%end if%>
 

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

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