 |
|
<%@ Language = VBScript %>
<%
response.buffer = true
response.expiresAbsolute = #1/1/2000#
response.CacheControl = "Private"
dim relative_path_to_database
dim this_page
dim table_name
dim item_type
item_type = "property"
this_page = "propertylistings"
table_name = "properties"
relative_path_to_database = "2020applications.mdb"
%>
|
 |
 |
<%
x=0
with cn.Execute("SELECT COUNT(PropertyID) as aaa from properties where featured=true")
if not .eof then
x=.fields("aaa").value
end if
end with
randomize()
y=cint(x*rnd())
if y=0 then y=1
with cn.Execute("SELECT top 1 PropertyID, Display_Title, general_description, city, province, county from properties where propertyid in (select top " & y & " propertyid from properties where featured=true order by propertyid desc)")
if not .eof then
%>
<%
set sub_rs = cn.Execute("SELECT "& item_type &"_images.imageURL FROM "& item_type &"_images WHERE "& item_type &"ID = "& .fields("propertyID").value &" AND isPhoto ORDER BY order_number;")
IF sub_rs.bof AND sub_rs.eof THEN
'
ELSE
sub_rs.movefirst
%>
"> " width=98 height=74 border=0 alt="Click here for more information about this <%=item_type%>."> |
<%
END IF
sub_rs.close
set sub_rs=nothing
%>
| <%=.fields("display_title").value%> |
<%=.fields("general_description").value%>
<%=.fields("city").value%>, <%=.fields("province").value%> <%= .fields("county").value %>
|
|
"> |
<%
end if
end with
%>
|
 |
 |
|
|
|
|
|
|
|
 |
 |
|
|
|
 |
|
 |
|
Belvedere Business Park
8020-8140 Belvedere Road
West Palm Beach, Florida
Site 109,360 s.f.
Office / Warehouse
|
|
 |
|
|
 |
|
 |
|
Vista Business Park - West
2253-2257 Vista Parkway
West Palm Beach, Florida
Site 101,250 s.f.
Office / Warehouse
|
|
|
|
|
 |
|
 |
|
Vista Business Park - North
6903-6931 Vista Parkway North
West Palm Beach, Florida
Site 75,245 s.f.
Office / Warehouse
|
|
|
|
 |
|
|
|
|
