dati form in elenco

**ciamp** · 20-10-2008, 13:08

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

**varrilaro** · 20-10-2008, 14:15

Ciao,
prova così, dovrebbe andare:

codice:

 "Prima riga" & VbCrLf & "Seconda riga"

ciao

**ciamp** · 20-10-2008, 15:51

Scusa non sono molto ferrato, puoi modificare direttamente lo script?
Grazie

**yro** · 20-10-2008, 16:48

Originariamente inviato da ciamp
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

**ciamp** · 20-10-2008, 17:53

codice:

 
così non funziona

E' stata effettuata una richiesta di contatto:
------------------------------------------------------------------
e-mail: [mail mittente[
Corso: 1
Sesso: M
Privacy: accetto
------------------------------------------------------------------

**yro** · 20-10-2008, 18:10

<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 = 0 ' 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>

prova così, certo che potresti documentarti un pò...

**ciamp** · 20-10-2008, 18:24

no, così non si apre nemmeno

**yro** · 20-10-2008, 18:34

il problema è che dovresti, secondo me, usare il formato html per il testo della mail.

consulta questo: http://asp.html.it/script/vedi/1025/...il-con-cdosys/

**ciamp** · 20-10-2008, 19:07

codice:

la form è in html:
_____________________________________________________________________________

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML 
lang=en 
xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>Informazione Corsi</TITLE>
</HEAD>
<BODY bgcolor="#990000">
<FORM id="inf_corsi" action="Sendmail.ASP" method="post">
  <P class=intestazione_f><font color="#FFFFFF">Richiesta informazioni 
    sul seguente corso:</font></P>
  <P class=intestazione_f>
    <label> </label>
  </P>
  <P class=labello>
    <select id="corso" name="corso">
      <option value="0" selected>[seleziona]</option>
      <option value="1">corso 1</option>
      <option value="2">corso 2</option>
      <option value="3">corso 3</option>
    </select>
  </P>
  

<font color="#FFFFFF">Inserisci i tuoi dati:</font></P>
  <P class=labello><font color="#FFFFFF">
    <LABEL for=email>Email:</LABEL>
    </font></P>
  

<font color="#FFFFFF">
    <input type="text" name="email" size="50" >
    </font></p>
  

<font color="#FFFFFF"> </font><font color="#FFFFFF">
    <LABEL for=anno></LABEL>
    </font><font color="#FFFFFF">
    <LABEL for=sesso>Sesso:</LABEL>
    </font></p>
  <font color="#FFFFFF">
  <SELECT id="sesso" name="sesso">
    <OPTION value=0 selected>[seleziona]</OPTION>
    <OPTION value="M">Maschile</OPTION>
    <OPTION value="F">Femminile</OPTION>
  </SELECT>
  </font>
  <P class=labello></P>
  <P class=labello><font color="#FFFFFF">
    <LABEL for=professione></LABEL>
    </font><font color="#FFFFFF">
    <LABEL id=label-privacy for=privacy>Consenso 
    privacy</LABEL>
    </font></P>
  <font color="#FFFFFF">
  <INPUT id="privacy" tabIndex=8 type=checkbox value="accetto" 
name="privacy">
  </font>
  <P style="CLEAR: both; FONT-SIZE: 10px"><font color="#FFFFFF">
    <INPUT class=form-button id="invia" type="submit" value=Invia name=Invia>
    <INPUT type="reset" value="Annulla" name="reset">
    </font></P>
  </DIV>
  </FIELDSET>
</FORM>
<font color="#FFFFFF"> </font>
</BODY>
</HTML>

**yro** · 21-10-2008, 08:46

non ho detto il form, leggi bene ho scritto il testo della mail, cioè il body... chiamalo come ti pare.

Discussione: dati form in elenco

Strumenti discussione

Ricerca discussione

Visualizza

dati form in elenco

dati form in elenco

Re: dati form in elenco

Permessi di invio