<% Dim AdoCon Dim RsSearch Dim SQLProj Dim RsPrc Dim SQLPrc Dim Uname Dim SQLSearch Dim SQLL Dim i OPER = request.querystring("OP") SQLGEN = request.form("TXTSQL") 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" 'response.write SQLSearch 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 = 10 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 | Resale properties | Rental Properties | Future Homes Dubai
<%RsSearch.close set RsSearch = nothing AdoCon.close set AdoCon = nothing %>
Listed Properties:-
<%if session("msg") = "Welcome" then%> <%else%> <%end if%>
Total Records:<%=intRecordCount%>
<%If intRecordCount > 0 Then%>
You are now viewing records <%=intStart%> through <%=intFinish%>
<% For intRecord = 1 to RsSearch.PageSize%>
<%=RsSearch("propTitle")%>
" width="150" height="125" border="1" />
Type
<%=RsSearch("propType")%>
Bedroom
<%=RsSearch("bedroom")%>
Area(Sq.Ft)
<%=RsSearch("area")%>
Location
<%=RsSearch("location")%>
Price (AED)
<%Dim exc,Fprice,Fprice1 Fprice = RsSearch("price") Fprice1 = FormatCurrency(Fprice, 0) Fprice1 = replace(Fprice1,"$","") %> <%=Fprice1%>
<% 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%>
Contact Us |  About us | Disclaimer | Careers
 
This website and all content is © 2007 - futurehomesdubai.com
All rights reserved. Please read our Privacy Policy