Mail ASP su Aruba CDO

[zeweb]

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

[orcim]

perchè hai escluso questa riga????

' Set link = CreateObject("CDONTS.Newmail")

è quella che crea l'oggetto..

[domenico.nardo]

Bisogna innanzitutto sapere su quale sistema operativo gira la tua pagina, perchè se è Win 2003 server, non devi usare CDONTS, ma CDOSYS OK?

[zeweb]

Sì è Win2003 !

Quindi ?

[orcim]

http://vademecum.aruba.it/start/cont...tto.htm#cdosys

[zeweb]

mi aiutate a sistemare il miuo con quelle specifiche ?

Grazie

[orcim]

cosa ti serve?

[zeweb]

che invii un modulo fatto in FLASH

on (release) {
if (inputName ne "" and inputEmail ne "" and inputMessage ne "") {
gotoAndPlay ("valid");
loadVariablesNum ("mail.asp", 0, "POST");
} else {
gotoAndPlay("invalid");
}
}

con i dati obbligatori

inputName
inputEmail
inputMessage

ma con metodo CDOSYS su Aruba ....difficile ?