<%Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Ob_Conn.Open session("Pgenil")
Set Ob_Rs = Server.CreateObject ("ADODB.RecordSet")
sql="Select * from Noticias where Idarean like '43' and Parea='SI' order by Fechan, Copeten"
Ob_Rs.Open sql, Ob_Conn, 3, 3
If Ob_Rs.recordcount > 0 then
response.write "
Información de Fundación Juan Rejano
"
do while not Ob_Rs.eof
response.write ""&ucase(Ob_Rs("Copeten"))&" "&Ob_Rs("Fechan") &"
"
Ob_Rs.movenext
loop
end if
Ob_Rs.close
Ob_Conn.close%>