<% Set con = Server.CreateObject("ADODB.Connection") Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath("noticias.mdb")) sql = "SELECT * FROM titulares2 WHERE id=" & Request.QueryString("id") & "" 'Ejecuta un sentencia SQL de consulta 'Recorre todas las filas del resultado set result = Con.Execute(sql) Function ArreglaSaltos(cadena) cadena = Replace(cadena,vbCrLf,"
") ArreglaSaltos = cadena End Function Set RS = Server.CreateObject ("ADODB.RecordSet") %> <%=result("titulo")%>

<%=result("subtitulo")%>

<%=result("titulo")%>

<%=result("copete")%>


<% if result("imagen01")<> blank then Response.Write "
" end if %>

<%=arreglasaltos(result("noticia"))%>

;" data-width="900" data-num-posts="10">

 

 

Los diseñadores de este sitio web, no somos responsables de su contenido. Las notas y comentarios son propiedad y responsabilidad de quien las firma.
©2013 - Contenidos: Revista Panorama - Venado Tuerto - Santa Fe - Argentina