<%
'If IsObject(Session("conmcs")) Then
' Set conn = Session("conmcs")
'Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open("DSN=data")
' Set Session("conmcs") = conn
'End If
Response.Write("Organismos de la Archidiócesis de Valladolid")
Response.Write("" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "")
Response.Write("
Organismos de la Archidiócesis de Valladolid
" & Chr(13) & Chr(10))
Response.Write("
Curia Diocesana
" & Chr(13) & Chr(10) & "
")
sql = "SELECT Entidades.Clave AS Entidad, Nombre, Tipo, Subtipo, Curia, Área, Curia.Orden AS Orden FROM Entidades INNER JOIN Curia ON Entidades.Clave = Curia.Clave ORDER BY Curia, Área, Curia.Orden"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
Do While not rs.eof
If rs("Curia") <> CuriaAnt Then
Response.Write(Chr(13) & Chr(10) & "
" & Mid(rs("Curia"), 6) & "
")
CuriaAnt = rs("Curia")
End If
If rs("Área") <> AreaAnt Or IsNull(rs("Área")) Then
If Left(rs("Área"), 1) = "3" Then
Area = Mid(rs("Área"), 8)
Else
Area = rs("Área")
End If
Response.Write(Chr(13) & Chr(10) & "
" & Area & "
")
AreaAnt = rs("Área")
End If
Response.Write("" & rs("Nombre") & ". ")
rs.MoveNext
Loop
rs.Close
Response.Write("
" & Chr(13) & Chr(10))
Response.Write("
Otros organismos diocesanos
" & Chr(13) & Chr(10) & "
") ' Uso Left porque no funciona el LIKE!
sql = "SELECT Entidades.Clave AS Entidad, Nombre FROM Entidades WHERE (Tipo = 'Organismos' OR Tipo = 'Templos') AND Left(Comentarios, 9) = 'Diocesano' ORDER BY Nombre"
rs.Open sql, conn, 3, 3
Response.Write("
Otros organismos eclesiales no dependientes del Arzobispado
" & Chr(13) & Chr(10) & "
")
'sql = "SELECT Entidades.Clave AS Entidad, Nombre, Tipo, Subtipo FROM Entidades ORDER BY Nombre"
'rs.Open sql, conn, 3, 3
'Do While not rs.eof
'¿Centros de Form?, ¿Instituciones Afines?
' rs.MoveNext
'Loop
'rs.Close
conn.close
set rs=nothing
set conn=nothing
Response.Write("