Observatorio de la Discapacidad - Excmo Ayuntamiento de La Roda

Imagen desde la Torre de La Iglesia de El Salvador

<% sSQL="SELECT * FROM galerias 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%> MULTIMEDIA

Carpeta Abierta Galerías de Imagenes

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

No hay ninguna galería 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=capa+1%>

" class="documentos" style="font-size:12px ">

| <%=RS("nombre")%>

<% if capas=2 then%>

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

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

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

Videos

<% If Request.QueryString("pagV")<>"" Then Session("paginaV")=Request.QueryString("pagV") Else Session("paginaV")=1 End If sSQL="SELECT * FROM videos ORDER BY id desc" Set Conn = Server.CreateObject("ADODB.Connection") Set Command = Server.CreateObject("ADODB.Command") Set RS =Server.CreateObject("ADODB.RecordSet") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\XVRT\laroda.es\DATA\discapacidad.mdb" RS.Open sSQL,Conn,adopenstatic,adcmdtext If RS.EOF AND RS.BOF Then%>Sin videos <% else num_registros=10 RS.PageSize=num_registros RS.AbsolutePage=Session("paginaV") %>

<% While (Not RS.eof and ya<10) ya=ya+1 %>

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

"/>

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

<% rs.movenext wend%>

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