Strul med att köra replace

response.write makeHtml(view("presentation"))

Denna rad gör ingen replace, hur ska jag få den att köra replacen

<guld>test</guld> skriver ut detta utan att göra replacen för guld

makeHtml är

function makeHtml(byVal inpt)
	Dim inp:inp=inpt
		inp = Replace(inp,"<guld>","<table cellpadding=""0"" cellspacing=""0"" width=""600"" height=""80""><tr><td valign=""top"" style=""background-color:gold; background-repeat:repeat;  background-position:right; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
		inp = Replace(inp,"</guld>","</td></tr></table>",1,-1,1)
		inp = Replace(inp,"<fet>","<b>",1,-1,1)
		inp = Replace(inp,"</fet>","</b>",1,-1,1)
		inp = Replace(inp,"<kursiv>","<i>",1,-1,1)
		inp = Replace(inp,"</kursiv>","</i>",1,-1,1)
		inp = Replace(inp,"<rubrik>","<font size=3>",1,-1,1)
		inp = Replace(inp,"</rubrik>","</font>",1,-1,1)
		inp = Replace(inp,"<Mtext>","<font color=""#800000"" size=2>",1,-1,1)
		inp = Replace(inp,"</Mtext>","</font>",1,-1,1)
		inp = Replace(inp,"<kod>","<table style=""background-color:#FFFFFF; font:Verdana, Helvetica, sans-serif; color:#000000; font-size:9pt; border: 1px solid #000000;""><tr><td>",1,-1,1)
		inp = Replace(inp,"</kod>","</td></tr></table>",1,-1,1)
		inp = Replace(inp,"<markera>","<span style=""background-color:#ffff80; font size:10pt; font-face:Arial; margin-left:0px; margin-right:0px; margin-top:0px; margin-bottom:0px;"">",1,-1,1)
		inp = Replace(inp,"</markera>","</span>",1,-1,1)
		inp = Replace(inp,":-)"," <img border=""0"" src=""/images/smileys/happy.gif"">")
		inp = Replace(inp,":-D"," <img border=""0"" src=""/images/smileys/happy1.gif"">")
		inp = Replace(inp,":-()"," <img border=""0"" src=""/images/smileys/angry.gif"">")
		inp = Replace(inp,";-("," <img border=""0"" src=""/images/smileys/sad.gif"">")
		inp = Replace(inp,";-)"," <img border=""0"" src=""/images/smileys/flirt.gif"">")
		inp = Replace(inp,"8-)"," <img border=""0"" src=""/images/smileys/cool.gif"">")
		inp = Replace(inp,"beer"," <img border=""0"" src=""/images/smileys/beer.gif"">")
		inp = Replace(inp,":-p"," <img border=""0"" src=""/images/smileys/tounge.gif"">")
		inp = Replace(inp,"shame"," <img border=""0"" src=""/images/smileys/shame.gif"">")
		inp = Replace(inp,"moose"," <img border=""0"" src=""/images/smileys/moose.gif"">")
		inp = Replace(inp,"blah"," <img border=""0"" src=""/images/smileys/blah.gif"">")
		inp = Replace(inp,"=b"," <img border=""0"" src=""/images/smileys/beergrin.gif"">")
		inp = Replace(inp,"yes"," <img border=""0"" src=""/images/smileys/tummeupp.gif"">")
		inp = Replace(inp,":no"," <img border=""0"" src=""/images/smileys/tummener.gif"">")
		inp = Replace(inp,":-%"," <img border=""0"" src=""/images/smileys/devil.gif"">")
		inp = Replace(inp,":rose"," <img border=""0"" src=""/images/icons/rose1.gif"">")		
		inp = Replace(inp,"rosse"," <img border=""0"" src=""/images/avatarer/32.gif"">")		
		inp = Replace(inp,"sleep"," <img border=""0"" src=""/images/avatarer/46.gif"">")		
		inp = Replace(inp,"-love"," <img border=""0"" src=""/images/avatarer/heart.gif"">")		
		inp = Replace(inp,"-presse"," <img border=""0"" src=""/images/avatarer/present.gif"">")		
		inp = Replace(inp,"kiss"," <img border=""0"" src=""/images/avatarer/kiss.gif"">")		
		inp = Replace(inp,"dhug"," <img border=""0"" src=""/images/avatarer/dude_hug.gif"">")		
		inp = Replace(inp,"ghug"," <img border=""0"" src=""/images/avatarer/girl_hug.gif"">")	
		inp = Replace(inp,":krama"," <img border=""0"" src=""/images/avatarer/dude_hug.gif""><img border=""0"" src=""/images/avatarer/girl_hug.gif"">")	
		inp = Replace(inp,"adminn"," <img border=""0"" src=""/images/users/bw.jpg"">")
		inp = Replace(inp,"-sponsra","Om du vill stödja Webbisen och du gillar sidan så kan du sponsra sidan genom att skicka ett sms med <b>webbis04 sponsra10</b> eller <b>webbis04 sponsra50</b> till nummer 72550, sms-et kostar 10 kronor resp 50 kronor, sponsrar du med 50 kronor så får du förutom en snygg logga på din sida även 20 webblajv, se bara till att du har ditt mobilnummer inlagt på Webbisen.com") 
		inp = Replace(inp,"choko"," <img border=""0"" src=""/images/choklad.gif"">")		
		inp = Replace(inp,"blro"," <img border=""0"" src=""/images/icons/blueroses.gif"">")		
		inp = Replace(inp,"lifl"," <img border=""0"" src=""/images/icons/litenflagga.gif"">")	
		inp = Replace(inp,"drr"," <img border=""0"" src=""/images/dozenroses.gif"">")
makeHtml = inp
end function

Enligt min test så funkar det bra.
Är det så att du kör server.htmlEncode på texten innan? För i sådana fall så görs <> om till < och > som inte är så lyckat, Använd t.ex. [och] i stället.

vad jag har sett och som du ser i bifogade koden så har jag ingen sån där

med [] gick det bra ..... nu får jag felsöka lite efter felet med <>

jag hittar ingen server.htmlEncode