Segui tu consejo y lo coloque asi:
<%
'Recupero los datos del formulario
nombre=Request.Form("nombre")
response.write (nombre)
email=Request.Form("email")
response.write (email)
asunto=Request.Form("asunto")
response.write (asunto)
mensaje=Request.Form("mensaje")
response.write (mensaje)
'Creo el objeto que envia el correo
Set NewMail=server.CreateObject("CDONTS.Newmail")
NewMail.From=email
NewMail.To="
[email protected]"
NewMail.Subject=asunto
NewMail.Body=mensaje
'NewMail.Send
On Error resume Next
NewMail.Send
If err.number<>0 then
response.write err.description
response.end
else%>
<html><head><title>Titulo</title></head>
<body>
Muchas gracias por su mensaje
</body>
</html>
<%Set NewMail=nothing%>
Y me dice esto:
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03F6)
Se esperaba 'End'
/asp/envio_e_mail-2.asp, línea 31
sera que no lo coloque bien, me puedes explicar lo que sucede
Miguel
