<%
Dim RSnoticias,SQlnoticias,Conncaballeros,tabla,I
Set RSnoticias = Server.CreateObject("ADODb.RecordSet")
Set Conncaballeros = Server.CreateObject("ADODB.Connection")
Conncaballeros.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("caballeros.mdb")&";"
SQLnoticias="Select id,titular,resumen,cuerpo,fecha,enlace,destino,estado,orden,tipo,parrafo1 from noticias where estado='Activo' order by fechareal desc "
RSnoticias.Open SQLnoticias,Conncaballeros,1,3
tabla=Rsnoticias.GetRows()
RSnoticias.close
Set RSnoticias=nothing
Conncaballeros.close
Set Conncaballeros = nothing
id=0
titular=1
resumen=2
cuerpo=3
fecha=4
enlace=5
destino=6
estado=7
orden=8
tipo=9
parrafo1=10
%>
Ilustre Capítulo de los Caballeros de Nuestra Señora María de Valvanera
:: Noticias::
<% for i=0 to Ubound(tabla,2) %>
<% = tabla(titular,I) %>
<% = tabla(fecha,I) %>
<% if tabla(resumen,I) <>"-" then %>
<% = tabla(resumen,I) %>
<% end if %>
<% if tabla(cuerpo,I) <>"-" or tabla(parrafo1,i)<>"-" then %>
