<% chkmenu=8 %>
<% if session("username") = "" then response.Redirect("login.asp") end if set rs = Server.CreateObject("ADODB.RECORDSET") sqlstr = "select businessid,cost from businessTable where businessid = " & request("business") rs.open sqlstr,conn businessid = rs("businessid") cost = rs("cost") rs.close sqlstr = "select moneyLeft from userTable where userid = " & Session("userid") rs.open sqlstr,conn moneyLeft = rs("MoneyLeft") rs.close if moneyleft < cost then Response.Redirect("business.asp?notmuchmoney=1") end if if not request("pet") = "" then session("petitemid") = request("pet") end if sqlstr = "select * from businessTable where businessid = " & request("business") rs.open sqlstr,conn 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 if not rsbus.eof then bcount = rsbus("countofb") end if flag = 0 set rsbb = Server.CreateObject("ADODB.RECORDSET") rsbb.open "select * from userbusinesstable where userpetid = " & session("petitemid"),conn if not rsbb.eof then if not trim(rsbb("bid"))=trim(Request("business")) then flag= 1 end if end if %>
&count=1&type=business" onSubmit="return SubmitIt(this);">
<%if flag = 1 then Response.Write("
You have to select the same business for your company.
") else%>
  Mucho Business

">

Company Name: <%set rsbu = Server.CreateObject("ADODB.RECORDSET") rsbu.open "select * from userpettable where userpetid = " & session("petitemid"),conn cmp = rsbu("companyname") if not len(rsbu("companyname")) > 1 then %> <%else%> " type="text" id="cmpname"> <%end if%>

"> "> <%end if%>"> Business name: <%=rs("businessName")%>

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

After buying, you will be left: <%if not rsbus.eof then %> <%=moneyLeft - cdbl(bcount) * 2%> MD <%else%> <%=moneyLeft - Cost%> MD <%end if%>

Description:<%=rs("description")%>
">
<%end if%>
<% 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 %>