<%'GoLive Content Source set Destacados = ADORecordSet("cysdb" , "select * from Articulos where Seccion = 'Reportajes'", "block=1", "ArticuloID", "Destacados") %>

Ir al Inicio de Caza y Safaris
Número de Febrero de 2003
<% ' Abrir una conexi—n con libros SET dbMenu = Server.CreateObject ("ADODB.Connection") dbMenu.Open "cysdb" ' Construcci—n de una instrucci—n SQL strSQL="SELECT MenuID,TextoMenu,UrlMenu FROM Menu WHERE Activa='Si' ORDER BY MenuID" ' Ejecución de la consulta Set rsMenu=dbMenu.Execute(strSQL) %><%DO WHILE NOT rsMenu.EOF%>
<%= rsMenu ("TextoMenu")%>
<%rsMenu.MoveNext Loop 'Cierre de la base de datos rsMenu.Close dbMenu.Close Set rsMenu = Nothing Set dbMenu = Nothing%>


<%Set ad=Server.CreateObject("MSWC.AdRotator")%><%=ad.GetAdvertisement("/publi/redirect/Banner468Ad2.txt")%>
<% Destacados.MoveFirst %> <% while not Destacados.EOF %> <% Destacados.MoveNext %> <% wend %>

<%Set ad=Server.CreateObject("MSWC.AdRotator")%>

<%=ad.GetAdvertisement("/publi/redirect/Banner130Ad2.txt")%>
<%=ad.GetAdvertisement("/publi/redirect/Banner130Ad3.txt")%>


<% if 0 then %> <% end if %>