miagropecuaria.com :: BIENVENIDOS ::

<%@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 estados Dim estados_numRows Set estados = Server.CreateObject("ADODB.Recordset") estados.ActiveConnection = MM_agropecuaria_STRING estados.Source = "SELECT * FROM dbo.states ORDER BY name ASC" estados.CursorType = 0 estados.CursorLocation = 2 estados.LockType = 1 estados.Open() estados_numRows = 0 %> <% Dim listacategorias Dim listacategorias_numRows Set listacategorias = Server.CreateObject("ADODB.Recordset") listacategorias.ActiveConnection = MM_agropecuaria_STRING listacategorias.Source = "SELECT * FROM dbo.categoriadirectorio ORDER BY categoria ASC" listacategorias.CursorType = 0 listacategorias.CursorLocation = 2 listacategorias.LockType = 1 listacategorias.Open() listacategorias_numRows = 0 %> <% Dim planesdirectorio Dim planesdirectorio_numRows Set planesdirectorio = Server.CreateObject("ADODB.Recordset") planesdirectorio.ActiveConnection = MM_agropecuaria_STRING planesdirectorio.Source = "SELECT * FROM dbo.plandirectorios" planesdirectorio.CursorType = 0 planesdirectorio.CursorLocation = 2 planesdirectorio.LockType = 1 planesdirectorio.Open() planesdirectorio_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 %> miagropecuaria.com :: BIENVENIDOS ::

------------------------------------------------------------------------------------------------------------------------------------------------------------

Noticias

Eventos

Registro

Contactos

Usuarios

<% While ((Repeat1__numRows <> 0) AND (NOT categoriaventas.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 categoriaventas.MoveNext() Wend %>

" class="linkmarron"><%=(categoriaventas.Fields.Item("categoria").Value)%>

Publicar Aviso

Anuncios de Compras

Publicar Aviso

<% While ((Repeat2__numRows <> 0) AND (NOT categoriadirectorio.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 categoriadirectorio.MoveNext() Wend %>

" class="linkmarron"><%=(categoriadirectorio.Fields.Item("categoria").Value)%>

Búsqueda Avanzada

Registrar en Directorio

Ventas Online

Calendario de Eventos

Foro de Discusión

Juegos

Links

Noticias

Publicaciones

Descargables

Clima

Bovinos

Equinos

Porcinos

Perros

Aves

Conejos

Caprinos y Ovinos

Pastos

Caña de azúcar

Flores

Otros

Registrese en nuestro Directorio

Complete el siguiente formulario rellenando todos los campos:

Razon Social / Nombre:
Dirección:
Telefono:
Fax:
Email:
Ciudad:
Estado:
Persona de Contacto:
Telefono de Contacto:
Email de Contacto:
Categoria:
Actividad Comercial:
URL:
Plan Seleccionado:
Aceptar Condiciones:	Condiciones del Servicio