Un semplice form mail in Asp

Autore: Luca Ruggiero | Tell a Friend eBook ASP base Impara a creare siti dinamici con ASP e VBScript da zero! Corso ASP Impara a creare siti dinamici professionali con ASP! E-Commerce con ASP Impara a creare un sito di E-Commerce con carrello della spesa!

Sulla scorta delle conoscenze acquisite sull'ActiveX CDONTS (Rif. Il componente CDONTS), possiamo ora implementare un semplice, nonchè valido esempio, di invio di una'email tramite un modulo Html direttamente dalle pagine del nostro sito!

Costruiamo due file, email.htm che contiene il modulo per l'invio del messaggio, ed email.asp che elabora l'email e la invia nella casella di posta del destinatario.

Supponiamo di mettere a disposizione degli utenti del nostro sito detto modulo per contattarci via email, saremo quindi noi ad essere i destinatari della mail, ecco il codice del file email.htm

<form method="post" action="email.asp">
   Nome<br>
      <input type="text" name="nome"><br>
   Email<br>
      <input type="text" name="email"><br>
   Messaggio<br>
      <textarea name="messaggio" rows="5" cols=30></textarea><br>
   <input type="submit" value="Invia">
</form>

<%@LANGUAGE = JScript%>
<%
   // Recupero i dati dal modulo
   var nome = new String(Request.Form("nome"));
   var email = new String(Request.Form("email"));
   var messaggio = new String(Request.Form("messaggio"));

   // Effettuo un banale controllo sulla validità dei campi
   if (nome == "" || email == "" || messaggio == "") {
       Response.Write("ERRORE: Tutti i cami sono obbligatori");
       Response.End;
   }

   // Creo l'oggetto (o classe) CDONTS.NewMail
   var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
       OggettoCDONTS.From = email; // Mittente
       OggettoCDONTS.To = "lucaruggiero@email.it"; // Destinatario (inserisci la tua email)
       OggettoCDONTS.Subject = "Messaggio da " + nome; // Oggetto
       OggettoCDONTS.Body = messaggio; // Corpo
       OggettoCDONTS.Send(); // Invio la mail

   Response.Write("Email inviata con successo!");
%>