[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 (Not rsItm.EOF) then
rsItm.MoveNext
end if
if (Not rsItm.EOF) then
rsItm.MoveNext
end if
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 = 30
Do While (Not rsItm.EOF) and (NroTitulares <=TotTitulares)
IdNoticia = rsItm("IdNoticia")
Titulo = rsItm("Titulo")
Sumario = rsItm("Sumario")
Imagen1 = rsItm("Imagen1")
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%>
