<%
'empieza ASP busqueda
Dim tipo
tipo = ""
Dim zona
zona=""
Dim operacion
operacion=""
%>
<%
'paginado
Dim cnn, RS, busqeda
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' la cuenta que os he mencionado
'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=1
'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
'fin
Set cnn = server.createobject("adodb.connection")
cnn.Open "PROVIDER=Microsoft.jet.OLEDB.4.0; DATA SOURCE="&Server.MapPath("./Administracion/inmuebles.mdb")
busqueda="SELECT * FROM inmu WHERE promocion"
Set RS = server.CreateObject("ADODB.Recordset")
'paginado
' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
'fin
RS.Open busqueda,cnn,3,1
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
If RS.recordcount<>0 then
'paginado
rs.AbsolutePage=PaginaActual
CuantosRegistros=0
'fin
DO WHILE not RS.EOF and CuantosRegistros < TamPagina
%>
<%end if%>
<%if RS("tipo")="Naves industriales" OR RS("tipo")="Suelo industrial" OR RS("tipo")= "Parcelas edificables" OR RS("tipo")="Fincas y montes" OR RS("tipo")="Otros"then%>
<%
loop
'cerramos el recordset e liberamos a memória usada
RS.close
set RS=nothing
cnn.close
set cnn=nothing
'final resultados de la busqueda
'response.Write("")
%>
<%
%>
