<% Dim AdoCon Dim RsSearch Dim SQLProj Dim RsPrc Dim SQLPrc Dim Uname Dim SQLSearch Dim SQLL Dim i If Request.QueryString("NAV") = "" Then intPage = 1 Else intPage = Request.QueryString("NAV") End If '------Create Connection----------------------------------- Set AdoCon = server.createobject("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("\DB\fh.mdb") SQLSearch ="select * from ListedProperties order by uploadDate DESC" Set RsSearch = server.createobject("ADODB.RECORDSET") '---------------------------------------------------------------- RsSearch.CursorLocation = 3 'adUseClient RsSearch.CursorType = 3 'adOpenStatic RsSearch.ActiveConnection = AdoCon RsSearch.Open SQLSearch,AdoCon,3,3 RsSearch.PageSize = 5 Dim intRecordCount RsSearch.CacheSize = RsSearch.PageSize intPageCount = RsSearch.PageCount intRecordCount = RsSearch.RecordCount If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount If CInt(intPage) <= 0 Then intPage = 1 If intRecordCount > 0 Then RsSearch.AbsolutePage = intPage intStart = RsSearch.AbsolutePosition If CInt(intPage) = CInt(intPageCount) Then intFinish = intRecordCount Else intFinish = intStart + (RsSearch.PageSize - 1) End if End If %> View Listed Properties | Future Homes Dubai
 
 Home  Dubai City Guide  Investors  Plots  Classifieds Awards
Listed Properties:-
Total Records:<%=intRecordCount%>
<%If intRecordCount > 0 Then%> You are now viewing records <%=intStart%> through <%=intFinish%>
<% For intRecord = 1 to RsSearch.PageSize%>
" width="125" height="100" border="0" /> <%=RsSearch("propTitle")%>
Type <%=RsSearch("propType")%> Bedroom <%=RsSearch("bedroom")%>
Country <%=RsSearch("country")%> Location <%=RsSearch("location")%>
Price (AED) <%Dim exc,Fprice,Fprice1 Fprice = RsSearch("price") Fprice1 = FormatCurrency(Fprice, 0) Fprice1 = replace(Fprice1,"$","") %> <%=Fprice1%> Area(Sq.Ft) <%=RsSearch("area")%>
<% IF Uname ="" Then%> »View Details <%ELSE%> »View Enquiries <%END IF%>
<%RsSearch.MoveNext%> <%If RsSearch.EOF Then Exit for%> <%Next%>
<%' Check to see if the current page is greater than the first page ' in the recordset. If it is, then add a "Previous" link. If cInt(intPage) > 1 Then %> « Prev | <%End IF%> <% ' Check to see if the current page is less than the last page ' in the recordset. If it is, then add a "Next" link. If cInt(intPage) < cInt(intPageCount) Then %> Total Pages:   Current Page : Go to page <%Dim counter cp = intPage for counter = 1 to intPageCount%> | <% if counter = cint(cp) then%> <%end if%> <%response.write counter next %> |Next » <%End If%> <%End If%>
Press Releases
Dubai Freehold Maps
Dubai Presentation
<%if session("msg") = "Welcome" then%> <%else%> <%end if%>
Contact Us |  About us | Disclaimer | Careers
 
This website and all content is © 2007 - futurehomesdubai.com
All rights reserved. Please read our Privacy Policy