<% response.buffer=true %> <% response.expires=0 %> <% strDate=date() Dim interval interval=-2 strLogdate=DateAdd("d", interval, strDate) %>

contact  |  menu options

SHARES & SUBLETS INTERNATIONAL

Main

Edit Profile

Message Board

All Listings

Bed & Breakfast

Sublet Agreement

Share Agreement

Log Out

Member   Guest   Account   Shares+Sublets+B&B   Status   pending  Opened   <%=strDate%>

These properties are available now, as of <%=strDate%>. Register here to become a member and get full access to our online database!

Listings Added Since Your Last Login: <%=strLogdate%> Sort Listings By Rent By Date Available Immediately Available Indefinitely Share and Sublet LISTINGS

" DO UNTIL RS.eof OR howmanyrecs>=maxrecs if k Mod 2 = 0 then strColor="#eeeeee" else strColor="#ffffff" end if DIV1=4 DIV2=30 strRate=RS.Fields("Rate") strPeriod=RS.Fields("Period") if strPeriod="week" then strRate=strRate/DIV1 end if if strPeriod="day" then strRate=strRate/DIV2 end if Response.write "" Response.write "" Response.write "" Response.write "" k=k+1 RS.movenext howmanyrecs=howmanyrecs+1 LOOP RS.Close Set RS=Nothing Response.write "" Response.Write " Apartment Location Price Availability Print  Select All <% sql = "Select * from tblListedApartments where TypeListing in ('Share', 'Sublet') and AvailableNow=1 order by BCode asc, Rate asc;" mypage=request("whichpage") If mypage="" then mypage=1 end if mypagesize=request("pagesize") If mypagesize="" then mypagesize=20 end if mysql=request("sqlQuery") IF mysql="" THEN mysql=sql END IF Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open strConnect Set RS=Server.CreateObject("ADODB.Recordset") RS.cursorlocation=aduseclient RS.cachesize=5 RS.open mysql,strConnect 'RS=Conn.Execute(mysql) on error resume next RS.MoveFirst RS.PageSize=mypagesize maxpages=cint(RS.PageCount) maxrecs=cint(RS.PageSize) RS.AbsolutePage=mypage howmanyrecs=0 k=1 response.write "Page " & mypage & " of " & maxpages & " #" & RS.fields("LApartmentID") & " " Response.write "" & RS.Fields("TypeListing") & " " if strLogdate<= RS.Fields("DateListed") then Response.write " new" end if Response.write " " & RS.Fields("Borough") & " " & RS.Fields("Neighborhood") & " $" & strRate & " / " & strPeriod & " " Response.write "" Response.write "" Response.write "" Response.write " " Response.write "From Until Avail Brm Total Brm Apt Type " if RS.Fields("Immediately")=true then Response.write "immediately" else Response.Write RS.Fields("AvailFrom") end if Response.write " " if RS.Fields("Indefinitely")=true then Response.write "indefinitely" else Response.Write RS.Fields("AvailUntil") end if Response.write " " if RS.Fields("AvailBed") = "" or isNull(RS.Fields("AvailBed"))=true then Response.Write "N/A" else Response.write RS.Fields("AvailBed") end if Response.write " " & RS.Fields("TotalBed") & " " & RS.Fields("TypeApartment") & " " Response.write "   Select Page: " Call PageNavBar sub PageNavBar() pad="" scriptname="sample.asp" if (mypage mod 10) = 0 then counterstart = mypage - 9 else counterstart = mypage - (mypage mod 10) + 1 end if counterend = counterstart + 9 if counterend > maxpages then counterend = maxpages if counterstart <> 1 then ref="First : " Response.Write ref ref="Previous " Response.Write ref end if Response.Write "[" for counter=counterstart to counterend If counter>=9 then pad="" end if if cstr(counter) <> mypage then ref="" & pad & counter & "" else ref="" & pad & counter & "" end if response.write ref if counter <> counterend then response.write " " next Response.Write "]" if counterend <> maxpages then ref=" Next" Response.Write ref ref=" : Last" Response.Write ref end if end sub Conn.Close set Conn=Nothing %>

	© Shares & Sublets International, 1991-2000. All rights reserved.