Foros del Web » Programando para Internet » ASP Clásico »

aspemail y guardar datos en .mdb

Estas en el tema de aspemail y guardar datos en .mdb en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 06/06/2007, 05:11
 
Fecha de Ingreso: julio-2003
Ubicación: Barcelona
Mensajes: 142
Antigüedad: 20 años, 10 meses
Puntos: 1
Sonrisa aspemail y guardar datos en .mdb

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
%>
  #2 (permalink)  
Antiguo 06/06/2007, 05:23
Avatar de Cameron_2006  
Fecha de Ingreso: diciembre-2006
Mensajes: 248
Antigüedad: 17 años, 5 meses
Puntos: 0
Re: aspemail y guardar datos en .mdb

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.
  #3 (permalink)  
Antiguo 20/06/2007, 15:31
 
Fecha de Ingreso: julio-2003
Ubicación: Barcelona
Mensajes: 142
Antigüedad: 20 años, 10 meses
Puntos: 1
Re: aspemail y guardar datos en .mdb

muchas gracias, funciona a la perfeccion
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:25.