form che funzia su tutti tranne aruba

[Crifox]

cè qualcuno che sà correggere questa pagina di form che mi funzia sul mio server dedicato non aruba ma non và su quello di aruba

non sò bene la differenza tra cdosys e cdo
mi serve con il cdosys

questo

grazie a tutti


<%

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.foxcomunication.it"
Fields.Update
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = Config
' Mail al webmaster
' Set link = CreateObject("CDONTS.Newmail")
objMail.From = "info@foxcomunication.it"
objMail.To = "info@foxcomunication.it"
objMail.Subject = "Contatto da www.foxcomunication.it"
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) & _
"cognome: " & Request("inputCompany") & Chr(13) & Chr(10) & _
"città: " & Request("inputPosition") & 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.foxcomunication.it"
Fields.Update
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = Config
' Mail all'utente
' Set link = CreateObject("CDONTS.Newmail")
objMail.From = "info@foxcomunication.it"
objMail.To = Request("inputEmail")
'objMail.To = "info@foxcomunication.it"

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

[teorema55]

In effetti su Aruba non puoi più usare CDONTS.

Vedi il tutorial che trovi qui , ma anche qui