• 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

    %>