| |
<%
'Start of main properties listing
notfeat = "No"
query ="select * from properties WHERE featured ='" & notfeat & "' ORDER BY description"
Set RSList=server.CreateObject("ADODB.recordset")
RSList.open query,database,3
dim numpages
dim currentpage
RSList.pagesize=8
if request.querystring("page")="" then currentpage=1 else currentpage=CInt(request.querystring("page"))end if
numpages=RSList.PageCount
If currentpage > numpages then currentpage = numpages
If currentpage < 1 then numpages =1
If numpages =0 then
%>
<%
response.write "No properties match your search criteria. Please try again"
%>
<%
response.end
end if
c=RSList.recordcount
s=s+" "+cstr(c)+" "
If c <>1 then
s="We have"
elseif c=1 then
s="We have"
end if
s=s+" "+cstr(c)+" "
if c<>1 then
s=s+"properties to show you"
elseif c=1 then
s=s+"property to show you"
end if %>
<%
response.write(" " +s)
If currentpage <> 0 then RSList.AbsolutePage=currentpage end if
%>
Description (Click
description for Details) |
Price |
Status |
<%
dim numrows
numrows =0
do until RSList.eof or numrows >=RSList.PageSize
confirstname=RSlist("owner_firstname")
consurname=RSlist ("owner_surname")
concounty=RSList("county")
conprice=RSList("price")
condescription=RSList("description")
constatus=RSList("status")
conpic=RSList("picture")
%>
|
<%=conprice%> |
<%=constatus%> |
|
<%
RSList.movenext
numrows=numrows+1
loop
%>
|
|
| |
<%
RSList.close
set RSList=nothing
database.close
set database =nothing
%>
|
|
 |
 |
 |
