Hola mi nombre es Juan y nesecito una ayuda para que funcione un formulario en ASP sobre la pagina www.comiteolomega.com/form.html
cuando le coloco enviar me da un error HTTP 500 internal server problem
este es el codigo:
<html>
<head> Formulario</head>
<body>
<form method="post" action="mail.asp">
<p>Nombre:
<input type="text" name="nom" />
</p>
<p>Empresa:
<input type="text" name="emp" />
</p>
<p>Sugerencias:
<textarea name="sug" cols="35"></textarea>
</p>
<p>
<input type="submit" name="Submit" value="Enviar" />
<input type="reset" name="submit2" value="Limpiar" />
</p>
</form>
</body>
</html>
y ademas realizo el programa de "mail.asp"
este es el codigo
<html>
<head>
<title>Documento sin título</title>
</head>
<body>
<%
'Creacion de variables para almacenar los campos del formulario
Nombre= Request.Form("nom")
Empresa= Request.Form("emp")
Sugerencias= Request.Form("sug")
strTo = "
[email protected]" 'Esta es una direccion de correo que corresponda a nustro servidor
strSubject = "Envio de Sugerencuias de: " & Nombre
strBody = "<html><body>"
strBody = strBody & " Este es un mensaje generado por el formulario:" &
"<br></br>"
strBody = strBody & "Nombre: "& Nombre &"<br>"
strBody = strBody & "Empresa: "& Empresa &"<br>"
strBody = strBody & "Sugerencias: "& Sugerencias &"<br>"
strBody = strBody & "</body></html>"
Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'Creación del objeto
objCDOMail.From = "
[email protected]" 'No hay problema en que sea la
misma que la anterior.
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.BodyFormat=0 'Estas dos línes
objCDOMail.MailFormat=0 'permiten formatear mejor el mensaje
objCDOMail.Body = strBody
objCDOMail.Send 'Envía el mail
Set objCDOMail = Nothing
Response.redirect "thanks.asp"
%>
</body>
</html>
Tambien hago refererencia a una pagina llamada "thanks.asp" pero es puro texto.
Gracias por su tiempo y que Dios le vendiga.
Juan Rivero