[an error occurred while processing this directive]
<%
Set cnPortal = Server.CreateObject("ADODB.Connection")
cnPortal.Open strCN,"",""
Set rsItm = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Noticias Where (Activa >= 2) and (IdTipo=1) ORDER BY IdNoticia Desc;"
rsItm.Open sql, cnPortal, adOpenStatic, adLockReadOnly
if (Not rsItm.EOF) then
rsItm.MoveNext
end if
If rsItm.EOF Then%>
No hay Noticias para visualizar
<%
else
' Empezar una tabla HTML.
' Recorrer todos los registros de elemento concordantes, creando
' una fila de tabla HTML para cada uno.
On Error Resume Next
NroTitulares = 1
TotTitulares = 3
Do While (Not rsItm.EOF) and (NroTitulares <=TotTitulares)
IdNoticia = rsItm("IdNoticia")
Titulo = rsItm("Titulo")
Sumario = rsItm("Sumario")
Imagen2 = rsItm("Imagen2")
Visor = "BuscarNoticias.asp"
%>
<% rsItm.MoveNext
NroTitulares = NroTitulares + 1
Loop
' Terminar la tabla HTML.
' Cerrar y destruir el objeto Recordset.
rsItm.Close
Set rsItm = Nothing
' Cerrar y destruir el objeto Connection.
cnPortal.Close
Set cnPortal = Nothing%>
