Non so se questo è il forum giusto ma se mi appoggio su ARUBA questo script in ASP per inviare una email da flash non funziona!

Avete idea CDO = CDONTS ?

[CODE]
<%

Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' cdoSendUsingPort
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.nonsolo-web.com"
Fields.Update
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = Config
' Mail al webmaster
' Set link = CreateObject("CDONTS.Newmail")
objMail.From = "xx@xxx.com"
objMail.To = "xx@xxx.com"
objMail.Subject = "Contatto da xxx.com"
BDY="CONTATTO DAL MODULO CONTATTI DEL SITO" & Chr(13) & Chr(10) & _
"E-mail: " & Request("inputEmail") & Chr(13) & Chr(10) & _
"-------------------------------------" & Chr(13) & Chr(10) & _
"Logged info:" & Chr(13) & Chr(10) & _
"nome: " & Request("inputName") & Chr(13) & Chr(10) & _
"telefono: " & Request("inputCompany") & Chr(13) & Chr(10) & _
"email: " & Request("inputEmail") & Chr(13) & Chr(10) & _
"Messaggio: " & Request("inputMessage") & Chr(13) & Chr(10) & _
"Using: " & Request.ServerVariables("HTTP_USER_AGENT") & Chr(13) & Chr(10) & _
"Hostname: " & Request.ServerVariables("REMOTE_HOST") & Chr(13) & Chr(10) & _
"Date/Time: " & Date & " " & Time
objMail.TextBody = BDY
objMail.Send
Set objMail = Nothing
Set Fields = Nothing
Set Config = Nothing

Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' cdoSendUsingPort
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.nonsolo-web.com"
Fields.Update
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = Config
' Mail all'utente
' Set link = CreateObject("CDONTS.Newmail")
objMail.From = "xx@xxx.com"
objMail.To = Request("inputEmail")
'objMail.To = "xx@xxx.com"

objMail.Subject = "Grazie per la vostra visita su xxx.com"
objMail.TextBody = "La vostra email è stata ricevuta, sarete ricontattati al più presto."
objMail.Send
Set objMail = Nothing
Set Fields = Nothing
Set Config = Nothing
%>