2 messaggi dal 14 luglio 2008
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"


%>
19 messaggi dal 06 settembre 2002
Vista così sembra che manchino le prime due righe che aruba raccomanda di non togliere.
Forse ti conviene fare una prova semplice prima di inserirci tutto il codice asp di controllo.

Ciao.
lpapi.

Il bello di un viaggio non è arrivare ma gustare il paesaggio lungo il percorso.

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.