inte för att jag förstår vad du menar men lite kan jag väl påpeka! :)
man lägger aldrig en iftagg runt en function.
detta för att functionen i sig kommer ingen åt att kunna använda, den aktiveras bara där du vill det i koden.
sen ang. din fråga, är det funktionen du bifogat som alla ska använda?
If showAll("vip") = 1 Then
textToCheck=convertLink(replace(maketext(makeHtml(showAll("klotterText"))),vbCrLf,"<br>")) &""
Else
textToCheck=replace(maketext(showAll("klotterText")),vbCrLf,"<br>") &""
End If
function maketext(byVal inpt)
Dim inp:inp=inpt
inp = Replace(inp,"<konst>","<table background=""/images/bg/art.gif"" width=""600"" height=""80""><tr><td valign=""top"" style=""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 background=""/images/bg/flowers.gif"" style=""background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"" width=""600"" height=""80""><tr><td valign=""top"" >",1,-1,1)
inp = Replace(inp,"</blommor>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<sport>","<table background=""/images/bg/sport.gif"" style=""background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"" width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</sport>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stop>","<table background=""/images/stop.gif"" style=""background-repeat:no-repeat; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"" width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</stop>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<kyckling>","<table background=""/images/easter/kyckling.gif"" style=""background-repeat:no-repeat; background-color:#f6e360; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"" width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</kyckling>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<kyckling1>","<table background=""/images/easter/kyckling1.gif"" style=""background-repeat:no-repeat; background-color:#f6e360; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"" width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</kyckling1>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<äggkorg>","<table background=""/images/easter/eggbasket.gif"" style=""background-repeat:no-repeat; background-color:#f6e360; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"" width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</äggkorg>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"{","<font color=""navy""><b>",1,-1,1)
inp = Replace(inp,"}","</b></font>",1,-1,1)
inp = Replace(inp,"(","<font color=""maroon""><b>",1,-1,1)
inp = Replace(inp,")","</b></font>",1,-1,1)
inp = Replace(inp,"<marquee>","<marquee>",1,-1,1)
inp = Replace(inp,"blue","white",1,-1,1)
inp = Replace(inp,"<me>",""&showAll("username")&"",1,-1,1)
inp = Replace(inp,"<hej>","Hej på er alla, hur är det med er?",1,-1,1)
inp = Replace(inp,"<lajv>","Kom igen nu och lajva lite mera *ler*",1,-1,1)
inp = Replace(inp,"<right>","<table width=""600""><tr><td align=""right"">",1,-1,1)
inp = Replace(inp,"</right>","</td></tr></table>",1,-1,1)
maketext = inp
end function