Cdonts

[Berletzis]

Oigan te un pex con un formulario con Cdonst para mandar mensajes a la cutnas de correo el pex que tengo esque namas manda uno mensaje. despues ya no que puedo hacer o porque sucede esto... o de que otra manera puedo hacer eso de mandar losd atos de un formulario a la cueta de correo bye gracias...

[Gurrutello]

Hola
por que no pones el codigo cdonts que tienes a ver ke se puede hacer
Saludos

[Berletzis]

<%
'declaramos las variables
Dim ObjMail,oConn

'obtenemos los valores del formulario de acuerdo al nombre de cada componente

Nombre= Request.Form("Nombre")
Ciudad= Request.Form("Ciudad")
Ocupacion=Request.Form("Ocupacion")
EMail=Request.Form("EMAil")
Tema=Request.Form("Tema")
Mensaje=Request.Form("Mensaje")

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=" + Server.MapPath ("Home.mdb"))
oConn.execute "INSERT INTO AsistenciaTec(Nombre,Ciudad,Ocupacion,EMail,Tema,M ensaje) VALUES('"&Nombre&"','"&Ciudad&"','"&Ocupacion&"',' "&EMail&"','"&Tema&"','"&Mensaje&"')"
oConn.Close
Set oConn = nothing



Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.To = "[email protected],[email protected] "
ObjMail.From = "[email protected]"
ObjMail.Subject = "AsistenciaTecnica"
objMail.Body = "Nombre: " & Nombre & vbcrlf&_
"Ciudad: " & Ciudad & vbcrlf&_
"Ocupacion: " & Ocupacion & vbcrlf&_
"EMail: " & EMail & vbcrlf&_
"Tema: " & Tema & vbcrlf&_
"Mensaje: " & Mensaje



ObjMail.Send
Set ObjMail = Nothing

Response.Redirect "GRACIAS.ASP"
%>