Ändra inte på texten när du lägger den i databasen. Ändringar på texten görs bäst när du plockar ut den från databasen.
<%
Function formatString(ByVal sString)
If IsEmpty(sString) Then Exit Function
sString = Replace(sString, vbcrlf," <BR> ")
'## -- return formatted text --
formatString = sString
End Function
strText = rs("text")
Response.Write formatString(strText)
%>
Funktionen kan med fördel läggas i en inkluderings fil som sedan inkluderas på de sidor den behöver användas på
Lukaspojken:
Ja, blir ju mindre att skriva än att på varje ställe där jag vill använda den skriva hela replace ......
Då räcker det med att bara anropa denna funktion.