invio mail errore 500

[Rossella_75]

ciao a tutti,
sto cercando di inviare una mail trammite un piccolo script ma ricevo HTTP 500 Errore interno del server

<% Option Explicit %>

<%
Dim objEMail
Dim Mittente 
Dim Destinatario
Dim Oggetto 
Dim Testo
Dim tip_stanza
Dim bambini
Dim eta
Dim culla
Dim nome
Dim cognome
Dim societa
Dim citta
Dim indirizzo
Dim cap
Dim mobile
Dim telefono
Dim email
Dim conferma_email
Dim messaggio
Dim privacy
Dim Submitentra



Destinatario = "mia@mail.com"
Mittente = Request.Form("nome") & Request.Form("cognome")
Oggetto = "Richiesta Preventivo"
tip_stanza = Request.Form("tip_stanza")
bambini = Request.Form("bambini")
eta = Request.Form("eta")
culla = Request.Form("culla")
nome = Request.Form("nome")
cognome = Request.Form("cognome")
societa = Request.Form("societa")
citta = Request.Form("citta")
indirizzo = Request.Form("indirizzo")
cap = Request.Form("cap")
mobile = Request.Form("mobile")
telefono = Request.Form("telefono")
email = Request.Form("email")
conferma_email = Request.Form("conferma_email")
messaggio = Request.Form("messaggio")
privacy = Request.Form("privacy")
Submitentra = Request.Form("Submitentra")

if Submitentra = "richiedi" then

Testo = "Il Sig.re cognome nome richiede la disponibilit&agrave; per un soggiorno presso la Vs. struttura"

Set objEMail = Server.CreateObject("CDONTS.NewMail")
objEMail.From = email
objEMail.To = Destinatario
objEMail.Subject = Oggetto
objEMail.Body = Testo
objEMail.Send
Set objEMail = Nothing

else

response.write("Compila i campi!")

end if

%>

Grazie

[Mems]

Dalle opzioni avanzate di explorer TOGLIERE la spunta dalla voce Mostra Messaggi di errore HTTP brevi.

[Rossella_75]

grazie mille, mi viene fuori questo errore

Server object error 'ASP 0177 : 800401f3' 

Server.CreateObject Failed 

/hotel/sendmail.asp, line 54 

800401f3

[Mems]

Su Windows XP e Windows Server 2003 l'oggetto CDONTS non esiste.
Esiste invece il CDOSYS. Cerca uno script per CDOSYS e adattalo alle tue esigenze.

[Rossella_75]

VVoVe: e adesso.....

cambia molto? dove posso vedere....

in teroria dovrebbe cambiare solo questa parte

Set objEMail = Server.CreateObject("CDONTS.NewMail")
objEMail.From = email
objEMail.To = Destinatario
objEMail.Subject = Oggetto
objEMail.Body = Testo
objEMail.Send
Set objEMail = Nothing

giusto?

[Mems]

Si, cambia quella parte.
Cercati su internet degli esempi sull'uso di CDOSYS.