Documentos
de Obispos y Diócesis de Chile
Nuestras bases de datos están siendo actualizadas. Temporalmente
no se
podrá acceder a los documentos que Ud. busca
<%
'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 = 'documento') and (emisordoc = 'OBISPO') ORDER BY 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("autor") & " :
" & result.Fields("titulo")& "
" & "" & "Fecha: " & result.Fields("fecha") & "]" & "
"
'Pasa a la siguiente fila
result.MoveNext
Loop
'Libera memoria
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>