Ayuda con la página de resultados de un buscador

[mariogonz]

Otra cosita.
He modificado el documento de resultados.asp para que me muestre la información en forma de tabla de vez de casillitas como aparecía antes. De tal forma que aparezca como TÍTULO en cada celda de la tabla: Imagen, referencia, población, m2 ....
La cosa es que este título se me repite cada vez que aparece un inmueble.
¿hay alguna posibilidad de que sólo se vea una vez en cada hoja de resultados?


Este es el código que he modificado de resultados.asp:

<!--#include file="includes/globales.asp"-->
<%Server.Execute "cabecera.asp"%>

<td valign=top>&nbsp;</td>
<td width=100% colspan=2 valign=top align=center>

<%
' DATOS DE CONEXION ...
dim ruta
ruta = session("ruta")
Dim cnn
Dim str
Dim rs
Dim rs1
Dim SQL

cadena = "Driver={Microsoft Access Driver (*.mdb)};Dbq="&ruta&";Uid=Admin;Pwd=;"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open cadena
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn
Set rs1 = CreateObject("ADODB.Recordset")
rs1.ActiveConnection = cnn



Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos


dim contador
dim tipo, situacion, poblacion
dim habitaciones, ba, aseos
dim precio

if Request.Form("modo") <> "" then
modo = Request.Form("modo")
else
modo = Request.QueryString("modo")
end if

if Request.Form("precio") <> "" then
precio = meter_numero(Request.Form("precio"))
else
precio = meter_numero(Request.QueryString("precio"))
end if

if Request.Form("tipo") <> "" then
tipo = Request.Form("tipo")
else
tipo = Request.QueryString("tipo")
end if

if Request.Form("situacion") <> "" then
situacion = Request.Form("situacion")
else
situacion = Request.querystring("situacion")
end if

if Request.Form("poblacion") <> "" then
poblacion = Request.Form("poblacion")
else
poblacion = Request.querystring("poblacion")
end if

if Request.Form("habitaciones") <> "" then
habitaciones = Request.Form("habitaciones")
else
habitaciones = Request.QueryString("habitaciones")
end if

if Request.Form("baños") <> "" then
ba = Request.Form("baños")
else
ba = Request.QueryString("ba")
end if
if Request.Form("aseos") <> "" then
aseos = Request.Form("aseos")
else
aseos = Request.QueryString("aseos")
end if


sql = "select * from casas where vendida=0"

if modo <> "" then
sql = sql & " and modo='" & modo & "'"
end if

if tipo <> "Todos" then
sql = sql & " and tipo='" & tipo & "'"
end if
if situacion <> "Todas" then
sql = sql & " and situacion='" & situacion & "'"
end if
if poblacion <> "" then
sql = sql & " and poblacion_casa like '%" & poblacion & "%'"
end if
if habitaciones <> "" then
sql = sql & " and habitaciones>=" & habitaciones & ""
end if
if ba <> "" then
sql = sql & " and baños>=" & ba & ""
end if
if aseos <> "" then
sql = sql & " and aseos>=" & aseos & ""
end if



if modo <> "Alquiler" then
if precio <> 0 then

sql = sql & " and total<=" & precio & ""
end if
end if


'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=12

'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if



' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina

' Abro el recordset
rs.Open SQL, cnn, 1, 2

'Cuento las páginas
PaginasTotales=rs.PageCount

'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if

'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
PaginasTotales=0
%>

<table class="Tabla_Menu" align="center" width="95%">
<tr><td align="center"><b><i><font face="Verdana" size="2">Viviendas Encontradas</font></i></b></td></tr>
</table>
<table><tr><td></td></tr></table>

<table class="textito" align="center" width="95%">
<tr><td align="center"><b><i><font face="Verdana" size="2">No se ha encontrado ninguna vivienda con estos criterios</font></i></b></td></tr>
</table>
<table><tr><td></td></tr></table>

<%
else

'Vamos a paginar
rs.AbsolutePage=PaginaActual
%>
<table class="Tabla_Menu" align="center" width="95%">
<tr><td align="center"><b><i><font face="Verdana" size="2">Viviendas Encontradas</font></i></b></td></tr>
</table>
<table><tr><td></td></tr></table>
<%

CuantosRegistros=0
%><table width="95%" align="center" cellspacing="5" cellpadding="2">
<tr><%
do while not rs.EOF and CuantosRegistros < TamPagina
'Pinto una línea de la tabla por cada registro

%>



<table width="95%" align="center">
<tr>
<td class="Tabla_Listado" align="center"><strong>Imagen</strong></td>
<td class="Tabla_Listado" align="center"><strong>Referencia:</strong></td>
<td class="Tabla_Listado" align="center"><strong>Población</strong></td>
<td class="Tabla_Listado" align="center"><strong>M²</strong></td>
<td class="Tabla_Listado" align="center"><strong>Habitaciones</strong></td>
<td class="Tabla_Listado" align="center"><strong>Baños</strong></td>
<td class="Tabla_Listado" align="center"><strong>Aseos</strong></td>
<td class="Tabla_Listado" align="center"><strong>Precio</strong></td>
</tr>

<tr>
<td class="textito" align="center"><a href="ficha.asp?id=<%=rs("id")%>"><img border="0" width="50" height="45" src="<%=imagen(rs("foto1"))%>"></a></td>
<td class="textito" align="center"><%=rs("referencia")%></td>
<td class="textito" align="center"><%=rs("poblacion_casa")%></td>
<td class="textito" align="center"><%=rs("m2")%></td>
<td class="textito" align="center"><%=rs("Habitaciones")%></td>
<td class="textito" align="center"><%=rs("Baños")%></td>
<td class="textito" align="center"><%=rs("Aseos")%></td>
<td class="textito" align="center"><%=sacar_numero(rs("total")) & " " & moneda %></td>
</tr>






</table>
<%
CuantosRegistros=CuantosRegistros+1

contador = contador + 1
rs.MoveNext
if contador = 4 then
%><tr></tr><%
contador = 0
end if

loop


end if
rs.Close
cnn.Close
set rs=nothing
set cnn=nothing
%>

<%
'Muestro los enlaces
%>
<table align="center">
<tr>
<%
if PaginaActual > 1 then
%>
<td class=Tabla_Menu>
<%Response.Write("&nbsp;<A HREF=resultados.asp?tipo=" & tipo & "&situacion=" & situacion & "&modo=" & modo & "&poblacion=" & poblacion & "&habitaciones=" & habitaciones & "&ba=" & ba & "&aseos=" & aseos & "&precio=" & precio & "&pagina="& PaginaActual-1 & ">12 Anteriores</A>&nbsp;")%>
</td>&nbsp;
<%end if
if PaginaActual < PaginasTotales then
%>
<td class=Tabla_Menu>
<%Response.Write("&nbsp;<A HREF=resultados.asp?tipo=" & tipo & "&situacion=" & situacion & "&modo=" & modo & "&poblacion=" & poblacion & "&habitaciones=" & habitaciones & "&ba=" & ba & "&aseos=" & aseos & "&precio=" & precio & "&pagina=" & PaginaActual+1 &">12 Siguientes</A>&nbsp;")%>
</td>
<%end if%>
</tr></table>




</tr>
<tr>
<td>&nbsp;</td>
<td width=80%>&nbsp;</td>
<td>&nbsp;</td>
</tr>
</table>


<%=server.execute("pie.asp")%>