Apartamentos Rurales La Coruja del Ebro.

Centro de Turismo rural.

Menú

-- - - - - - - - --

Los apartamentos

<% 'DSN="coruja" Set DSN = Server.CreateObject("ADODB.Connection") DSN.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath("coruja.mdb")) sql="select *,tipos.nombre as nomtip from actividades,tipos where actividades.tipo_actividad=tipos.tipo_actividad" '********************** If Request.QueryString("PosicionPagina") = "" Then intPosicionRegistroPorPagina = 1 Else intPosicionRegistroPorPagina = CInt(Request.QueryString("PosicionPagina")) End If intRegistrosPorPagina=108 Set rs = Server.CreateObject("ADODB.Recordset") 'Consultar con la BD rs.Open sql, DSN, 3 'Contar el numero de registros encontrados lngTotalRegistrosEnecontrados = CLng(rs.RecordCount) 'Establecer numero de registros a mostrar por pagina rs.PageSize = intRegistrosPorPagina 'Coger el numero de pagina del registro a mostrar IF NOT rs.EOF Then rs.AbsolutePage = intPosicionRegistroPorPagina 'Contar el numero de paginas que mostrara el resultado, calculado del Pagesize lngTotalNumeroPaginas = CLng(rs.PageCount) 'calcular el numero de registros mostrados desde hasta intMostrarDesde = (intPosicionRegistroPorPagina - 1) * intRegistrosPorPagina + 1 intMostrarHasta = (intPosicionRegistroPorPagina - 1) * intRegistrosPorPagina + intRegistrosPorPagina If intMostrarHasta > lngTotalRegistrosEnecontrados Then intMostrarHasta = lngTotalRegistrosEnecontrados %>

actividades

<% if rs.eof then resultados="No hay ningun resultado" For intContadorRegistros = 1 to intRegistrosPorPagina 'Si no hay registros a mostrar salir del bucle If rs.EOF Then Exit For %>

<%=rs("nombre")%> <%=rs("nomtip")%> ">Descargar <% rs.movenext next %> <% 'Si hay mas paginas a mostrar If intPosicionRegistroPorPagina > 1 OR NOT rs.EOF Then 'Mostrar los links a otros resultados Response.Write vbCrLf & "

" Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "

" Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "

" 'Si hay mas paginas If intPosicionRegistroPorPagina > 1 or NOT rs.EOF Then End If 'Si el numero de pagina es > 1 mostrar anterior If intPosicionRegistroPorPagina > 1 Then Response.Write vbCrLf & " :: anterior " End If 'Si hay mas paginas a mostrar mostrar los links a todas las paginas de resultados If intPosicionRegistroPorPagina > 1 or NOT rs.EOF Then 'Bucle para mostrar el numero de paginas total con sus links ' For intNumeroPaginaLink = 1 to lngTotalNumeroPaginas if intPosicionRegistroPorPagina>9 then siguiente=intPosicionRegistroPorPagina+9 anterior=intPosicionRegistroPorPagina-9 if siguiente>lngTotalNumeroPaginas Then siguiente=lngTotalNumeroPaginas anterior=lngTotalNumeroPaginas-9 end if else if lngTotalNumeroPaginas>9 Then siguiente=10 else siguiente=lngTotalNumeroPaginas end if anterior=1 end if For intNumeroPaginaLink = anterior to siguiente 'No hacer link si estamos sobre la q estamos visualizando If intNumeroPaginaLink = intPosicionRegistroPorPagina Then Response.Write vbCrLf & " " & intNumeroPaginaLink &"" Else Response.Write vbCrLf & " " & intNumeroPaginaLink & " " End If Next End If 'Si no es el final de los resualtados mostrar un link de proximos If NOT rs.EOF then Response.Write vbCrLf & " siguiente ::" End If 'Finalizar tabla HTML Response.Write vbCrLf & "

" Response.Write vbCrLf & "

" End If 'Cerrar tabla HTML Set rs = Nothing %>