<%@LCID = 1034%> Centro de la Mujer - 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



dejala soñar dejala vivir
<% sSQL="SELECT * FROM noticias ORDER BY FECHA DESC" '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%>

últimas noticias

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

No hay ninguna noticia en este momento

<%else num_registros=9 RS.PageSize=num_registros RS.AbsolutePage=Session("pagina") While (Not RS.eof AND registros_mostrados < num_registros) dia = Day(RS("fecha")) mes = Month(RS("fecha")) ano = Year(RS("fecha")) fecha=dia&"/"&mes&"/"&ano registros_mostrados=registros_mostrados+1 capas=capas+1 subtitular = LEFT(rs("subtitular"),159) %> <% RS.MoveNext Wend %>

__________________

Página:<%=Session("pagina")%> de <%=RS.PageCount%>
Mas Noticias:>> <% 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.