Noticias de las diócesis de Chile

<% 'Abre la conexion con la base de datos a traves de una conexion ODBC Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("sion/noticias.mdb")&";" 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM Noticias WHERE (tipo = 'noticia') and (diocesis NOT LIKE 'INTERNACIONAL') and (diocesis NOT LIKE '%CECH%') ORDER BY DIOCESIS ASC, Id DESC" Set result = con.Execute(sql) 'Recorre todas las filas del resultado Do While Not result.EOF 'Muestra la fila actual Response.Write "

"& "•" & result.Fields("diocesis") & " : " & result.Fields("titulo")& "" & "" & " [" & result.Fields("fecha") & "]" & "

" 'Pasa a la siguiente fila result.MoveNext Loop 'Libera memoria result.Close Set result = Nothing con.Close Set con = Nothing %>