Formattare email CDONTS

[Dodo66]

Ciao a tutti
Vi invio il code usato per l'invio dell'email perchè non riesco aformattare il messaggio?
Se elimino objobjMail.BodyFormat = 0
objobjMail.Mailformat = 0
funziona ma il messaggio riconosce solo gli spazi tra le variabili recuperate da un "URL" usando "Mia pagina.asp?var1=...var2=..."
Voglio dire che il testo non va a capo pur usando & VbCrLf & VbCrLf &
che ora nel codice nella parte iniziale della raccolta delle var ho tolto perchè inutile.
Grazie spero che qualcuno possa aiutarmi...
P.S. Finalmente è arrivata la primavera

<%

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="nunzia.scariati@tiscali.it"
CorpoMessaggio=request("ID")& request("prodotto")& request("prezzo")& request("tipo")& request("quantita")& request("Tot")& request("Somma")& VbCrLf & VbCrLf &"Nome: " & request.form("Nome")& VbCrLf & VbCrLf &"P.IVA: " & request("Piva")& VbCrLf & VbCrLf &"Azienda: " & request.form("Azienda")& VbCrLf & VbCrLf &"Indirizzo: " & request("Indirizzo")& VbCrLf & VbCrLf &"Città: " & request("Citta")& VbCrLf & VbCrLf &"Tel: " & request("Tel")& VbCrLf & VbCrLf &"Numero: " & request("Numero")& VbCrLf & VbCrLf &"Cap: " & request("Cap")& VbCrLf & VbCrLf &"Nazione: " & request("Nazione")& VbCrLf & VbCrLf &"Commenti: " & request("Commenti")
objMail.Body=CorpoMessaggio
objMail.To="dobas@tiscali.it"
objMail.Subject="Mail: www.aziendaagricolatabano.com"
objobjMail.BodyFormat = 0
objobjMail.Mailformat = 0
objMail.Send
set objMail = nothing
response.write "E-mail Inviata"

%>

[Roby_72]

Se la mail la invii in formato HTML devi usare "
" per andare a capo.
Se la invii in formato testo devi usare VbCrLf

Roby

[Dodo66]

Grazie Roby ora provo

[Dodo66]

Non funziona: se metto
dopo ogni variabile nel pulsante mi arriva nella mail
letteralmente,
se
lo inserisco nella pagina asp di invio mi da errore perchè non riconosce il tag ma la cosa strana è che per gli altri campi che ricevono informazioni da form VbCrLf funziona per le prime variabili invece arriva nella mail realmente come è scritto.
Non vorrei raccogliere i dati da form perchè devono essere solo letti dall'utente non manomessi.
Ti posto la query che invio:

code:
<form method="POST" action="mailacquisto.asp?ID=<%sdc = "driver={Microsoft Access Driver (*.mdb)};"
sdc= sdc + "dbq=" + Server.MapPath("totale.mdb")
set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString=sdc
conn.open
Set rstTabella = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Tabella ORDER BY ID Asc "
rstTabella.Open strSQL, conn
if not rstTabella.eof then


Set objID = rstTabella("ID")
Set objprodotto = rstTabella("prodotto")
Set objprezzo = rstTabella("prezzo")
Set objtipo = rstTabella("tipo")
Set objquantita = rstTabella("quantita")
Set objTot = rstTabella("Tot")
x=1
Do Until rstTabella.EOF%>
Cod.Prodotto<%=x%>=<%=rstTabella("ID")%>
Prodotto=<%=rstTabella("prodotto")%>
prezzo Euro=<%=rstTabella("prezzo")%>
tipo=<%=rstTabella("tipo")%> quantita=<%=rstTabella("quantita")%>
Tot=<%=rstTabella("Tot")%>
<%x=x+1%>
<%rstTabella.MoveNext
Loop
end if%>
Somma dei Totali Euro=<%=Somma%>">

[Roby_72]

Questi

Set objID = rstTabella("ID")
Set objprodotto = rstTabella("prodotto")
Set objprezzo = rstTabella("prezzo")
Set objtipo = rstTabella("tipo")
Set objquantita = rstTabella("quantita")
Set objTot = rstTabella("Tot")


eliminali.

Roby

[Dodo66]

Ciao Roby ho fatto come hai detto e funziona nello stesso modo nella mail mi arrivano i risultati così:


