<code>.<%
Function forumKod(strText)
strText = Server.HTMLEncode(strText)
strText = Replace(strText,"[b]","<b>")
strText = Replace(strText,"[/b]","</b>")
strText = Replace(strText,"[i]","<i>")
strText = Replace(strText,"[/i]","</i>")
strText = Replace(strText,"[u]","<u>")
strText = Replace(strText,"[/u]","</u>")
strText = Replace(strText,"[f]","<font color=""#0066CC"">")
strText = Replace(strText,"[/f]","</font>")

strText = Replace(strText,"[B]","<b>")
strText = Replace(strText,"[/B]","</b>")
strText = Replace(strText,"[I]","<i>")
strText = Replace(strText,"[/I]","</i>")
strText = Replace(strText,"[U]","<u>")
strText = Replace(strText,"[/U]","</u>")
strText = Replace(strText,"[F]","<font color=""#0066CC"">")
strText = Replace(strText,"[/F]","</font>")

strText = TRIM(strText)
strText = Replace(strText,vbcrlf," <br>")
forumKod = strText
End Function


Öppna databaskoppling, skapa SQL Sats med mera...
While Not RS.EOF
Response.Write forumKod(RS("KOLUMN")) & "<br>"
RS.MoveNext
Wend
Stänga databaskoppling med mera...
%> </code>


Hur får jag ny rad i denna koden tex.
Hej Ja heter Hassan.
Jag är 18 år.
Istället för:
Hej Ja heter Hassan. Jag är 18 år

Tacksam för svar!

Hassan

Kan du inte ha:
<code>
strText = Replace(strText,". ",".<br>")
</code>