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