<%
if RsProjectsSN.recordcount = 0 then
response.write "No projects for this category"
else
numCols = 5
response.write "
"
Dim OPMIG
i = 0
do while not RsProjectsSN.eof
OPIMG = RsProjectsSN("image")
OPIMG = (replace(OPIMG," ","%20"))
needFooter = true
if i mod numCols = 0 then
response.write "
"
end if
'response.write "
" & RsProjectsSN.fields("county_name") & "
"
response.write "
" & RsProjectsSN("property_name") & "
"
if i mod numCols = numCols - 1 then
response.write "
"
needFooter = false
end if
i = i + 1
RsProjectsSN.movenext
loop
if needFooter then
response.write "
"
end if
response.write "
"
end if
%>
Completed Projects
<%
if RsProjectsCOM.recordcount = 0 then
response.write "No projects for this category"
else
numColsCom = 5
response.write "
"
Dim OPIMG1
i = 0
do while not RsProjectsCOM.eof
OPIMG1 = RsProjectsCOM("image")
OPIMG1 = (replace(OPIMG1," ","%20"))
needFooter = true
if i mod numColsCom = 0 then
response.write "
"
end if
'response.write "
" & RsProjectsCOM.fields("county_name") & "
"
response.write "
" & RsProjectsCOM("property_name") & "
"
if i mod numColsCom = numColsCom - 1 then
response.write "
"
needFooter = false
end if
i = i + 1
RsProjectsCOM.movenext
loop
if needFooter then
response.write "
"
end if
response.write "
"
end if
%>
Projects available on Resale
<%
if RsProjectsRESALE.recordcount = 0 then
response.write "No projects for this category"
else
numColsRes = 5
response.write "
"
Dim OPIMG2
i = 0
do while not RsProjectsRESALE.eof
OPIMG2 = RsProjectsRESALE("image")
OPIMG2 = (replace(OPIMG2," ","%20"))
needFooter = true
if i mod numColsRes = 0 then
response.write "
"
end if
'response.write "
" & RsProjectsRESALE.fields("county_name") & "
"
response.write "
" & RsProjectsRESALE("property_name") & "
"
if i mod numColsRes = numColsRes - 1 then
response.write "
"
needFooter = false
end if
i = i + 1
RsProjectsRESALE.movenext
loop
if needFooter then
response.write "