<% fid = cint(request("id")) Dim oConn,strSQL, objRS Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/centrodelacultura.mdb")) strSQL = "SELECT * FROM Noticias WHERE id=" & fid & " ORDER BY id DESC" Set objRS = oConn.Execute(strSQL) %>

<%if not objRS("imagen")="" then%> <%end if%>     Si lo desea, puede darse de alta en nuestro servicio de alertas pulsando aquí       <%=ucase(objRS("titular"))%> (<%=objRS("dia")%>/<%=objRS("mes")%>/<%=objRS("anio")%>)     " border="1">       <%=objRS("resumen")%>         <%=objRS("cuerpo")%>       [atrás]