Ciao a tutti, ho un problema con l'invio di un email di conferma, su hosting aruba, sembra funzionare tutto... ma l'email non arriva! sto impazzendo!! Di seguito il codice integrale della pagina... Vi prego aiutatemi!!
<%
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 = "Sito"
'------------fine modifiche necessarie------------------
'email=Request.Form("email")
'testo=Request.Form("testo")
corpoMessaggio = "<center><img src='http://www.sito.com/imm/logo.jpg'/></center><br /><br />Benvenuto sul sito!<br />" & vbCrLf
corpoMessaggio = corpomessaggio & "Clicca il seguente link (o copialo nel tuo browser internet) per attivare il tuo account :" & vbCrLf
corpoMessaggio = corpomessaggio & "<a href='http://www.sito.com/attiva_id.asp?codice=" & codice_attivazione & "'>http://www.sito.com/attiva_id.asp?codice=" & codice_attivazione & "</a>"
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
mittente = "noreply@sito.com"
destinatario = invioA
oggetto = "Attivazione Account Sito"
messaggio = corpoMessaggio
With iMsg
Set .Configuration = iConf
.From = mittente
.To = request.form("txtMail")
.Subject = oggetto
.HTMLBody = messaggio
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
response.redirect "../reg_ok.asp?id=ok"
%>