Visualizzazione dei risultati da 1 a 2 su 2

Discussione: info su form asp

  1. #1
    Utente di HTML.it L'avatar di ITANIUM
    Registrato dal
    Feb 2002
    Messaggi
    496

    info su form asp

    Girando in rete ho trovato una guida sulla creazione di un form per inviare mail dal sito.

    il codice è il seguente:
    codice:
    <%
    mail = Request.form("mail")
    richiesta = Request.form("richiesta")
    
    '--- Controllo che il campo E_MAIL sia Pieno ---
    If IsNull(mail) Or mail = "" Then 
    Response.Write ("ERRORE !!
    Controlla il campo
    E-MAIL
    Indietro.")
    Response.End
    End if
    '--- Fine Controllo Campo E-MAIL ---
    
    ' ----------------- CDOSYS -------------------------------------
    Dim MiaMail
    Set MiaMail = Server.CreateObject("CDO.Message")
    MiaMail.From = Request.Form("mail")
    MiaMail.To = "info@miosito.it"
    MiaMail.Subject = "Richiesta informazioni sito"
    MiaMail.HTMLBody = "E-Mail dal sito
    
    INDIRIZZO E-MAIL :  " & Request.Form("mail") & "
    RICHIESTA :  " & Request.Form("richiesta")
    MiaMail.Send()
    Set MiaMail = Nothing
    ' ----------------- CDOSYS -------------------------------------
    
    ' ----------------- CDOSYS - Email di conferma per l'utente ----
    Dim MiaMail2
    Set MiaMail2 = Server.CreateObject("CDO.Message")
    MiaMail2.From = "email@miosito.it"
    MiaMail2.To = Request.Form("mail")
    MiaMail2.Subject = "Conferma di ricezione Dati"
    MiaMail2.HTMLBody = Richiesta ricevuta! Sarai contattato prima possibile."
    MiaMail2.Send()
    Set MiaMail2 = Nothing
    ' ----------------- CDOSYS - Email di conferma per l'utente ----
    
    ' --- Risposta stampata a video ---
    Response.Write ("La tua richiesta è stata correttamente inviata, sarai contattato al più prestoTorna al Form")
    %>
    mi da questo errore:
    codice:
    Microsoft VBScript compilation error '800a0401' 
    
    Expected end of statement 
    
    /pcont/inviodati.asp, line 29 
    
    MiaMail2.HTMLBody = Richiesta ricevuta! Sarai contattato prima possibile."
    ------------------------------^
    non so come correggere....

  2. #2
    Utente di HTML.it L'avatar di ITANIUM
    Registrato dal
    Feb 2002
    Messaggi
    496

    Re: info su form asp

    Avevo dimenticato le virgolette...

    codice:
    ' ----------------- CDOSYS - Email di conferma per l'utente ----
    Dim MiaMail2
    Set MiaMail2 = Server.CreateObject("CDO.Message")
    MiaMail2.From = "email@miosito.it"
    MiaMail2.To = Request.Form("mail")
    MiaMail2.Subject = "Conferma di ricezione Dati"
    MiaMail2.HTMLBody = "Richiesta ricevuta! Sarai contattato prima possibile."
    MiaMail2.Send()
    Set MiaMail2 = Nothing
    ' ----------------- CDOSYS - Email di conferma per l'utente ----

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.