<%@Language="VBScript" LCID="5130"%> <% Session.LCID=5130 %> <%TituloHeader = "Revista Rhombus"%>

<% ' ______________________________________________________ '| | '| SISTEMA DE NOTICIAS | ULACIT | '|______________________________________________________| ' ********************* Declaración de Conexión a Base de Datos *************************************** Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/revista/revista.mdb") ' ************************** Fin de Conexión a Base Datos ********************************************* Set rsNoticias = Server.CreateObject("ADODB.Recordset") rsNoticias.CursorLocation = 3 rsNoticias.Open "SELECT * FROM noticias order by idnoticia;", oConn, 3, 1, 1 If Not rsNoticias.EOF Then Do While Not rsNoticias.EOF idnoticia = rsNoticias("idnoticia") titulo = rsNoticias("titulo") resumen = rsNoticias("resumen") articulo = rsNoticias("articulo") %> <% i = i + 1 rsNoticias.MoveNext Loop Else %> <% End If rsNoticias.Close Set rsNoticias = Nothing %> Revista Rhombus > Artículos    <%=Titulo%>    <%=Resumen%>   Leer todo el articulo>