%@LANGUAGE="VBSCRIPT"%>
<%
if Request.Form("fecha") > date() then
response.Redirect("errorFecha.asp")
End If
Dim rstRubro
Dim rstRubro_numRows
Set rstRubro = Server.CreateObject("ADODB.Recordset")
rstRubro.ActiveConnection = MM_lmnWeb_STRING
rstRubro.Source = "SELECT id_Rubro, Rubro, Nombre FROM Rubros ORDER BY Rubro ASC"
rstRubro.CursorType = 0
rstRubro.CursorLocation = 2
rstRubro.LockType = 1
rstRubro.Open()
rstRubro_numRows = 0
%>
<%
Dim rstAvisosDestacados__Var1
rstAvisosDestacados__Var1 = "21"
%>
<%
Dim rstAvisosDestacados__Var2
rstAvisosDestacados__Var2 = "22"
%>
<%
Dim rstAvisosConEstilo__Var1
rstAvisosConEstilo__Var1 = "20"
%>
<%
Dim rstAvisosConEstilo__Var2
rstAvisosConEstilo__Var2 = "26"
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rstAvisosDestacados_numRows = rstAvisosDestacados_numRows + Repeat1__numRows
%>
<%'del Rubro/SubRubro/Categoria:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::%>
Diario La Mañana Neuquen
<%
rstRubro.Close()
Set rstRubro = Nothing
%>