Necesito ayuda con este codigo

[El Jedi]

Amigos tengo este problema con el codigo, quiero hacer que cuando me envian un formulario me lo envien por .asp y este es el codigo que utilizo. Osea en una pagina tengo un formulario que con un method="post" action="la pagina donde esta este código" y quiero que se envie a la direccion de correo que yo ponga. Pero cuando le pongo enviar al formulario me tira el siguiente error: The server encountered an internal error or misconfiguration and was unable to complete your request.

<%
Dim strnombre, stremails, strtema, strsugerencias, Mail
strnombre = request.form("nombre")
stremails = request.form("emails")
strtema = request.form("tema")
strsugerencias = request.form("sugerencias")

'-----------------------[ START ERROR CHECKING ]---------------------------

If strnombre = "" or isnull(strnombre) Then
Response.Write("El parametro nombre es requerido, por favor ingreselo")
Response.End
End If

If strtema = "" or isnull(strtema) Then
Response.Write("El parametro tema es requerido, por favor ingreselo")
Response.End
End If


'-----------------------[ END ERROR CHECKING ]---------------------------



Set ObjMail = Server.CreateObject("CDONTS.NewMail")

Mail.From = "stremails"
Mail.To = "[email protected]"
Mail.Subject = "Comentarios"
Mail.Body = "strsugerencias"
Mail.Send

Set Mail = Nothing

%>

Si alguien me puede ayudar se lo voy a agradeser.

[ashketchum]

Hola Jedi, creo que el problema no esta en el codigo, sino en el servidor, ¿estas seguro que soporta CDONTS?, checa bien eso, porque si no tiene configurado el CDONTS, pues no vas a poder enviar mail por nada del mundo...

saludos y suerte

<img src="http://www.efrance.fr/masterASPx/firma.jpg" width="465" height="79" border="0" usemap="#URL">
<map name="URL">
<area shape="rect" coords="270,48,347,61" href="http://www.efrance.fr/masteraspx" target="_blank">
</map>

[Male33]

Solo un par de cosillas, esperando que puedan serte utiles:
En el codigo que nos has enviado, cuando creas el objeto lo llamas &quot;objmail&quot;, mientras que cuando accedes a propiedades y metodos le llamas simplemente &quot;mail&quot;... (aunque supongo que esto no te ayudara...)
Debes tener configurado el IIS, el default smtp site... de forma conveniente!

[El Jedi]

Male33 tu dices que lo ponga así como esta ahora.


&lt;%
Dim strnombre, stremails, strtema, strsugerencias, ObjMail
strnombre = request.form(&quot;nombre&quot;)
stremails = request.form(&quot;emails&quot;)
strtema = request.form(&quot;tema&quot;)
strsugerencias = request.form(&quot;sugerencias&quot;)

'-----------------------[ START ERROR CHECKING ]---------------------------

If strnombre = &quot;&quot; or isnull(strnombre) Then
Response.Write(&quot;El parametro nombre es requerido, por favor ingreselo&quot;)
Response.End
End If

If strtema = &quot;&quot; or isnull(strtema) Then
Response.Write(&quot;El parametro tema es requerido, por favor ingreselo&quot;)
Response.End
End If


'-----------------------[ END ERROR CHECKING ]---------------------------


Set ObjMail = Server.CreateObject(&quot;CDONTS.NewMail&quot;)

Mail.From = &quot;stremails&quot;
Mail.To = &quot;[email protected]&quot;
Mail.Subject = &quot;Comentarios&quot;
Mail.Body = &quot;strsugerencias&quot;
Mail.Send

Set Mail = Nothing

%&gt;

Gracias a los dos por responder mi mensaje. Voy a probar lo que me dicen y les cuento.