Formulario que no funciona

erpeko · #1 (**permalink**) 12/06/2006, 17:30

Holas

Estoy tratando de ejecutar correctamente el sgte formulario en mi server (Windows 2000 Advanced Server SP4/IIS 5.0), el codigo fuente lo consegui en Internet y debe funcionar sin mayores problemas pero hasta el momento no he tenido exito, que estoy haciendo mal?

Cada vez que trato de enviar el formulario me sale el sgte error:
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03EA)
Error de sintaxis
/mail.asp, line 13, column 70

Codigo fuente form.html
<html>
<head>
</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>

Codigo fuente mail.asp

%
'Creación 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 dirección que corresponda a
nuestro servidor
strSubject = "Envio de sugerencias 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 "gracias.html"
' O bien podemos ahorrar una página y escribir algo como
' Response.write "Gracias por enviarnos sus sugerencias"
%>

Tengo el servicio SMTP iniciado y no se en donde puede estar radicando el problema, ojala puedan orientarme y pueda solucionarlo.. se los agradeceria.

GaboMaKano · #2 (**permalink**) 12/06/2006, 17:34

y el componenete CDONTS, tambien esta correctamente instalado?

u_goldman · #3 (**permalink**) 12/06/2006, 17:58

Mas bien pon la linea 13.

erpeko · #4 (**permalink**) 12/06/2006, 18:01

Porian indicarme por si acaso como verifico que este correctamente instalado? he buscado y si tengo el archivo cdonts.dll

El_Metallick · #5 (**permalink**) 12/06/2006, 18:30

si no me equivoco tu error esta aca:

Código:

 strBody = strBody & "Este es un mensaje generado por el formulario:" &

reemplazalo por esto:

Código:

 strBody = strBody & "Este es un mensaje generado por el formulario:"

Saludos

Myakire · #6 (**permalink**) 12/06/2006, 18:51

más bien por

Cita:

strBody = strBody & "Este es un mensaje generado por el formulario: <br><br>"

digo, sino dónde quedan los dos saltos de lineas, jeje (claro, si se envía en formato HTML)

El_Metallick · #7 (**permalink**) 12/06/2006, 19:03

a bueno es que no habia vito esos saltos de linea... saludos

erpeko · #8 (**permalink**) 14/06/2006, 11:53

Muchas gracias por su ayuda, el script esta trabajando ahora pero tengo el sgte problema, la informacion esta quedando retenida en Inetpub\mailroot\Queue y no llega hasta el correo deseado, que debo configurar en el servicio SMTP para que deje pasar el correo y no se quede en esa carpeta? desde ya agradecere sus aportes.