Linieskrift i forum med HTMLEncode

http://activedeveloper.dk/forum/forum.asp?mid=26982

//>Rune

jep... har læst den, men jeg kan ikke få den til at virke, jeg har skrevet dette:
strKOM = (rs("kommentar") & Server.HTMLEncode(Replace(Replace(objRST("TEKSTFELT"), vbCrLf, "<br>"),"'","''")))

strKOM = rs("kommentar")
strKOM = strKOM & Server.HTMLEncode(Replace(objRST("TEKSTFELT"), vbCrLf, "<br>")
strKOM = strKOM & Replace(objRST("TEKSTFELT"), "'", "''")

//>Rune

hmm ok... det jeg ikke forstår er hvad objRST("TEKSTFELT") er??

Det er en record som i databasen!

//>Rune

jo, men der bliver jo ikke hentet noget fra databasen... det kommer directe fra en form.

ahh *G* så skal der jo stå Request.Form("TEKSTFELT") ;-)

//>Rune

aha... så giver det hele jo mening:o)

huh... med denne kode:

strKOM = request.form("kommentar")
strKOM = strKOM & Server.HTMLEncode(Replace(request.form("kommentar"), vbCrLf, "<br>"))
strKOM = strKOM & Replace(request.form("kommentar"), "'", "''")

...skriver den:

g g g gg&lt;br&gt;g&lt;br&gt;g&lt;br&gt;gg g g g

...hvor jeg skrev:

g
g
g
g

Okay, her er en rimlig skummel måde at gøre det på, men den virker ;) hehe:


Tekst=Replace(objRS("txt"), vbCrLf, "fdfdfsdgfsdafdsfsdafdhg565645")
Tekst=Replace(Tekst, "<", "&lt;")
Tekst=Replace(Tekst, ">", "&gt;")
Tekst=Replace(Tekst, "fdfdfsdgfsdafdsfsdafdhg565645", "<br>")

Så disabler den alt html ved at lave < og > til &lt; og &gt;,
men vis du skriver "fdfdfsdgfsdafdsfsdafdhg565645" så laver den det om til et linjeskift.. hehe

/Neo ~ www.biggel.com

;-)

//>Rune

hmm... ellers tak << nowoe >> , virker ret besværligt da det er brugerne der skal bruge dette ;o)

hehe ;)

har fået det til at fungere med dette:

strKOM = request.form("kommentar")
strKOM = Replace(Replace(Server.HTMLEncode(strKOM),vbCrLf, "<br>"),"'","''")

ThX 4 da hilfe...;o)...

Anytime!
Thx 4 Poinz

//>Rune