<%@LANGUAGE="VBSCRIPT"%> <% ' *** 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= Replace(Request.Form("usuario"),"'","") MM_valPassword= Replace(Request.Form("password"),"'","") If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="miembros/miembros.asp" MM_redirectLoginFailed="index.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_correomy_STRING MM_rsUser.Source = "SELECT usuario, password" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM usuarios WHERE usuario='" & MM_valUsername &"' AND password='" & MM_valPassword & "'" 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 %> <% ' *** Logout the current user. MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Abandon Response.Redirect("index.asp") end if %> Mi Pregonero - La mejor manera de ganar diero y anunciarse en internet

<%if (Session("MM_Username") <> "") then%>
  Datos Personales Estadísticas Referidos Baja Cerrar Sesión
<%else%>
 
<% end if %>
 Funcionamiento  
 Condiciones  
 Contactanos  
 Spam  
 Denuncia Spam  


  DARME YA DE ALTA
 
 Anunciantes  
 Hosting  

 

 
 

Animate a ganar dinero!!!

Mi pregonero es la manera mas sencilla y fácil de ganar dinero en Internet y recibir información solo de tu interés.

Te damos 0,03 euros por cada correo que recibas tu y 0,01 por los correos que reciban tus referidos (4 niveles de referidos), y por cada referido directo te damos 0,1 euro.

Este es el mejor momento para apuntarte porque acabamos de nacer y los primeros en apuntarse son los que tendrán mas facilidad de crear buenas cadenas de referidos.

¿Porque apuntarte a mi pregonero?



Usuario:
 
 Pasword:

 Recupera tu contraseña

 
 
Últimas Campañas

Software For PC
Comprar Libros
Casinos en Internet
Buscador de Cursos
Tv Gratis Online
   Informacion de Casinos
Apuestas en Internet
Low Cost
Ganar Dinero

Páginas Recomendadas Para cualquier duda o sugerencia no dudes en contacta con nosotros      Mi Pregonero.com 2001-2008.