Ciao a tutti ho un problema nella creazione di un codice in .asp per inviare in automatico le mail di conferma di avventuta registrazione agli utenti ke si registrano al mio sito.
Quando si effettua la registrazione compare questo codice:
CDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid.
/moduli/salva_user.asp, line 116
Potete constatarlo voi stessi provando a registrarvi al mio sito (al suo script xkè nn è ancora ultimato, c'è solo la base).
Il codice in .asp è il seguente, se riusciste a trovare l'errore vi sarei eternamente grato.
<%
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/mdb-database/lb.mdb") & ";Persist Security Info=False"
set cn= server.createobject("ADODB.connection")
Set rsc = Server.CreateObject("ADODB.Recordset")
cn.open strconn
'***controllo nome utente
sz_sql = "select * from utenti where utente = '" & request.form("txtUser") & "'"
rsc.Open sz_sql, cn
if not rsc.eof then
response.redirect "../error_reg.asp?id=user"
end if
rsc.close
'***controllo indirizzo mail
sz_sql = "select * from utenti where email = '" & request.form("txtMail") & "'"
rsc.Open sz_sql, cn
if not rsc.eof then
response.redirect "../error_reg.asp?id=mail"
end if
rsc.close
if request.form("txtUser")="" or request.form("txtPwd") ="" or request.form("txtPwdCheck") ="" or request.form("txtMail") ="" or request.form("txtMailCheck") ="" or request.form("txtNome") ="" or request.form("txtCogn")="" or request.form("txtInd") ="" or request.form("txtCom") ="" or request.form("txtCap") ="" then
response.redirect "../error_reg.asp?id=vuoti"
end if
if request.form("txtPwd") <> request.form("txtPwdCheck") then
response.redirect "../error_reg.asp?id=pwd_check"
end if
if InStr(request.form("txtMail"),".")=0 or InStr(request.form("txtMail"),"@")=0 then
response.redirect "../error_reg.asp?id=mail_novalida"
end if
if request.form("txtMail") <> request.form("txtMailCheck") then
response.redirect "../error_reg.asp?id=mail_check"
end if
if len(request.form("txtPwd"))<6 then
response.redirect "../error_reg.asp?id=pwd_len"
end if
'***creo codice attivazione
Dim Limite
Limite = 9999
Randomize()
codice1 = CInt((Limite - 1)*Rnd() + 1 )
codice2 = CInt((Limite - 1)*Rnd() + 1 )
codice3 = CInt((Limite - 1)*Rnd() + 1 )
codice4 = CInt((Limite - 1)*Rnd() + 1 )
codice_attivazione=codice & codice2 & codice3 & codice4
'***inserisco dati
sz_sql="insert into utenti (utente,pwd,codice_attivazione,email,nome,cognome, sesso,indirizzo,comune,provincia,cap,data_nascita, codice_fiscale,cellulare,data_reg) values "
sz_sql= sz_sql & " ('" & request.form("txtUser") & "','" & request.form("txtPwd") & "','" & codice_attivazione & "','" & request.form("txtMail") & "','" & request.form("txtNome") & "','" & request.form("txtCogn") & "','" & request.form("optSesso") & "','" & request.form("txtInd") & "','" & request.form("txtCom") & "','" & request.form("optProv") & "','" & request.form("txtCap") & "','"
sz_sql= sz_sql & request.form("optGG") & "-" & request.form("optMM") & "-" & request.form("optAA") & "','" & request.form("txtCF") & "','" & request.form("txtCel") & "','" & now() & "')"
cn.execute (sz_sql)
cn.close
'*** invio mail
invioA = request.form("txtMail")
'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica
invioDa = "AsteShock"
'------------fine modifiche necessarie------------------
'email=Request.Form("email")
'testo=Request.Form("testo")
corpoMessaggio = "<center></center>
Benvenuto su AsteShock!
" & vbCrLf
corpoMessaggio = corpomessaggio & "Clicca il seguente link (o copialo nel tuo browser internet) per attivare il tuo account :" & vbCrLf
corpoMessaggio = corpomessaggio & "http://www.asteshock.com/attiva_id.asp?codice=" & codice_attivazione & ""
Dim iMsg, iConf, Flds
'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "noreply@asteshock.com"
destinatario = invioA
oggetto = "Attivazione Account AsteShock"
messaggio = corpoMessaggio
With iMsg
'Assegnazione delle configurazioni
Set .Configuration = iConf
.From = mittente
.To = request.form("txtMail")
.Subject = oggetto
'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
'.TextBody = messaggio
'Invio di una pagina web
'.CreateMHTMLBody "http://www.novacomitalia.com/home/"
'Invio con allegato
'.AddAttachment server.mappath("/public/test.txt")
'Invia l'email
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
response.redirect "../reg_ok.asp?id=ok"
%>
Grazie a tutti, ciao!
Rispondi quotando
