|
<%
dim rs
set rs = Server.CreateObject("Adodb.RecordSet")
rs.open "businessTable",conn
rs.Filter = "businessId = " & request("business")
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
%>
| Business Name: |
<%=rs("businessName")%> |
| Business Cost: |
<%if not rsbus.eof then %>
<%=cdbl(bcount) * 2%> MD
<%else%>
<%=rs("cost")%>
<%end if%> |
| Description: |
|
| <%=rs("description")%> |
|
 ">
<%rs.close%>
|
| |
|
|
|
|