<%@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én Diario La Mañana Neuquen
 
CLASIFICADOS ON LINE
   

 
Bienvenido a los Clasificados On Line. Seleccione una Fecha de Publicación, el Rubro, Subrubro y Categoría de los avisos que desea visualizar y luego haga click en la opción Buscar.

Fecha:
Seleccionar Fecha
Rubro:
   
 Subrubro:
   
Categoría:
   



 

La Mañana Neuquen
Redacción Cómo anunciar  |  Webmaster
Neuquen - Fotheringham 445 - Teléfono 449 0400
Copyright © 2002-2004 - La Mañana Neuquen - Todos los derechos reservados
 
 
 



Min.: 2°c
Máx.:
18°c
Cielo algo nublado. Vientos leves del sector oeste.

 Transportes Interurbanos
 Guía Profesional
 Teléfonos de urgencia
 Farmacias de turno
 Transporte Aéreo
 Quiniela
 Horóscopo
 
 
 
 
 

Cine
Teatro
Recitales
Televisión
Videos

 
 

Revista Caras
 
 
<% rstRubro.Close() Set rstRubro = Nothing %> <% rstSubRubro.Close() Set rstSubRubro = Nothing %> <% rstCategorias.Close() Set rstCategorias = Nothing %> <% rstAvisosDestacados.Close() Set rstAvisosDestacados = Nothing %> <% rstAvisosConEstilo.Close() Set rstAvisosConEstilo = Nothing %>