Function repIT(str)
str = Server.HTMLEncode(str)
str = Replace(str, ,"=============", vbCrLf)
str = Replace(str, "<", "''")
str = Replace(str, ">", "''")
repIT = str
End Function
Sen är det bara att köra:
Response.Write(repIT(rs("message")))
/r
*Om du använder HTMLEncode innan de andra, behövs väl inte de två sista replace?
< resp. > blir ju till > resp < så "<" resp. ">" kommer inte existera...??
Du kan låta returvärdet ifrån en Replace vara parameter i en annan Replace, precis som du låter returnvärdet ifrån Rreplace vara parameter i Server.HTMLEncode. Exempel: