Mi Pregonero

<%@LANGUAGE="VBSCRIPT"%> <% ' *** 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 %> <% 'If (CStr(Request("enviar")) <> "") and (Request.Form("correo") <> "") Then If Request.Form("correo") <> "" Then dim dir_correo,pass,nom,ape,resultado,mensaje resultado = 0 dir_correo = Request.Form("correo") MMColParam = Request.Form("correo") if (Request("MM_EmptyValue") <> "") then MMColParam = Request("MM_EmptyValue") set r_correo = Server.CreateObject("ADODB.Recordset") r_correo.ActiveConnection = MM_correomy_STRING r_correo.Source = "SELECT password, nombre, apellidos FROM usuarios WHERE usuario = '" + Replace(MMColParam, "'", "''") + "'" r_correo.CursorType = 0 r_correo.CursorLocation = 2 r_correo.LockType = 3 r_correo.Open() r_correo_numRows = 0 If not r_correo.EOF then Set mail = Server.CreateObject("CDONTS.NewMail") Mail.Host = "localhost" Mail.From = "info@mipregonero.com" Mail.To = dir_correo Mail.Subject = "Se le hace saber que:" pass = r_correo.Fields.Item("password").Value nom = r_correo.Fields.Item("nombre").Value ape = r_correo.Fields.Item("apellidos").Value ' Mail.Body = "

Se le hace saber que:

Estimado Sr: " + Replace(nom,"'","''") +" " + Replace(ape,"'","''") +"

Su palabre de paso es '" + Replace(pass,"'","''") +"'

Gracias por utilizar nuestros servicios

" mensaje = "Sr: "+ Replace(nom,"'","''") +" " + Replace(ape,"'","''") + " se le hace saber que:" & VbCrLf mensaje = mensaje & VbCrlf & VbCrLf &" Su palabra de paso es: " + Replace(pass,"'","''") mensaje = mensaje & VbCrlf & VbCrLf &" Gracias por utilizar nuestros servicios." Mail.Body = men Mail.Send Set Mail = Nothing On Error Resume Next If Err <> 0 Then resultado = 2 else resultado = 1 End If else resultado = 3 End if r_correo.Close() end if %> Mi Pregonero

<%if (Session("MM_Username") <> "") then%>

<%else%>

<% end if %>


Funcionamiento

Condiciones

Contactanos

Spam

Denuncia Spam

DARME YA DE ALTA

Anunciantes

Hosting

Introduce tu usuario (correo electrónico)

<%If resultado = 1 then Response.Write "Datos enviados correctamente" end if If resultado = 2 then Response.Write "Perdón. Ha ocurrido un error al enviar el correo" end if if resultado = 3 then Response.Write "La dirección de correo es erronea" end if %>

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