Cod.Prodotto1=102
Prodotto=Olio Extra Vergine D'Oliva prezzo Euro=
7 tipo=Num. Bottiglie quantita=4 Tot=28Cod.Prodotto2=103

Prodotto=Olio Extra Vergine D'Oliva prezzo Euro= 42 tipo=Num.
Confezioni quantita=4 Tot=168 Somma dei Totali Euro=196

Sono corretti ma tutti legati non riesco a metterli in colonna

[Roby_72]

Stai inviando una email in formato testo...

Roby

[Dodo66]

Questo è il codice che uso per l'invio dell'email ma non ho potuto inserire come vedi Body.Format = 0 nemmeno Body.Format = 1
Mail.Format = 0 oppure Mail.Format = 1
perchè mi da errore.
Comunque ho cambiato l'ivio delle var usando dei form nascosti
e mi arrivano le formattazioni solo che i prodotti non sono incolonnati singolarmente cioè:
una cosa del genere
Pro1= 40 Prod2 = 41
Olio1 carne2 ecc. probabilmente devo intervenire

qui:
<form method="POST" action="mailacquisto.asp">
<%sdc = "driver={Microsoft Access Driver (*.mdb)};"
sdc= sdc + "dbq=" + Server.MapPath("totale.mdb")
set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString=sdc
conn.open
Set rstTabella = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Tabella ORDER BY ID Asc "
rstTabella.Open strSQL, conn
if not rstTabella.eof then


Set objID = rstTabella("ID")
Set objprodotto = rstTabella("prodotto")
Set objprezzo = rstTabella("prezzo")
Set objtipo = rstTabella("tipo")
Set objquantita = rstTabella("quantita")
Set objTot = rstTabella("Tot")
x=1
Do Until rstTabella.EOF%>
Cod.<input type="hidden" name="ID" size="10" value="Cod<%=x%>=<%=rstTabella("ID")%>">
Prodotto<input type="hidden" name="prodotto" size="10" value="Prodott<%=x%>=<%=rstTabella("prodotto")%>">
prezzo<input type="hidden" name="prezzo" size="10" value="prezzo<%=x%>=<%=rstTabella("prezzo")%>">
tipo<input type="hidden" name="tipo" size="10" value="tipo<%=x%>=<%=rstTabella("tipo")%>">
quantita<input type="hidden" name="quantita" size="10" value="quantita<%=x%>=<%=rstTabella("quantita")%>" >
Tot<input type="hidden" name="Tot" size="10" value="Tot<%=x%>=<%=rstTabella("Tot")%>">
<%x=x+1%>
<%rstTabella.MoveNext
Loop
end if%>
Somma dei Totali=<input type="hidden" name="Somma" size="10" value=" Somma dei Totali<%=Somma%>">

[Roby_72]

Ma in tutto questo lo script di invio email dove è sommerso?

Roby

[Dodo66]

Scusa pensavo di averlo già postato:
<%

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="nunzia.scariati@tiscali.it"
CorpoMessaggio=request("ID")& VbCrLf & VbCrLf & request("prodotto")& VbCrLf & VbCrLf & request("prezzo")& VbCrLf & VbCrLf & request("tipo")& VbCrLf & VbCrLf & request("quantita")& VbCrLf & VbCrLf & request("Tot")& request("Somma")& VbCrLf & VbCrLf &"Nome: " & request.form("Nome")& VbCrLf & VbCrLf &"P.IVA: " & request("Piva")& VbCrLf & VbCrLf &"Azienda: " & request.form("Azienda")& VbCrLf & VbCrLf &"Indirizzo: " & request("Indirizzo")& VbCrLf & VbCrLf &"Città: " & request("Citta")& VbCrLf & VbCrLf &"Tel: " & request("Tel")& VbCrLf & VbCrLf &"Numero: " & request("Numero")& VbCrLf & VbCrLf &"Cap: " & request("Cap")& VbCrLf & VbCrLf &"Nazione: " & request("Nazione")& VbCrLf & VbCrLf &"Commenti: " & request("Commenti")
objMail.Body=CorpoMessaggio
objMail.To="dobas@tiscali.it"
objMail.Subject="Mail: www.aziendaagricolatabano.com"
objMail.Send
set objMail = nothing
response.write "E-mail Inviata"
response.redirect"vetrina.asp"
%>

Sto ancora ridendo per la tua battuta... scusa ancora