%
response.write time()
SET dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open(Application("rls2000_ConnectionString"))
sql = "select listing_id from tblhome_listing where agent_id = '104440'"
set rs = dbconn.execute(sql)
if not rs.eof then
alldata=rs.getrows
for i = 0 to ubound(alldata,2)
response.write alldata(0,i) & "
"
next
end if
rs.close
set rs = nothing
dbconn.close
set dbconn = nothing
response.write time()
%>blank page