%@LANGUAGE="VBSCRIPT"%>
<%
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 rstSubRubro
Dim rstSubRubro_numRows
Set rstSubRubro = Server.CreateObject("ADODB.Recordset")
rstSubRubro.ActiveConnection = MM_lmnWeb_STRING
'rstSubRubro.Source = "SELECT * FROM SubRubros ORDER BY Nombre ASC"
rstSubRubro.Source = "SELECT id_Subrubro, id_Rubro, SubRubro, Nombre FROM SubRubros ORDER BY id_Rubro,SubRubro ASC"
rstSubRubro.CursorType = 0
rstSubRubro.CursorLocation = 2
rstSubRubro.LockType = 1
rstSubRubro.Open()
rstSubRubro_numRows = 0
%>
<%
Dim rstCategorias
Dim rstCategorias_numRows
Set rstCategorias = Server.CreateObject("ADODB.Recordset")
rstCategorias.ActiveConnection = MM_lmnWeb_STRING
rstCategorias.Source = "SELECT * FROM view_CategoriasPorSubRubro ORDER BY Nombre ASC"
rstCategorias.Source = "SELECT * FROM view_CategoriasPorSubRubro ORDER BY id_SubRubro,Nombre desc"
rstCategorias.CursorType = 0
rstCategorias.CursorLocation = 2
rstCategorias.LockType = 1
rstCategorias.Open()
rstCategorias_numRows = 0
%>
<%
Dim rstAvisosDestacados__Var3
rstAvisosDestacados__Var3 = "23/07/2004"
If (Request.Form("Fecha") <> "") Then
rstAvisosDestacados__Var3 = Request.Form("Fecha")
End If
%>
<%
Dim rstAvisosDestacados__Var1
rstAvisosDestacados__Var1 = "21"
%>
<%
Dim rstAvisosDestacados__Var2
rstAvisosDestacados__Var2 = "22"
%>
<%
Dim rstAvisosDestacados
Dim rstAvisosDestacados_numRows
Set rstAvisosDestacados = Server.CreateObject("ADODB.Recordset")
rstAvisosDestacados.ActiveConnection = MM_lmnWeb_STRING
rstAvisosDestacados.Source = "SELECT * FROM view_Avisos_Publicados WHERE (Id_AvisoTipo = " + Replace(rstAvisosDestacados__Var1, "'", "''") + " OR Id_AvisoTipo = " + Replace(rstAvisosDestacados__Var2, "'", "''") + ") AND Texto Is Not Null AND RutaArchivo Is Not Null AND Fecha = '" + Replace(rstAvisosDestacados__Var3, "'", "''") + "'"
rstAvisosDestacados.CursorType = 0
rstAvisosDestacados.CursorLocation = 2
rstAvisosDestacados.LockType = 1
rstAvisosDestacados.Open()
rstAvisosDestacados_numRows = 0
%>
<%
Dim rstAvisosConEstilo__Var3
rstAvisosConEstilo__Var3 = "23/07/2004"
If (Request.Form("Fecha") <> "") Then
rstAvisosConEstilo__Var3 = Request.Form("Fecha")
End If
%>
<%
Dim rstAvisosConEstilo__Var1
rstAvisosConEstilo__Var1 = "20"
%>
<%
Dim rstAvisosConEstilo__Var2
rstAvisosConEstilo__Var2 = "26"
%>
<%
Dim rstAvisosConEstilo
Dim rstAvisosConEstilo_numRows
Set rstAvisosConEstilo = Server.CreateObject("ADODB.Recordset")
rstAvisosConEstilo.ActiveConnection = MM_lmnWeb_STRING
rstAvisosConEstilo.Source = "SELECT * FROM view_Avisos_Publicados WHERE (Id_AvisoTipo = " + Replace(rstAvisosConEstilo__Var1, "'", "''") + " OR Id_AvisoTipo = " + Replace(rstAvisosConEstilo__Var2, "'", "''") + ") AND Texto Is Not Null AND RutaArchivo Is Not Null AND Fecha = '" + Replace(rstAvisosConEstilo__Var3, "'", "''") + "'"
rstAvisosConEstilo.CursorType = 0
rstAvisosConEstilo.CursorLocation = 2
rstAvisosConEstilo.LockType = 1
rstAvisosConEstilo.Open()
rstAvisosDestacados_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rstAvisosDestacados_numRows = rstAvisosDestacados_numRows + Repeat1__numRows
%>
<%'funciones del Rubro/SubRubro/Categoria:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
%>
<%'del Rubro/SubRubro/Categoria:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::%>
Diario La Mañana de NeuquénDiario La Mañana Neuquen