• User Newbie

    Dove sbaglio? qualcuno mi può aiutare?

    Ho creato un form, originariamente era in php la pagina di invio, ma poi ho scoperto che il server del mio cliente non supporta i php -.-"

    allora ho preso la decisione di realizzare il codice di invio mail in .asp in modo che funzionasse, ma di asp non so una ceppa...ho provato ad informarmi e ho preso questo codice, che poi ho modificato per renderlo adatto alle mie esigenze ma non mi funziona..qualcuno sa dirmi cosa sbaglio? oppure mi sa dare il codice qui presente sistemato e funzionante?

    [HTML]
    <%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
    <html>
    <body>
    <% // Recupero i dati dal modulo var Referente: = String(Request.Form("referente"));
    var Azienda = String(Request.Form("azienda"));
    var Città = String(Request.Form("città"));
    var Telefono: = String(Request.Form("telefono"));
    var Dettagli: = String(Request.Form("dettagli"));
    // Effettuo un banale controllo sulla validità dei campi
    if (referente == "" || mail == "" || telefono == "") {
    Response.Redirect("saluber.net/Deratizzazione/form-error.asp#arrivo");
    Response.End; }
    // Creo l'oggetto (o classe) CDONTS.NewMail
    var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
    OggettoCDONTS.From = "mail"; // Mittente
    OggettoCDONTS.To = "[email protected]"; // Destinatario (inserisci la tua email)
    OggettoCDONTS.Subject = "Richiesta info deratizzazione"; // Oggetto
    OggettoCDONTS.Body =
    var Inviata da: = String(Request.Form("mail"));
    var Referente: = String(Request.Form("referente"));
    var Azienda: = String(Request.Form("azienda"));
    var Città: = String(Request.Form("città"));
    var Telefono: = String(Request.Form("telefono"));
    var Dettagli: = String(Request.Form("dettagli"));; // Corpo
    OggettoCDONTS.Send(); // Invio la mail
    Response.Redirect("saluber.net/Deratizzazione/form-ok.asp#arrivo");%>
    </body>
    </html>
    [/HTML]


  • User

    Ciao!
    Tieni questo codice! A me funziona! 🙂

    <%
    Dim miaMail

    Set miaMail = CreateObject(“CDONTS.NewMail”)
    miaMail.From = “[email protected]

    miaMail.To = “[email protected]

    miaMail.Subject = “Oggetto della mail”

    miaMail.BodyFormat = 0

    miaMail.MailFormat = 0

    miaMail.Importance = 0

    miaMail.Body = “Testo della mail”

    miaMail.Send
    Set miaMail = Nothing

    %>