<%@ LANGUAGE="VBScript" %>
<%
on error resume next
Set CN = CreateObject("ADODB.Connection")
CN.Open(Session("DSN"))
ls_sql = "select a.apartment_id, street_number , apartment_price, apartment_size, image_1_url from apartment a,presentation p "
ls_sql = ls_sql + " where selected_apt_flag = 'Y' and a.apartment_id = p.apartment_id"
ls_sql = ls_sql + " and ext_rentalsale = 'R' and active = 'Y' "
ls_sql = ls_sql + " order by rand(datepart(ms,getdate())) "
set RSRentals = CN.execute(ls_sql)
ls_sql = "select a.apartment_id, street_number , apartment_price, apartment_size, image_1_url from apartment a,presentation p "
ls_sql = ls_sql + " where selected_apt_flag = 'Y' and a.apartment_id = p.apartment_id"
ls_sql = ls_sql + " and ext_rentalsale = 'S' and active = 'Y' "
ls_sql = ls_sql + " order by rand(datepart(ms,getdate())) "
set RSSales = CN.execute(ls_sql)
Function AddCommas(an_number)
as_number = cstr(an_number)
val = 1
spos = len(as_number) + 1
for x = 1 to len(as_number)
IF mid(as_number,x,1) = "." THEN
spos = x
cfound = TRUE
END IF
next
FOR x = spos - 1 to 1 step -1
as_return = mid(as_number,x,1) + as_return
IF val = 3 and x <> 1 then
as_return = "," + as_return
val = 0
END IF
val = val + 1
next
IF cfound = TRUE THEN as_return = as_return + mid(as_number,len(as_number) - 2, len(as_number) )
AddCommas = as_return
End Function
%>
ArdorNY.com-New York City-Manhattan-Real Estate Made Easy!Apartment and Home Sales and Rentals, Office and Retail Space,
and Investment Properties.
