<% ' Property of and written by Adam Ford --> dim intTotBathrooms dim intX ' counter dim strHeading dim strMapLink const intSold = 4 const intUnderContract = 3 intX = 1 %> <% If Application("Down") = "" Then Application("Down") = false %> <% If Not (Application("Down")) Then %> <% select case request.querystring("cid") case 2 ' Investor Deals strHeading = "Investor Deals" case 3 ' Retail Houses strHeading = "Retail Houses" case 5 ' Lease Options strHeading = "Lease Options" case 6 ' For Rent strHEading = "For Rent" case 7 ' Commercial strHeading = "Commercial" end select %> <% intCategory = request.querystring("cid") %> <% while not objRS.EOF strMapLink = objRS("maplink") %> <% intTotBathrooms = objRS("FBathrooms") + (objRS("HBathrooms")/2) %> <% intX = intX + 1 %> <% objRS.movenext %> <% wend %>

<%= strHeading %>
<%= intX & ".  "%>	<%= objRS("CityName") %>	<%= objRS("Address") %> <% if objRS("Bedrooms")>0 then response.write(" " & objRS("Bedrooms") & " ") end if %> <% if objRS("Bedrooms")>1 then response.write("bedrooms, ") else response.write("bedroom, ") end if %> <% if intTotBathrooms>0 then response.write(" " & intTotBathrooms & " ") end if %> <% if intTotBathrooms>1 then response.write("bathrooms, ") else response.write("bathroom, ") end if %> <%= objRS("SFeet") & " sq. feet " %> <%= objRS("Comments") & " "%> For more information send email to " class="acflink"><%= objRS("ContactName") & " " %> or call at <%= response.write("(" & left(objRS("ContactPhone"),3) & ") " & mid(objRS("ContactPhone"),4,3) & "-" & right(objRS("ContactPhone"),4) & " ") %> <% if strMapLink <> "" Then response.Write("Get A Map ") %> <% if objRS("Filename") <> "" then %>" class="acflink" target="_new">Click here for picture<% end if %>	<%= formatcurrency(objRS("Price"),2) %>
			<% if objRS("SID")=intSold then %><% elseif objRS("SID")=intUnderContract then %><% end if %>

<% strHeading = empty intX = empty intTotBathrooms = empty %> <% End If %>