Du ska inte definiera en funktion inne i en if-sats.
Frågan#1
Nu har jag fått hjärnsläpp, varför ersätts inte bakgrunderna som de ska
if showAll("vip") = 1 then
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)
maketext = inp
end function
end if
<%If showAll("vip") = 1 Then%>
<%=convertLink(replace(extra(maketext(makeHtml(showAll("klotterText")))),vbCrLf,"<br>"))%>
<%Else%>
<%=replace(showAll("klotterText"),vbCrLf,"<br>")%>
<%End If%>