<% response.buffer=true %> <% response.expires=0 %> SHARES & SUBLETS INT'L <% 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%> 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 Print Listing Selection 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 "FromUntilAvail BrmTotal BrmApt 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.