ci avevo provato anch'io ma non funziona.
Ecco il mio script:
'---Recupero i valori della Form
Nome = Trim(Replace(Request.Form("Nome"), "'", "''"))
Cognome = Trim(Replace(Request.Form("Cognome"), "'", "''"))
Via = Trim(Replace(Request.Form("Via"), "'", "''"))
Civico = Trim(Replace(Request.Form("Civico"), "'", "''"))
Cap = Trim(Replace(Request.Form("Cap"), "'", "''"))
Citta = Trim(Replace(Request.Form("Citta"), "'", "''"))
Provincia = Trim(Replace(Request.Form("Provincia"), "'", "''"))
Stato = Trim(Replace(Request.Form("Stato"), "'", "''"))
Telefono = Trim(Replace(Request.Form("Telefono"), "'", "''"))
EMail = Trim(Replace(Request.Form("EMail"), "'", "''"))
UserID = Trim(Replace(Request.Form("UserID"), "'", "''"))
Password = Replace(Request.Form("Password"), "'", "''")
Password2 = Replace(Request.Form("Password2"), "'", "''")
'#Email conferma iscrizione
SubjectConfermaIscrizione = "Conferma Iscrizione" 'Titolo conferma iscrizione
BodyConfermaIscrizione = "Conferma la tua iscrizione cliccando sul link qui sotto. ATTENZIONE! Se il link risulta tagliato o non è cliccabile copia e incolla il link completo nella barra indirizzo del browser.<br>******INIZIO LINK******<br><br>[link].<br><br>******FINE LINK******<br>Ricorda che il tuo account rimarrà bloccato fino a che la tua email non sarà confermata!<br><br><br>[firma]" 'Testo mail conferma iscrizione
'---Invio la mail di conferma iscrizione
If Errore = "" Then
SQL = " Insert INTO Utenti (Nome, Cognome, Via, Civico, CAP, Citta, Provincia, Telefono, Mail, UserID, Password, Data, Confermato) VALUES ('"& Nome &"', '"& Cognome &"', '"& Via &"', '"& Civico &"', '"& Cap &"', '"& Citta &"', '"& Provincia &"', '"& Telefono &"', '"& EMail &"', '"& UserID &"', '"& Password &"','"& DataToStr(Now()) &"', "& confermato &" )"
Set RS = Conn.Execute(SQL)
If ConfermaMail Then
InvioMail MailServer, MailAdmin, EMail, SubjectConfermaIscrizione, Replace(Replace(Replace(BodyConfermaIscrizione, "[link]", UrlEcom & "conferma.asp?"&UserIDEncode(UserID & "{~}" & EMail)), "[firma]", FirmaEMail, 1, -1, 1), "<br>", vbCrLf, 1, -1, 1)
End If
'---Funzioni per inviare mail
Function InvioMail(byVal ServerMail, byVal Mittente, byVal Destinatario, byVal Titolo, byVal Corpo)
'---Script per CDONTS
Dim Mail
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = Mittente
Mail.To = Destinatario
Mail.Subject = Titolo
Mail.Body = Corpo
On Error Resume Next
Mail.Send
InvioMail = True
Set Mail = Nothing
