<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Portal Joven - Excmo Ayuntamiento de La Roda <% Function tex(cadena) cadena = Replace(cadena,vbCrLf,"
") tex = cadena End Function Const totalzonas = 5 Randomize Dim foto zona = Int((totalzonas * Rnd) + 1) if zona =1 then foto="arriba2.jpg" end if if zona =2 then foto="arriba2_2.jpg" end if if zona =3 then foto="arriba2_3.jpg" end if if zona =4 then foto="arriba2_4.jpg" end if if zona =5 then foto="arriba2_5.jpg" end if %> <% hora=Time() hora1=CDate("7:25:50") hora2=CDate("19:25:50") if hora>hora1 and hora
Imagen desde la Torre de La Iglesia de El Salvador
tablon de anuncios

documentos


mas documentos

<% 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 ">icono documento | <%=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 %>

 


Escucha Radio La Roda en Directo
RSS Agenda de La Roda
© 2009 Excmo. Ayuntamiento de La Roda. Todos Los Derechos Reservados.