problemas con cdo en envio de form

LaBestiapop · #1 (**permalink**) 23/02/2008, 11:01

hola el problema es que me arroja el suguiente error:

Este error (HTTP 500 Error interno del servidor)

y los codigos del form y del script de envio son:

form.html

<form method=post action=send.asp>
De: <input type=text name=sender><br>
Para: <input type=text name=receiver><br>
Asunto: <input type=text name=subject><br>
Mensaje: <textarea name=body></textarea><br><br>
<input type=submit value="Enviar mensaje">
</form>

send.asp

<html>
<head >
<title>Página ASP de prueba para enviar mensajes</title>
</head>
<body>

<%
set mail=server.CreateObject("CDONTS.NewMail")
mail.From= Request("sender") ' like [email protected]
mail.To = Request("receiver") ' like [email protected]
mail.Subject = Request("subject")
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.unlugar.com"
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
mail.Configuration.Fields.Update
mail.Body = Request("body")
mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain
mail.MailFormat = 1 ' 0 = MIME, 1 = Text
mail.Importance = 1 ' 0 =High, 1 = Medium, 2 = Low
mail.Send
set mail=nothing
%>

<p>
<b>Se ha enviado el mensaje:</b><br>
De: <%= Request("sender") %><br>
A: <%= Request("receiver") %><br>
Con el asunto: <%= Request("subject") %>
</p>
</body>
</html>

Espero que me puedan ayudar desde ya muchas gracias

rene_bustos · #2 (**permalink**) 26/02/2008, 14:04

que onda
mira no veo ningun error,, pero ese tipo de error que arroja el explorer es acerca de un error de programacion o que una variable no se pueda acceder a ella

Te recomiendo que hagas la depuracion usando esto y asi te daras cuenta donde esta el error
recuerda que si te aparece el mensaje que pones de prueba, entonces baja un poco mas el response.write y el response.end() y hasta que te marque el error.
ojala y te sirva de algo,
yo se que esto no resuelve tu problema, pero asi lo aminoras
saludos y cuentanos como te fue

Código:

<html>
<head >
<title>Página ASP de prueba para enviar mensajes</title> 
</head>
<body>

<%
set mail=server.CreateObject("CDONTS.NewMail")
response.write "hasta aqui todo bien"
response.end()
mail.From= Request("sender") ' like [email protected]
mail.To = Request("receiver") ' like [email protected]
mail.Subject = Request("subject")
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.unlugar.com"
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
mail.Configuration.Fields.Update
mail.Body = Request("body")
mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain
mail.MailFormat = 1 ' 0 = MIME, 1 = Text
mail.Importance = 1 ' 0 =High, 1 = Medium, 2 = Low
mail.Send
set mail=nothing 
%>

<p>
<b>Se ha enviado el mensaje:</b><br>
De: <%= Request("sender") %><br>
A: <%= Request("receiver") %><br>
Con el asunto: <%= Request("subject") %>
</p>
</body>
</html>

Lebennin · #3 (**permalink**) 27/02/2008, 06:18

El error te da al pulsar el boton submit o antes?

LaBestiapop · #4 (**permalink**) 28/02/2008, 14:09

no el error salta despues que hago click en el boton de enviar, saludos

JuanRAPerez · #5 (**permalink**) 03/03/2008, 08:56

hace esto:

1. Vas al IExplorer y das click en la opcion de menu que dice Herramientas
2. Despues seleccionas Opciones de Internet
3. Sigues ahora seleccionando Opciones Avanzadas
4. Vas alli a la seccion que dice Examinar y ahi desmarcas la opcion que dice Mostrar los mensajes descriptivos de los errores HTTP

(tomado de el post: http://www.forosdelweb.com/f59/error...3/#post1729230)

suerte