• K
    User Newbie •

    Invio email di attivazione account con Aruba

    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!! :arrabbiato:

    <%

    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='hxxp://.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='hxxp://.sito.com/attiva_id.asp?codice=" & codice_attivazione & "'>hxxp://.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("hxxp://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

    mittente = "[email protected]"
    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"

    %>

    0
Effettua l'accesso per rispondere