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.
Frågan#1
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