• User

    form asp e flash...ho fatto giusto?

    Non so come verificare se funziona perchè il mio spazio supporta php e questa volta mi serve in asp...qualcuno mi può dire se ci sono errori enormi?

    Form flash con questi campo di testo:
    nome
    cognome
    society
    telefono
    messaggio

    Pulsante invia al quale do queste istruzioni:

    on (release) {

    loadVariables("inviomail.asp", "", "POST");

    }

    la pagina inviomail.asp ha questo codice:

    <%
    Dim nome, cognome, society, telefono, messaggio
    nome= Request.Form ("nome")
    cognome= Request.Form ("cognome")
    society= Request.Form ("society")
    fax= Request.Form ("fax")
    telefono= Request.Form ("telefono")
    messaggio= Request.Form ("messaggio")

    Dim Mail
    Dim sMailBody
    SetMail= Server.CreateObject("Persits.MailSender")

    Mail.Address="miaemail@libero.it"
    Mail.Oggetto= "Messaggio dal sito"

    messaggio="nome:"
    sMailBody=sMailBody&messaggio&nome&vbcrlf
    sMailBody=sMailBody&messaggio&cognome&vbcrlf
    sMailBody=sMailBody&messaggio&society&vbcrlf
    sMailBody=sMailBody&messaggio&telefono&vbcrlf
    sMailBody=sMailBody&messaggio&fax&vbcrlf
    sMailBody=sMailBody&messaggio&messaggio&vbcrlf

    Mail.Body =sMailBody
    Mail.Send
    Set Mail= Nothing
    %>


  • Moderatore

    Effettivamente c'è qualche errore.
    Per prima cosa assicurati che il tuo piano di hosting ti permetta di utilizzare l'oggetto Persits.MailSender.
    In alternativa utilizza l'oggetto CdoSys o l'oggetto CdoNts

    Qui ti sei dimenticata di uno spazio :

    SetMail= Server.CreateObject("Persits.MailSender")
    Diventa così:

     Set Mail= Server.CreateObject("Persits.MailSender")
    

    Mancano dei campi:

                                         
    Mail.Host = "**smtp.dominio.it**" ' smtp del tuo dominio
    Mail.From = "**info@dominio.it**" ' indirizzo di chi invia l'email
    
    

    Questo non è corretto:

    Mail.Address="miaemail@libero.it" Diventa così:

    Mail.Address "miaemail@libero.it"
    

    Questo proprio non lo capisco, perchè prima dici che la variabile messaggio= Request.Form ("messaggio") poi diventa messaggio="nome:"; praticamente la riga prima è inutile :D:

    messaggio="nome:"
    sMailBody=sMailBody&messaggio&nome&vbcrlf
    sMailBody=sMailBody&messaggio&cognome&vbcrlf
    sMailBody=sMailBody&messaggio&society&vbcrlf
    sMailBody=sMailBody&messaggio&telefono&vbcrlf
    sMailBody=sMailBody&messaggio&fax&vbcrlf
    sMailBody=sMailBody&messaggio&messaggio&vbcrlf

    Presumo che volevi fare + o - così:

    
    sMailBody = "Nome: " & nome & vbcrlf
    sMailBody = sMailBody  & "Cognome: " & cognome & vbcrlf
    sMailBody = sMailBody  & "Società: " & society & vbcrlf
    sMailBody = sMailBody  & "Telefono: " & telefono & vbcrlf
    sMailBody = sMailBody  & "Fax: " & fax & vbcrlf
    sMailBody = sMailBody  & "Messaggio: " & messaggio
    
    

    Il resto è ok.
    Per chiarezza ti scrivo il codice senza interruzioni:

    
     Dim nome, cognome, society, telefono, messaggio
     nome  =  Request.Form ("nome")
     cognome  =  Request.Form ("cognome")
     society  =  Request.Form ("society")
     fax  =  Request.Form ("fax")
     telefono  =  Request.Form ("telefono")
     messaggio  =  Request.Form ("messaggio")
     
     Dim Mail
     Dim sMailBody
     Set Mail = Server.CreateObject("Persits.MailSender")
    
    Mail.Host = "**smtp.dominio.it**"   ' smtp del tuo dominio
    Mail.From = "**info@dominio.it**"   ' indirizzo di chi invia l'email
    Mail.Address "miaemail@libero.it"
    Mail.Oggetto = "Messaggio dal sito"
     
    sMailBody = "Nome: " & nome & vbcrlf
    sMailBody = sMailBody  & "Cognome: " & cognome & vbcrlf
    sMailBody = sMailBody  & "Società: " & society & vbcrlf
    sMailBody = sMailBody  & "Telefono: " & telefono & vbcrlf
    sMailBody = sMailBody  & "Fax: " & fax & vbcrlf
    sMailBody = sMailBody  & "Messaggio: " & messaggio
     
    Mail.Body = sMailBody
    Mail.Send
    Set Mail = Nothing