<%@LCID = 1034%> <%sSQL="SELECT * FROM noticias WHERE Idnoticia=" & Request.QueryString("Idnoticia") & "" 'constantes ADO VBScript 'Const adCmdText = &H0001 'Const adOpenStatic = 3%> " /> " /> <%=RS("Titular")%> "/> <% RS.Close Conn.Close %> <% 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 noticias WHERE Idnoticia=" & Request.QueryString("Idnoticia") & "" 'constantes ADO VBScript 'Const adCmdText = &H0001 'Const adOpenStatic = 3%> <%dia = Day(RS("fecha")) mes = Month(RS("fecha")) ano = Year(RS("fecha")) fecha=dia&"/"&mes&"/"&ano %> <%texto1 = tex(RS("Descripcion"))%>

<%=fecha%>

Compártelo: &src=sp" target="_blank">Compártelo en Facebook | &linkname=<%=RS("titular")%>" target="_blank">Compártelo en Twitter |&t=<%=RS("titular")%>" target="_blank">Compártelo en Myspace

<%=RS("titular")%>

<%=RS("subtitular")%>

" alt="Imagen : <%=RS("titular")%>" class="imagen" /><%=texto1%>
volver
<% 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.