<%
Function encode(mess)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
mess = Server.HTMLEncode(mess)
objRegExp.Pattern = "\[(kod)\](.*?)\[\/(kod)\]"
mess = objRegExp.Replace(mess,"<blockquote><font style=""font-size: 9px"">Kod:</font><hr class=""mess4"" size=""1"">"&[b]code(""&"$2"&"")&"[/b]</font><hr class=""mess4"" size=""1""></blockquote>")
encode = mess
End Function
%>
funktionen CODE:
Function code(mess)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
mess = Server.HTMLEncode(mess)
objRegExp.Pattern = "(det)"
mess = objRegExp.Replace(mess,"<font color=""FF0000"">$1</font>")
code = mess
End Function
kan man inte få detta att fungera??? jag får om jag skriver istället för $2 till "det" så blir det som det ska.. men om jag kör $2 så skriver den bara ut $2 (texten alltså inte $2) helt knäppt.. detta ska väll kunna gå?
$ är () sakerna i början:
objRegExp.Pattern = "\[(kod)\](.*?)\[\/(kod)\]"
$1 = (kod)
$2 = (.*?) = vilka tecken som hellst
$3 = (kod)
så jag tror inte din sak fungera..
det tröga är när jag skriver i:
mess = objRegExp.Replace(mess,"<blockquote><font style=""font-size: 9px"">Kod:</font><hr class=""mess4"" size=""1"">"&code(""&"$2"&"")&"</font><hr class=""mess4"" size=""1""></blockquote>")
