<%@LANGUAGE="VBSCRIPT"%> <% Dim categoriaventas Dim categoriaventas_numRows Set categoriaventas = Server.CreateObject("ADODB.Recordset") categoriaventas.ActiveConnection = MM_agropecuaria_STRING categoriaventas.Source = "SELECT * FROM dbo.categoriaventas ORDER BY tabulador ASC" categoriaventas.CursorType = 0 categoriaventas.CursorLocation = 2 categoriaventas.LockType = 1 categoriaventas.Open() categoriaventas_numRows = 0 %> <% Dim categoriadirectorio Dim categoriadirectorio_numRows Set categoriadirectorio = Server.CreateObject("ADODB.Recordset") categoriadirectorio.ActiveConnection = MM_agropecuaria_STRING categoriadirectorio.Source = "SELECT * FROM dbo.categoriadirectorio ORDER BY categoria ASC" categoriadirectorio.CursorType = 0 categoriadirectorio.CursorLocation = 2 categoriadirectorio.LockType = 1 categoriadirectorio.Open() categoriadirectorio_numRows = 0 %> <% Dim noticias Dim noticias_numRows Set noticias = Server.CreateObject("ADODB.Recordset") noticias.ActiveConnection = MM_noticias_STRING noticias.Source = "SELECT * FROM news ORDER BY newsID DESC" noticias.CursorType = 0 noticias.CursorLocation = 2 noticias.LockType = 1 noticias.Open() noticias_numRows = 0 %> <% Dim eventos Dim eventos_numRows Set eventos = Server.CreateObject("ADODB.Recordset") eventos.ActiveConnection = MM_eventos_STRING eventos.Source = "SELECT * FROM news ORDER BY newsDate asc" eventos.CursorType = 0 eventos.CursorLocation = 2 eventos.LockType = 1 eventos.Open() eventos_numRows = 0 %> <% Dim directorio__MMColParam directorio__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then directorio__MMColParam = Request("MM_EmptyValue") End If %> <% Dim directorio Dim directorio_numRows Set directorio = Server.CreateObject("ADODB.Recordset") directorio.ActiveConnection = MM_agropecuaria_STRING directorio.Source = "SELECT * FROM dbo.directorio WHERE destacados = " + Replace(directorio__MMColParam, "'", "''") + " and status=1 and categoria = 6 ORDER BY idregistro DESC" directorio.CursorType = 0 directorio.CursorLocation = 2 directorio.LockType = 1 directorio.Open() directorio_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 categoriaventas_numRows = categoriaventas_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 categoriadirectorio_numRows = categoriadirectorio_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 3 Repeat3__index = 0 noticias_numRows = noticias_numRows + Repeat3__numRows %> <% Dim Repeat6__numRows Dim Repeat6__index Repeat6__numRows = 4 Repeat6__index = 0 compras_numRows = compras_numRows + Repeat6__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = 6 Repeat5__index = 0 directorio_numRows = directorio_numRows + Repeat5__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = 4 Repeat4__index = 0 eventos_numRows = eventos_numRows + Repeat4__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> miagropecuaria.com :: BIENVENIDOS ::
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
INSCRIPCIONES
PEDIGREE
CUTTING
Registro Usuario
Usuarios
Contactos


PADRILLOS DE VENEZUELA
TODOS EN UN SOLO LUGAR

Por primera vez en Venezuela los mejores padrillos en un solo lugar
No te pierdas una experiencia que solo te la puede ofrecer
la 2da Copa www.miagropecuaria.com

La Genetica y La Belleza de VENEZUELA

     
     
padrote
     
padrote
     
     
 
     
 
     
 
     
 
     
 
     
 
     
 
     
 
     
 
     
   
MUY PROTONTO LOS 30 PADRILLOS JUNTOS "Pendiente!!!!!!!!!"
  Western  
 Noticias
Eventos
Registro
Contactos
Usuarios
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ayuda | Mapa web | Información general | Publicidad | Condiciones Legales | Información Corporativa
© copyright: Miagropecuaria.com

<% categoriaventas.Close() Set categoriaventas = Nothing %> <% categoriadirectorio.Close() Set categoriadirectorio = Nothing %> <% noticias.Close() Set noticias = Nothing %> <% eventos.Close() Set eventos = Nothing %> <% directorio.Close() Set directorio = Nothing %>