Portal Joven - Excmo Ayuntamiento de La Roda

Imagen desde la Torre de La Iglesia de El Salvador

<% sSQL="SELECT * FROM documentos WHERE categoria='"&request.QueryString("categoria")&"'ORDER BY FECHA ASC" 'constantes ADO VBScript 'Const adCmdText = &H0001 'Const adOpenStatic = 3 If Request.QueryString("pag")<>"" Then Session("pagina")=Request.QueryString("pag") Else Session("pagina")=1 End If%>

<%cat=request.QueryString("categoria")%>

<%=request.QueryString("categoria")%>

<% If RS.EOF AND RS.BOF Then%>

No hay ningún documento en este momento

<%else num_registros=10 RS.PageSize=num_registros RS.AbsolutePage=Session("pagina") While (Not RS.eof AND registros_mostrados < num_registros) registros_mostrados=registros_mostrados+1 capas=capas+1 %>

" alt="<%=RS("Tipo")%>"/>

" class="documentos"><%=RS("Descripcion")%>

<%if capas=2 then%>

<%capas=0 end if%> <% RS.MoveNext Wend %>

Página:<%=Session("pagina")%> de <%=RS.PageCount%>
Mas Documentos:>> <% i=0 While i <%=i%>

<% Wend End if RS.Close Conn.Close %>