<%
'declaramos las variables
Dim xname,x,zname,z
xname = "Nombre"
x= Request.Form("x")
zname = "Apellido"
z= Request.Form("z")
Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
'introducir la dirección de correo donde se recibira el formulario
ObjMail.To = "info@jxx.org"
'Cambia la dirección de e-mail (correo que aparecera como remitente)
ObjMail.From = "info@jxxx.org"
'titulo que aparecera como subject del mensaje puedes elegir el titulo que quieras
ObjMail.Subject = "Formulario admitido"
ObjMail.Body = xname & vbcrlf&_
x & vbcrlf&_
zname & vbcrlf&_
z
ObjMail.Send
Set ObjMail = Nothing
'redireccionamos a una página de confirmación de envio
Response.Redirect "http://jmcweb.org"
%>