Portal del Voluntariado en La Roda

<% sSQL="SELECT * FROM imagenes WHERE galeria='"&request.QueryString("categoria")&"' ORDER BY titulo 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")%>

Carpeta Abierta Galería de Imagen : <% =Request.QueryString("categoria") %>

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

No hay ninguna imagen en este momento

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

&titulo=<%=RS("titulo")%>">

" style="border:none" alt="<%=RS("titulo")%>"/>
<%=RS("titulo")%>

<% if capas=2 then%>

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

Página:<%=Session("pagina")%> de <%=RS.PageCount%>
Mas imagenes:>> <% i=0 While i <%=i%> <% Wend End if RS.Close Conn.Close %>