Formulario: busqueda en BD luego con esos datos, enviar mail??? Bien. la idea es la siguiente:
Un usuario se olvidó su contraseña...
Entra a un formulario donde llena ciertos datos, estos datos se verifican en la BD y si son correctos, se deberia enviar los datos de contraseña y usuario a la persona que los requiere.
vale decir que el email del usuario esta en la base de datos.
proceso:
formulario > asp1 > base > asp1 > mail del usuario
asp1:
toma datos del formulario, compara con la base, envia formulario al user...
el codigo que sue para eso es el siguiente:
<%Dim mandaDATA
' lo de arriba crea la variable
Set mandaDATA = Server.CreateObject("ADODB.Connection")
ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; "
ConnStr = ConnStr & "DBQ=" & Server.MapPath("userSEC.mdb")
mandaDATA.Open(ConnStr)
SQLtemp = "SELECT * FROM userREG WHERE dni = '" & Request.Form("dni") & "' "
Set rs = mandaDATA.Execute(SQLtemp)
while not rs.eof
If dni = rs("dni") then
Destino = "[email protected]"
servidor = "smtp.lorien.com"
titulo = "reenvio de Clave y Usuario de Acceso"
'Asignamos los valores recibidos del formulario a las variables
'Estas variables deben estar en el formulario dentro del swf
'aca empiezan a sacarse los datos de la empresa del usuario
empresa = Request("empresa")
direlocal = Request("direlocal")
tellocal = Request("tellocal")
'aca empiezan los datos del usuario
nombre = Request("nombre")
apellido = Request("apellido")
dni = Request("dni")
direccion = Request("direccion")
localidad = Request("localidad")
provincia = Request("provincia")
telefono = Request("telefono")
celular = Request("celular")
email = Request("email")
cp = Request("cp")
'Creamos una instancia del objeto ASPMAIL
Set Mail = Server.CreateObject("Persits.MailSender")
' Creamos el cuerpo del mensaje
strBody = strBody & "<font>"
strBody = strBody & "<b>Datos de la empresa del vendedor/usuario:</b><br>"
strBody = strBody & "Empresa: " & empresa & "<br>"
strBody = strBody & "Dirección del Local: " & direlocal & "<br>"
strBody = strBody & "Teléfono del Local: " & tellocal & "<br><br>"
strBody = strBody & "<b>Datos del vendedor/usuario:</b><br> "
strBody = strBody & " Nombre: " & nombre & "<br>"
strBody = strBody & " Apellido: " & apellido & "<br>"
strBody = strBody & " Ducumento de Identidad (DNI): " & dni & "<br>"
strBody = strBody & " Dirección: " & direccion & "<br>"
strBody = strBody & " Localidad: " & localidad & "<br>"
strBody = strBody & " Provincia: " & provincia & "<br>"
strBody = strBody & " Código Postal: " & cp & "<br>"
strBody = strBody & " Teléfono: " & telefono & "<br>"
strBody = strBody & " Correo Electrónico: " & email & "" & chr(11)
strBody = strBody & "</font>"
'Asignamos las propiedades al objeto con ASPMAIL
Mail.Host = servidor
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
Mail.From = rs("email")
Mail.FromName = Email ' Opcional
Mail.Subject = titulo
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress Destino
On Error Resume Next
Mail.Send
' El control del error es con ASPMAIL
'el siguiente codigo es para HTML limpio o ASP en los formularios. Si se va a usar flash, borrarlo y usar el de arriba.
If Err <> 0 Then
Response.Write "Error, Por favor intente enviarlo más tarde " & Err.Description
Else
Response.Write "El mensaje fue enviado correctamente ¡Gracias por comunicarse con nosotros!"
End If
'Destruimos el objeto con aspmail
Set Mail = Nothing
rs.Close
mandaDATA.Close
set ConnStr = Nothing
%>
bien, en todo eso debe haber algun error porque no funciona... ojo! no tengo mucha idea de ASP el codigo lo fui deduciendo y armando con pedacitos de otros codigos que ya tengo y funcionan correctamente.
Muchas gracias por cualquier respuesta y espero no molestar tanto con estas cosas :)
Atte, Ariel
