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 categoria 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 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 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("email")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="menu.asp" MM_redirectLoginFailed="login.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_agropecuaria_STRING MM_rsUser.Source = "SELECT email, password" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM dbo.organizadores WHERE email='" & Replace(MM_valUsername,"'","''") &"' AND password='" & Replace(Request.Form("password"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> miagropecuaria.com :: BIENVENIDOS ::

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

Western

Noticias

Eventos

Registro Organizador

Clave Organizador

<% 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

Links

Noticias

Publicaciones

Descargables

Clima

Ingreso al Sistema de Eventos

Para publicar su evento o adminitrarlos, use la dirección email registrada y el password para ingresar al sistema.

Western

Noticias

Eventos

Registro

Contactos

Usuarios

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

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