<%@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=CStr(Request.Form("email")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="newsletter_index.htm" MM_redirectLoginFailed="/confirmations/wrong_login.asp" MM_flag="ADODB.Recordset" set mm_conn = Server.CreateObject("ADODB.Connection") set MM_rsUser = Server.CreateObject(MM_flag) 'MM_rsUser.ActiveConnection = MM_mailing_STRING stringConexion="Data Source=" + Server.mappath("/data/mailing.mdb") + ";Persist Security Info=False;" mm_conn.ConnectionTimeout = 10 mm_conn.CommandTimeout = 0 mm_conn.Provider = "Microsoft.Jet.OLEDB.4.0" mm_conn.open stringConexion 'MM_rsUser.Source = "SELECT email, zipcode" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization 'MM_rsUser.Source = MM_rsUser.Source & " FROM mailing WHERE email='" & MM_valUsername &"' AND zipcode='" & CStr(Request.Form("zipcode")) & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 strSQL="SELECT usuario_email, usuario_codpos FROM usuario WHERE usuario_email='" & MM_valUsername &"' AND usuario_codpos='" & CStr(Request.Form("zipcode")) & "'" 'MM_rsUser.Open stringConexion MM_rsUser.Open strSQL, mm_conn, 2, 4 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 %> Club de Peruanos de Estados Unidos
 www.clubdeperuanos.com  
Wester Union Nuevo Mundo Travel
Entérate que esta pasando en nuestra comunidad en los Estados Unidos. Ve las fotos de tus amigos disfrutando la vida nocturna de Miami, New York o Los Angeles. Infórmate sobre oportunidades de negocios y trabajo o sobre los eventos culturales, sociales y deportivos. Actualizate con los cambios en las leyes de inmigración. Descubre los mejores restaurantes Peruanos en los Estados Unidos…..Todo esto completamente gratis. Solo registrate aquí y todos los meses recibirás el boletín del @ClubdePeruanos en los Estados Unidos completamente gratis.
Si ya se registro, entonces ingrese aquí  :
Email:
Codigo Postal:

PRIMERO REGISTRATE GRATIS AQUI !!!

 Si quieres conocer el @ClubdePeruanos antes de registrarte, cliquea aquí para ingresar a nuestro boletin del mes anterior.
: : Club de Peruanos de Estados Unidos : :