<%=RS("Titulo")%>

<%@LCID = 1034%> <% sSQL="SELECT * FROM Cultura WHERE Id=" & Request.QueryString("Id") & "" 'constantes ADO VBScript 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\juventud.mdb" RS.Open sSQL,Conn,adopenstatic,adcmdtext %> <%=RS("Titulo")%> /> "/> <% 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 Cultura WHERE Id=" & Request.QueryString("Id") & "" 'constantes ADO VBScript 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\juventud.mdb" RS.Open sSQL,Conn,adopenstatic,adcmdtext descripcion = tex(RS("Descripcion")) %>

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

Fecha :

<%=RS("fecha")%>

Hora :

<%=RS("hora")%>

Lugar

<%=RS("Lugar")%>

Descripción

<%=descripcion%>

<% if RS("Imagen")<>"" then%>

" width=300 alt="<%=RS("titulo")%>"> <%end if%>

" target="_blank">

imprimir - 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.