form mail

[leozone]

Ciao a tutti
Ho creato un form email di prova in ,dove i dati vengono inseriti in flash e l'mail viene inviata in asp tramite cdo.sys.

Mettiamo che io inserisca nel messaggio questo:

Ciao a tutti nla bla
bla bla bla
bla
Perchè quando vado a richiamare la variabile del campo input con
.textBody=variabile
non mantiene gli a capo?Praticamente diventa cosi':
Ciao a tutti nla bla bla bla bla bla
Mi aiutate?
Vi ringrazio .

[leozone]

Nessuno sa niente.
grazie

[Mems]

testo = replace(testo,vbCrLf,"
")
.textBody = testo

[leozone]

Allora ho fatto cosi':

descrizione=Request.Form("desc")

descrizione = replace(descrizione,vbCrLf,"
")
poi
objCDOMail.textBody= descrizione

ma gli a capo non li mantiene.
Grazie.

[leozone]

Ho provato anche cosi':

flash dove passa la variabile desc alla pagina vedere.asp

function bottone() {
mail= new LoadVars();
mail.desc= this.desc;
mail.send("http://www.tuosito.it/invia/vedere.asp","mail","_appendblank","get");
}
bt.onRelease = function() {
bottone()
};


vedere.asp


<%
desc=Request.Form("desc")
Response.Write replace(desc,vbCrLf,"
")
%>

ma niente, gli a capo non le mantiene eppure mi pare corretto,vi prego di prendere a cuore questo caso.

provate anche voi:
http://www.leozone.it/invia/vedere.swf

Grazie mille.

[Mems]

al posto di vbCrLf prova a mettere chr(10) oppure chr(13)

[leozone]

Allora facciamo un po' di ordine:

form flash:

function bottone() {
mail= new LoadVars();
mail.desc= this.desc;
mail.send("http://www.tuosito.it/invia/vedere.asp","mail","_appendblank","get");
}
bt.onRelease = function() {
bottone()
};

vedere.asp:

<%
desc=Request.Form("desc")
Response.Write replace(desc,vbCrLf,"
")
%>

gli a capo non li mantiene,se invece cambio vbCrLf con chr(13),mantiene gli a capo.

Ma la cosa strana che poi e' quella che mi interessa e' che se vado ad inviare con flash e pagina asp l'email con cdo.sys gli a capo non li mantiene:

<%
dim objCDOMail
mail=Request.Form("email")

desc=Request.Form("desc")

desc=replace(desc,chr(13),"
")


Set objCDOMail = Server.CreateObject("CDO.Message")

Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort

Flds(cdoSMTPServer) = "localhost"

Flds(cdoSMTPServerPort) = 25

Flds(cdoSMTPAuthenticate) = cdoAnonymous

Flds.Update

Set objCDOMail.Configuration = iConf

objCDOMail.To=mail
objCDOMail.Sender = "amministratore@miosito.com"
objCDOMail.Subject="bla bla bla"
objCDOMail.textBody= desc


objCDOMail.Send
Set objCDOMail = nothing


%>


Perche' tramite Response.Write replace(desc,vbCrLf,"
")
mantiene gli a capo e invece se vado ad assegnare nell'invio email:

objCDOMail.textBody= desc gli a capo non li mantiene?

Scusate,spero di essermi spiegato!
Grazie.

[leozone]

Risolto
dovevo mettere

objCDOMail.htmlBody invece di

objCDOMail.textBody