Girando in rete ho trovato una guida sulla creazione di un form per inviare mail dal sito.
il codice è il seguente:
mi da questo errore: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") %>
non so come correggere....codice:Microsoft VBScript compilation error '800a0401' Expected end of statement /pcont/inviodati.asp, line 29 MiaMail2.HTMLBody = Richiesta ricevuta! Sarai contattato prima possibile." ------------------------------^

Rispondi quotando
