Dopo aver inserito i dati del form nel database:
codice:
<%' Recuperiamo i dati dal form
dim strNome
strNome = request.form("nome")
dim strCognome
strCognome = request.form("cognome")
dim strNato
strNato = request.form("Nato")
dim strEmail
strEmail = request.form("email")
dim strOfferta
strOfferta = request.form("offerta")
dim strCodice
strCodice = request.form("codice")
dim strStato
strStato = request.form("stato")
dim strScadenza
strScadenza = request.form("scadenza")

' Verifichiamo che i campi non siano vuoti...

If strNome <> "" and strCognome <> "" and strEmail <> "" and strNato <> "" Then  
' Se i campi NON sono vuoti procediamo...
' Connessione al DB
myDB = "utenti.mdb"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from promo where email='"&request("email")& "'"
rs.Open sql, cn, 3, 3

if not Rs.bof and not Rs.eof then 

Response.write "La sua Email è già presente nel nostro Database"
else
rs.addnew
rs("nome") = strNome
rs("cognome") = strCognome
rs("email") = strEmail
rs("Nato") = strNato
rs("offerta") = strOfferta
rs("codice") = strCodice
rs("stato") = strStato
rs("scadenza") = strScadenza
rs.update

' Chiusura del database
rs.Close
set rs = Nothing
cn.Close
set cn = Nothing
' Risposta a video di conferma

response.write "Scrittura avvenuta correttamente! Il codice e' stato inviato all'indirizzo email registrato"
end if
Else 
' Se i campi SONO vuoti
response.write " Tutti i campi sono obbligatori"
%>
Ho il codice per l'invio dell'email, io vorrei farlo tramite i dati che ho inserito nel database
codice:
<%
DIM invioB, invioDa 

	'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = Request.form("email")
   .BCC = "ggg@gmail.com"
   .Sender = "server@server.com"
   .Subject = "oggetto"
   .TextBody = "registrazione effettuata il " & Now() & " "
   .Send
End With
end if
%>
Non mi da errore, però l'email non arriva