disabled trodde jag bara var för att inte kunna skriva i rutan men den gjorde visst mer än så, där var felet
Nu ett annat fel, när jag skapar ett nytt rum som inte finns i databasen så får jag detta fel
error '80020009'
/misc/klotter/klottra.asp, line 18
line 18 är fetmarkerad
[b]if showAll("vip") = 1 then[/b]
function maketext(byVal inpt)
Dim inp:inp=inpt
inp = Replace(inp,"<konst>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/art.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold; color:#000000;"">",1,-1,1)
inp = Replace(inp,"</konst>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<blommor>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/flowers.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</blommor>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<sport>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/sport.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</sport>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stop>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/stop.gif); background-repeat:no-repeat; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</stop>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stefan>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/moose1.png); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</stefan>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<ior>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/ior_small.gif); 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,"</ior>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<rosa>","<table cellpadding=""0"" cellspacing=""0"" width=""600"" height=""80""><tr><td valign=""top"" style=""background-color:pink; 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,"</rosa>","</td></tr></table>",1,-1,1)
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,"<rod>","<table cellpadding=""0"" cellspacing=""0"" width=""600"" height=""80""><tr><td valign=""top"" style=""color:#DDDDDD; background-color:red; 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,"</rod>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<bla>","<table cellpadding=""0"" cellspacing=""0"" width=""600"" height=""80""><tr><td valign=""top"" style=""color:#DDDDDD; background-color:blue; 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,"</bla>","</td></tr></table>",1,-1,1)
maketext = inp
end function
end if