Forumkod.

Fråga 1, fattar inte mycket av den..

Nu är det så att när jag postar ett meddelande blir till exempel ett kodstycke så här:

å sen visar du en annan replacekod???

Men om jag utanför koden postar...

?? Nä, fattar ej...

Fråga 2.

Function SQLEncode(ByVal sString)
	SQLEncode = Replace(sString, "'", "''")
End Function

solbulle; koden som är en annan replace-kod är bara testkod som skrivs ut på sidan som den är, precis som din kod för funktionen här ovan. Tack!

tycker koderna ser himla klumpiga.. för det första så bör väll inte

incoming = Replace(incoming,"<","<")
incoming = Replace(incoming,">",">")

vara längst upp..
jag hade fixat detta med hjälp av reg.exp istället.. enklare och *host* bättre tror jag :e

Jo.. Jag ska koda om funktionen.

<%
Function encode(mess)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
mess = Server.HTMLEncode(mess)

objRegExp.Pattern = "\[(b|/b|i|/i|u|/u)\]"
mess = objRegExp.Replace(mess,"<$1>")

objRegExp.Pattern = "&lt;(b|/b|i|/i|u|/u)&gt;"
mess = objRegExp.Replace(mess,"<$1>")

objRegExp.Pattern = "\[citat\]"
mess = objRegExp.Replace(mess,"<span class=""citat"">Citat:<br><img src=""graphics/line.gif"" width=""500"" height=""11""><br>")

objRegExp.Pattern = "\[/citat\]"
mess = objRegExp.Replace(mess,"</span><br><img src=""graphics/line.gif"" width=""500"" height=""11""><br>")

objRegExp.Pattern = "\[kod\]"
mess = objRegExp.Replace(mess,"<span class=""forumkod"">Kod:<br><img src=""graphics/codeline.gif"" width=""500"" height=""11""><br>")

objRegExp.Pattern = "\[/kod\]"
mess = objRegExp.Replace(mess,"</span><br><img src=""graphics/codeline.gif"" width=""500"" height=""11""><br>")

encode = mess

%>

menar du så?

Oj, jag har inte testat men ska testa det senare.. Tack!