Que tal, tengo la siguiente aplicacion para un formulario:
<%
asunto = "Pedido de presupuesto desde sitio Web"
email = "
[email protected]"
nombre = Request.Form ("nombre")
direccion = Request.Form ("direccion")
telefono = Request.Form ("telefono")
email = Request.Form ("email")
ciudad = Request.form ("ciudad")
pais = Request.form ("pais")
evento = Request.form ("evento")
fecha de evento = Request.form ("otro2")
como se entero de nosotros? = Request.form ("como")
si es otro espesifique = Request.form ("otro3")
comentarios = Request.Form ("comentarios")
mensaje = "Nombre: " & nombre & "<BR>Direccion: " & direccion & "<BR>Telefono: " & telefono & "<BR>E-mail: " & email & "<BR>Ciudad: " & ciudad & "<BR>Pais: " & pais & "<BR>Evento: " & evento & "<BR>Fecha de evento: " & otro2 & "<BR>Como se entero de nosotros?: " & como & "<BR>Si es otro espesifique: " & otro3 & "<BR>Comentarios: " & comentarios
Set objMailer = CreateObject("CDONTS.Newmail")
objMailer.From = email
objMailer.To = email
objMailer.Subject = asunto
objMailer.BodyFormat = 0
objMailer.MailFormat = 0
objMailer.Body = mensaje
objMailer.Send
Set objMailer = Nothing
Response.Redirect ("gracias.html")
%>
me gustaria que alguien me indique que estoy haciendo mal porque cuando la ejecuto, no me muestra la pagina de agradecimiento y tampoco envia el mail, solo dice que no se puede mostrar la pag. y sale un error HTTP 500 - Error interno del serividor.
Desde ya muy agradecido.