Det här fanns för några dagar sedan här på wF
<%=">" & Replace(rs("meddelande"), vbcrlf, vbcrlf &">")%>
10 svar · 223 visningar · startad av bassebhu
Hej!
Jag har ett community med en mailfunktion.
Hur fixar jag så att det blir som tex. lunarstorms mailgrej. Att när jag trycker på svara kommer gamla meddelandet upp i svarafältet med en > framför varje rad??
Sen hur man byter färg på text som har en > framför sig. dvs. att när mottagaren sedan läser mejlet har varje textrad som börjar med
>texthär...
en annan färg??
tack
mvh: basse
Det här fanns för några dagar sedan här på wF
<%=">" & Replace(rs("meddelande"), vbcrlf, vbcrlf &">")%>
ok. och vad ska ja göra med det där? byter ju inte färg med den koden juh!
och den första frågan ja ställde?
mvh: basse
<%Response.write "<font color=red>" & "<textarea name="textfield">"& ">" & Replace(rs("meddelande"), vbcrlf, vbcrlf &">")&"</textarea></font>"%>
/MVH Jesper
[Redigerat av Jesper T den 27 jan 2002]
en mycket användbar sak.
dock undrar jag hur jag byter ut <br>-taggarna som finns i det gamla meddelandet mot vbcrlf eller något.
det finns ett script för detta i wF-script men jag lyckas inte kombinera dessa båda.
förslag?
Har du lagrat text med <br>-taggar i databasen?
I så fall så hade jag nog gjort så här:
<%
strMeddelande = replace(rs("meddelande"), "<br>", vbcrlf)
Response.write "<font color=red>" & "<textarea name="textfield">"& ">" & Replace(strMeddelande, vbcrlf, vbcrlf &">")&"</textarea></font>"
%>
Mvh,
det är emissionens wf-kod som är använd.
det vill sig fortfarande inte. resultatet blir:
>nu <BR>
>ska <BR>
>det <BR>
>här<BR>
>fungera!<BR>
><BR>
>ju!
knasigt.
anders kod ville föresten se ut så här:
<%
strMeddelande = replace(RecSet("meddelande"), "<br>", vbcrlf)
Response.write "<font color=red>" & "<textarea name='meddelande' rows='15' cols='40' maxlenght='999'>"& ">" & Replace(strMeddelande, vbcrlf, vbcrlf &">")&"</textarea></font>"
%>
Har du html-encodat allt i databasen?
Hmm, i så fall:
<%
strMeddelande = replace(RecSet("meddelande"), "<br>", vbcrlf, 1)
Response.write "<font color=red>" & "<textarea name='meddelande' rows='15' cols='40' maxlenght='999'>"& ">" & Replace(strMeddelande, vbcrlf, vbcrlf &">")&"</textarea></font>"
%>
Fast jag är ju inte riktigt säker på att jag förstår...
Mvh,
Det fungerar inte. Radbrytningen i textfältet som sker pga att raden är slut (alltså inte den radbrytningen som är lagrad som <br>.) ersätts inte med vbcrlf & ">".
Tja, vi får väl vänta på att @nders svarar.