+ Rispondi alla Discussione
Risultati da 1 a 2 di 2

form asp e flash...ho fatto giusto?

Ultimo Messaggio di Legolas il:
  1. #1
    User
    Data Registrazione
    Nov 2005
    Messaggi
    13

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

  2. #2
    Moderatore L'avatar di Legolas
    Data Registrazione
    Mar 2005
    Località
    Viterbo
    Messaggi
    770
    Aggiungi Legolas su Facebook Aggiungi Legolas su Linkedin
    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ì:
    Codice:
     Set Mail= Server.CreateObject("Persits.MailSender")
    Mancano dei campi:
    Codice:
                                         
    Mail.Host = "smtp.dominio.it" ' smtp del tuo dominio
    Mail.From = "[email protected]" ' indirizzo di chi invia l'email
    Questo non è corretto:
    Mail.Address="[email protected]"
    Diventa così:
    Codice:
    Mail.Address "[email protected]"
    Questo proprio non lo capisco, perchè prima dici che la variabile messaggio= Request.Form ("messaggio") poi diventa messaggio="nome:"; praticamente la riga prima è inutile :

    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ì:
    Codice:
    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:

    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
     Set Mail = Server.CreateObject("Persits.MailSender")
    
    Mail.Host = "smtp.dominio.it"   ' smtp del tuo dominio
    Mail.From = "[email protected]"   ' indirizzo di chi invia l'email
    Mail.Address "[email protected]"
    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

+ Rispondi alla Discussione

Tag per Questa Discussione

^ Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •  
  • Il codice BB è Attivato
  • Le faccine sono Attivato
  • Il codice [IMG] è Attivato
  • Il codice [VIDEO] è Attivato
  • Il codice HTML è Disattivato
  • Trackbacks Attivato
  • Pingback Attivato
  • Refback Attivato

SEO by vBSEO 3.6.0 PL2 ©2011, Crawlability, Inc.