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


codice:
<% 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