Ciao a tutti dopo ricerche nel forum e in rete ancora non sono riuscito afar andare a capo un testo nella mail recuperato da texarea in un modulo invio dati fatto con Front Page.
Ho capito che la soluzione è nella funzione di "Replace" dei coamndi di a capo da Html a Asp
ma ho provato vari scritti senza risultato.
Il primo codice recuperato:
il replace giusto (per asp) è questo:
- chr(13) individua la newline di flash
- vbcrlf inseriamo la newline per asp/vb
Ma il mio form non viene da Flash ma Front Page.Suppongo che chr(13) abbia un altro significato. Comunque non funziona
Altro codice:
<%response.write replace(request.form("Commenti"),chr(13)&chr(10),"
")%>
non funziona mi arriva un rigo enorme
Questo ho inserito nella pagina in
CorpoMessaggio=
"Commenti: " & replace(request.form("Commenti"),"
",vbCrLf)&"
" & vbCrLf &_
Mia Pagina
<%dim email
email=request("email")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From=email
CorpoMessaggio="RICHIESTA DI ACQUISTO DAL SITO WEB"& "
" & vbCrLf &_
"------------------------------------------------" & "
" & vbCrLf &_
request("Totale")&VbCrLf & request("Somma") & "
" & vbCrLf &_
"INDIRIZZO DI FATTURAZIONE" & "
" & vbCrLf &_
"Nome e Cognome: " & request.form("Nome")& "
" & vbCrLf &_
"P.IVA/CF: " & request("Piva")& "
" & vbCrLf &_
"Azienda Mitt.: " & request.form("Azienda")& "
" & vbCrLf &_
"Indirizzo: " & request("Indirizzo")& "
" & vbCrLf &_
"Città: " & request("Citta")& "
" & vbCrLf &_
"Tel: " & request("Tel")& "
" & vbCrLf &_
"Numero: " & request("Numero")& "
" & vbCrLf &_
"Cap: " & request("Cap")& "
" & vbCrLf &_
"Nazione: " & request("Nazione")& "
" & vbCrLf &_
"Commenti: " & replace(request.form("Commenti"),"
",vbCrLf)&"
" & vbCrLf &_
"-----------------------------------------------------------" & "
" & vbCrLf &_
"INDIRIZZO"&" "& "DI"&" "&"CONSEGNA" & "
" & vbCrLf &_
"AZIENDA/DESTINATARIO:" & request("destinatario")& "
" & vbCrLf &_
"Nome destinatario:" & request("nomedest")& "
" & vbCrLf &_
"Via destinatario:" & request("viadest")& "
" & vbCrLf &_
"Numero destinatario:" & request("numerodest")& "
" & vbCrLf &_
"C.A.P. destinatario:" & request("capdest")& "
" & vbCrLf &_
"Città destinatario:" & request("cittadest")& "
" & vbCrLf &_
"Nazione destinatario:" & request("nazionedest")& "
" & vbCrLf &_
"Telefono destinatario:" & request("teldest")& "
" & vbCrLf &_
"E-mail destinatario:" & request("emaildest")
objMail.Body=CorpoMessaggio
objMail.To="dobas@tiscali.it"
objMail.Subject="Mail: www.aziendaagricolatabano.com"
objMail.BodyFormat=0
objMail.Mailformat=0
objMail.Send
set objMail = nothing
response.write "E-mail Inviata"
response.redirect "inizio_acquisti.asp?email="&email
%>
Fatemi sapere qualcosa grazie
Rispondi quotando
VVoVe: 
