Replace krånglar!

Tjenare!

     <% 
Function byt(strTexten) 
strTexten = Replace(server.HTMLEncode(strTexten),vbCrlf,"<br>")
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
		
strTexten = Replace(strTexten,"[b]","<b>")
strTexten = Replace(strTexten,"[/b]","</b>") 
strTexten = Replace(strTexten,"[i]","<i>")
strTexten = Replace(strTexten,"[/i]","</i>") 
strTexten = Replace(strTexten,"[u]","<u>") 
strTexten = Replace(strTexten,"[/u]","</u>") 
strTexten = Replace(strTexten,"[c]","<center>") 
strTexten = Replace(strTexten,"[/]","</center>")
		
byt = strTexten 
End Function 
%>

Denna kod har jag på sidan..
I databasen har jag olika rubriker, bland annat:

[ b ]Teori[ /b ] &[ i ]Teori[ /i ] (utan mellanslag)

Det blir kursivt på den ena, men det blir ingen skillnad på den som ska bli fet.

Vad är felet??

Du behöver inte blanda in regexp. Du kan byta ut måsvingarna till [] om du vill.

Function byt(strTexten) 
	strTexten = Replace(server.HTMLEncode(strTexten),vbCrlf,"<br>")
	strTexten = Replace(strTexten,"{b}","<b>")
	strTexten = Replace(strTexten,"{/b}","</b>") 
	strTexten = Replace(strTexten,"{i}","<i>")
	strTexten = Replace(strTexten,"{/i}","</i>") 
	strTexten = Replace(strTexten,"{u}","<u>") 
	strTexten = Replace(strTexten,"{/u}","</u>") 
	strTexten = Replace(strTexten,"{c}","<center>") 
	strTexten = Replace(strTexten,"{/c}","</center>")
	byt = strTexten 
End Function

Jag fixade de genom att tanka upp filen genom windows ftpfunktion :P
Körde allt genom DW först..