aspemail y guardar datos en .mdb

tocalasam · #1 (**permalink**) 06/06/2007, 05:11

Buenas

Este es el codigo que tengo para enviar mails desde .asp
¿sabeis como podria hacer para que el contenido de los campos ("de") y ("mensaje") los podria guardar en una base de datos llamada mails.mdb con una tabla llamada emilios?

Código:

<%
'Recogemos los datos del formulario
de = Request.Form("de")
aquien = Request.Form("para")
mensaje = Request.Form("mensaje")
asunto = "Consulta desde Edirol Iberia.com"


Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.rolandiberia.com"
Mail.From = de
Mail.AddAddress para
Mail.Subject = asunto
'El mensaje en formato html
Mail.IsHTML = True


Mail.Body = "<HTML><BODY><p><font face=verdana size=2>De: "&de&"<br>Mensaje: "&mensaje&"<br><br></p><br>Enviado el "& Now() &"</font></BODY></HTML>"
On Error Resume Next
Mail.Send
If Err <> 0 Then
    Response.Write "Ha ocurrido el siguiente error: " &Err.Description
End If
%>

Cameron_2006 · #2 (**permalink**) 06/06/2007, 05:23

Yo haría esto:

<%

Set cons=Server.CreateObject("ADODB.connection")
Cons.open "miservidor.mibasededatos"
Set Rss=Server.CreateObject("ADODB.RecordSet")

'se recogen los datos del formulario, declarando las diferentes variables

de=request.form("de")
para=request.form("para")

ssqls="select * from tabla"
Rss.Open Ssqls,Cons,1,2
%>

<%
if de="" or paran="" then
error = "Debe completar todos los datos"
Response.write error
end if

if not de="" or not para="" then

Rss.AddNew
Rss("de")=de
Rss("para")=para

rss.update

'luego sigo con el correo

espero haberte ayudado con mis pocos conocimiento.

tocalasam · #3 (**permalink**) 20/06/2007, 15:31

muchas gracias, funciona a la perfeccion