mi da errore 500 come se nn trovasse la pagina


<% response.buffer = true

rem ----- Prendo i dati passati dal modulo con il metodo POST --------------
nome = request.form("nome")
testo = request.form("testo")
email = request.form("email")
rifer = request.form("rifer")


crlf = chr(13) + chr(10) ' a capo

text = text & "*****************************" & crlf
text = text & crlf
text = text & "è stata inviata una richiesta di maggiori informazioni da parte di " & crlf
text = text & crlf
text = text & "" & nome & "" & crlf
text = text & crlf
text = text & "per il veicolo: " & crlf
text = text & crlf
text = text & ""& rifer & "" & crlf
text = text & crlf
text = text & crlf
text = text & "per contattare il cliente invia a :"& email & "" & crlf
text = text & "*****************************" & crlf
cBodyText = "" & testo & ""




Dim Mail

sch = "http://schemas.microsoft.com/cdo/configuration/"

set Mail = server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

With iConf.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.aruba.it"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPAuthenticate) = cdoAnonymous ' 0

.update
End With

With Mail
Set.Configuration = iConf
.From = ""
.To = Cstr(trim(email))
.Subject = ""
.TEXTBody = cBodyText
.Fields("urn:schemas:httpmail:importance").Value = 2
.Send
end With

set Mail=nothing
set iConf=nothing




%>
Grazie per aver scelto i nostri servizi.sarà contattato al più presto.
</body>
</html>