salve,

come da script che allego avevo l'esigenza di avere una comunicazione via email ogni qualvolta i dati di un form venivano inseriti nel db.

con cdonts non ho mai avuto problemi, ma con cdosys si,

vi posto il codice mi dite dove sbaglio?

grazie



<%
dim strOutput
strOutput=""


sql = "SELECT * FROM cart"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

rs.AddNew
rs("cognome") = Request.form("cognome")
rs("nome") = Request.form("nome")
rs("datanas") = Request.form("datanas")
rs("sesso") = Request.form("sesso")
rs("indirizzo") = Request.form("indirizzo")
rs("citta") = Request.form("citta")
rs("cap") = Request.form("cap")
rs("provi") = Request.form("provi")
rs("tel") = Request.form("tel")
rs("email") = Request.form("email")
rs("media") = Request.form("media")
rs("sede") = Request.form("sede")


rs.update

'chiudi recordset e connessione
rs.Close
set rs = Nothing
cn.Close
Set cn = Nothing


if strOutput<>"" then
response.write strOutput
else

'Invio la modifica del profilo via e-mail



Dim objMail, objConfig

'---Script per CDOSYS
Set objMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject ("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxx.it"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig


' Assegna all'oggetto le proprietà necessarie
objMail.From = "form xxxx" ' Mittente
objMail.To = "webmaster@xxxx.it" ' Destinatario
objMail.Subject = "prova" ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") ' Messaggio

' Invia l'email
objMail.Send()

Set objMail = Nothing



Response.Write("Email inviata correttamente ")
Response.Write("all'indirizzo ")

end if



%>