Ciao a tutti.
Mi viene generato il seguente errore:
CDO.Message.1 error '8004020c'
At least one recipient is required, but none were found.
/public/login/attivacode_db.asp, line 52
e il codice è il seguente (l'ultima linea postata è la 52 dove si genera l'errore):
<%
idutente = Replace(Request.Form("idutente"), "'", "''")
chiave = Replace(Request.Form("chiave"), "'", "''")
IF idutente <> "" and chiave <>"" and Instr(idutente, "@") > 0 and Instr(idutente, ".") > 0 then
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/DB_sito.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Clienti where codice = '"&chiave&"' and attivo = 0 and email = '"&idutente&"'"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
IF Not RecSet.Eof Then
RecSet("attivo") = 1
RecSet("data_attivazione") = Date()
RecSet.Update
password=RecSet("password")
RecSet.Close
Set RecSet = Nothing
Conn.Close
Set Conn = Nothing
attivato=True
else
attivato=False
end if
If attivato=True then
dim email_utente
Set email_utente=server.CreateObject("CDO.Message")
email_utente.From = mittente
email_utente.To = email
email_utente.Subject = "Step 3/4: Attivazione avvenuta"
email_utente.TextBody = "Caro utente, l'attivazione è avvenuta con successo." & vbCrLf & "Username: " & username & vbCrLf &"Password: " & password
email_utente.Send()
.....
.....
Il fatto è che ho una routine identica da un'altra parte che funziona correttamente (con l'invio dell'email)
Avete qualche consiglio ? sto diventando matto..
Rispondi quotando