problema pagina asp

[ginebell]

sto utilizzando una procedura presa dal forum che m consente di creare una form in asp per mandare delle informazioni via e-mail a me con conseguente pagina di ringraziamento. La pagina1.asp chiama la pagina2.asp. Quando clicco sul bottone che fa da submit e che dovrebbe passare alla pagina2 per il controllo del contenuto, il browser mi restituisce errore 500. Impossibile visualizzare la pagina. Perchè?
Chi mi sa dire qualcosa?

[ginebell]

la parte che da problemi (almeno credo) è questa:

Sub manda_posta(form)

Dim email, commenti
Dim objMail, mandamiquesto

nome = Request.Form("nome")
email = Request.Form("email")
commenti = Request.Form("commenti")
mandamiquesto = nome & "VBcrlf" & email & "Vbcrlf" & commenti

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = nome
objMail.To = "amedeo.font@tiscali.it"
objMail.Subject = "Feedback dal sito"
objMail.Body = mandamiquesto
objMail.importance = 0
objMail.Send
Set objMail = Nothing
end sub

le variabili form e nome sono state dichiarate nella procedura che chiama manda_posta(form).

Potrebbe mancare qualcosa sul server che ho nel ced? Si tratta di win2003.

[michele.santoro]

Win 2003 usa CDOSYS e non CDONTS, e comunque vai su:
"Menu strumenti /opzioni internet / Avanzate
di Internet Explorer e togli la spunta alla voce "Mostra messaggi di errore HTTP brevi"
così potrai vedere l'errore.

[ginebell]

Ho tolto la spunta dove mi hai chiesto ma mi da sempre e solo errore 500 senza specificare.
Per quanto riguarda CDOSYS basta solo sostituire CDOSYS a CDONTS lasciando invariato tutto il resto? Cioè:
Set objMail = Server.CreateObject("CDOSYS.NewMail")
objMail.From = nome
objMail.To = "amedeo.font@tiscali.it"
objMail.Subject = "Feedback dal sito"
objMail.Body = mandamiquesto
objMail.importance = 0
objMail.Send
Set objMail = Nothing

Devo fare così?

[michele.santoro]

Originariamente inviato da ginebell
Ho tolto la spunta dove mi hai chiesto ma mi da sempre e solo errore 500 senza specificare.
Per quanto riguarda CDOSYS basta solo sostituire CDOSYS a CDONTS lasciando invariato tutto il resto? Cioè:
Set objMail = Server.CreateObject("CDOSYS.NewMail")
objMail.From = nome
objMail.To = "amedeo.font@tiscali.it"
objMail.Subject = "Feedback dal sito"
objMail.Body = mandamiquesto
objMail.importance = 0
objMail.Send
Set objMail = Nothing

Devo fare così?

Non proprio ... , se fai una piccola ricerca sul forum per parola chiave CDOSYS vedrai che trovi la soluzione