<% Dim FechaPublica1 FechaPublica1 = Year(Date()) & "" & Right("0"& Month(Date()),2) & "" & Right("0"& Day(Date()),2) %> <% Dim oRsBanners1 Dim oRsBanners1_cmd Dim oRsBanners1_numRows Set oRsBanners1_cmd = Server.CreateObject ("ADODB.Command") oRsBanners1_cmd.ActiveConnection = MM_bannersC_STRING oRsBanners1_cmd.CommandText = "SELECT * FROM Bannersv4 WHERE FechaPublica <= '"&FechaPublica1&"' AND FechaTermina >= '"&FechaPublica1&"' AND Estatus = 's' ORDER BY Posicion, FechaAlta ASC" oRsBanners1_cmd.Prepared = true Set oRsBanners1 = oRsBanners1_cmd.Execute oRsBanners1_numRows = 0 %> <% do while not oRsBanners1.eof %>
" class="">" border="0" style="width:auto; max-height:115px"/>
<% oRsBanners1.movenext loop %> <% oRsBanners1.Close() Set oRsBanners1 = Nothing %>