Salve, ho questo script per inviare i dati di una form:
__________________________________________________ _________________________
<html>
<head>
<title>Contattaci</title>
</head>
<body>
<% If Request.Form("email")="" Then Response.Redirect("modulo_informazioni_corsi.htm") %>
<h1>Invio e-mail</h1>
<%
' ============================INIZIO INVIO EMAIL ================================================== =====
Dim strBody
Dim objNewMail
Dim strFrom
strBody = Chr(13) & "E' stata effettuata una richiesta di contatto:" & chr(13) _
& "------------------------------------------------------------------" & Chr(13) _
& "e-mail: " & Request.Form("email") & Chr(13) _
& "Corso: " & Chr(13) & Request.Form("corso") & Chr(13) _
& "Sesso: " & Chr(13) & Request.Form("sesso") & Chr(13) _
& "Privacy: " & Chr(13) & Request.Form("privacy") & Chr(13) _
& "------------------------------------------------------------------" & Chr(13)
strFrom = Request.Form("email")
Set objNewMail = Server.CreateObject("CDO.Message")
objNewMail.To = "[mail destinatario]" ' Destinatari
objNewMail.Cc = Request.Form("email") ' Destinatari in copia carbone
objNewMail.Bcc = "" ' Destinatari in copia carbone nascosta
objNewMail.TextBody = strBody ' Corpo del messaggio
'objNewMail.BodyFormat = 1 ' Indica che la proprietà Body contiene testo normale (1) o HTML (0)
'objNewMail.ContentBase = "" ' URL base per tutti gli URL della sezione HTML del messaggio
'objNewMail.ContentLocation = "" ' Percorso assoluto o relativo dei tutti gli URL referenziati nel messaggio
objNewMail.From = strFrom ' Mittente del messaggio
'objNewMail.Importance = 1 ' Priorità di invio del messaggio (0-1-2)
'objNewMail.MailFormat = 1 ' Indica se il messaggio contiene solo testo (1) o è in formato MIME (0)
objNewMail.Subject = "Richiesta di contatto dal sito [dominio]" ' Soggetto del messaggio
'objNewMail.Value("ReplyTo") = "" ' Indirizzo cui inviare le risposte al messaggio
' ' (questo parametro può non essere supportato dal server)
objNewMail.Send
Set objNewMail = Nothing
%>
L'email è stata inviata. La risposta sarà inviata all'indirizzo [b]<%=Request.Form("email")%>
</body>
</html>
__________________________________________________ ___________________________
Ma le voci indicate nel msg al destinatario, sono elencate una dopo l’altra:
E' stata effettuata una richiesta di contatto:------------------------------------------------------------------e-mail: [email mittente]Corso: 1Sesso: MPrivacy: accetto------------------------------------------------------------------
Come faccio perché siano indicate in colonna una per una?
E' stata effettuata una richiesta di contatto:
------------------------------------------------------------------
e-mail: [email mittente]
Corso: 2
Sesso: M
Privacy: accetto
------------------------------------------------------------------
Grazie