ASP Ubb transfer function

Function Ubbencode (Content)

Fstring=content
Fstring=replace (fstring, "<", "&lt;")
Fstring=replace (fstring, ">", "&gt;")
Fstring=replace (FSTRING,CHR), "<BR>"
fstring = Docode (fstring, "[b]", "[/II]", "<b>", "</b>")
fstring = Docode (fstring, "[s]", "[/A]", "<s>", "</s>")
fstring = Docode (fstring, "[Strike]", "[/strike]", "<s>", "</s>")
fstring = Docode (fstring, "[U]", "[/U]", "<u>", "</u>")
fstring = Docode (fstring, "[I]", "[/I]", "<i>", "</i>")

fstring = Docode (fstring, "[Font=andale Mono]", "[/font=andale Mono]", "<font face= ' Andale Mono ' >", "</font id=" Andale Mono ' > ')
fstring = Docode (fstring, "[Font=arial]", "[/font=arial]", "<font face= ' Arial ' >", "</font id= ' Arial >")
fstring = Docode (fstring, "[Font=arial Black]", "[/font=arial Black]", "<font face= ' Arial black ' >", "</font id=" Arial black ' > ')
fstring = Docode (fstring, "[Font=book Antiqua]", "[/font=book Antiqua]", "<font face= ' book Antiqua ' >", "</font I d= ' book antiqua ' > ')
fstring = Docode (fstring, "[Font=century Gothic]", "[/font=century Gothic]", "<font face= ' Century Gothic ' >", "< /font id= ' Century Gothic ' > ')
fstring = Docode (fstring, "[Font=courier new]", "[/font=courier new]", "<font face= ' Courier ' new ' >", "</font id=" Courier New ' > ')
fstring = Docode (fstring, "[Font=comic Sans ms]", "[/font=comic Sans ms]", "<font face=" comic Sans ms ' > "," </font Id= ' comic Sans MS ' > ')
fstring = Docode (fstring, "[Font=georgia]", "[/font=georgia]", "<font face= ' Georgia ' >", "</font id= ' Georgia '" > ")
fstring = Docode (fstring, "[Font=impact]", "[/font=impact]", "<font face= ' Impact ' >", "</font id= ' Impact ' >" )
fstring = Docode (fstring, "[Font=tahoma]", "[/font=tahoma]", "<font face= ' Tahoma ' >", "</font id= ' Tahoma ' >" )
fstring = Docode (fstring, "[Font=times New Roman]", "[/font=times New Roman]", "<font face= ' Times New Roman ' >", " /font id= ' times New Roman ' > ')
fstring = Docode (fstring, "[Font=trebuchet Ms]", "[/font=trebuchet Ms]", "<font face= ' trebuchet ms ' >", "</font I d= ' trebuchet MS ' > ')
fstring = Docode (fstring, "[Font=script MT Bold]", "[/font=script MT Bold]", "<font face= ' Script MT bold ' >", "</f Ont id= ' Script MT Bold ' > ')
fstring = Docode (fstring, "[Font=stencil]", "[/font=stencil]", "<font face= ' stencil ' >", "</font id= ' Stencil '" > ")
fstring = Docode (fstring, "[XXFarEastFont-Arial]", "[/font= XXFarEastFont-Arial]", "<font face= ' song body ' >", "</font id= ' XXFarEastFont-Arial ' >")
fstring = Docode (fstring, "[Font=verdana]", "[/font=verdana]", "<font face= ' Verdana ' >", "</font id= ' Verdana '" > ")
fstring = Docode (fstring, "[Font=lucida console]", "[/font=lucida console]", "<font face= ' Lucida Console ' >", "< /font id= ' Lucida Console ' > ')

fstring = Docode (fstring, "[Red]", "[/red]", "<font color=red>", "</font id=red>")
fstring = Docode (fstring, "[Green]", "[/green]", "<font color=green>", "</font id=green>")
fstring = Docode (fstring, "[Blue]", "[/blue]", "<font color=blue>", "</font id=blue>")
fstring = Docode (fstring, "[White]", "[/white]", "<font color=white>", "</font id=white>")
fstring = Docode (fstring, "[Purple]", "[/purple]", "<font color=purple>", "</font id=purple>")
fstring = Docode (fstring, "[Yellow]", "[/yellow]", "<font color=yellow>", "</font id=yellow>")
fstring = Docode (fstring, "[Violet]", "[/violet]", "<font color=violet>", "</font id=violet>")
fstring = Docode (fstring, "[Brown]", "[/brown]", "<font color=brown>", "</font id=brown>")
fstring = Docode (fstring, "[Black]", "[/black]", "<font color=black>", "</font id=black>")
fstring = Docode (fstring, "[Pink]", "[/pink]", "<font color=pink>", "</font id=pink>")
fstring = Docode (fstring, "[Orange]", "[/orange]", "<font color=orange>", "</font id=orange>")
fstring = Docode (fstring, "[Gold]", "[/gold]", "<font color=gold>", "</font id=gold>")
fstring = Docode (fstring, "[Beige]", "[/beige]", "<font color=beige>", "</font id=beige>")
fstring = Docode (fstring, "[Teal]", "[/teal]", "<font color=teal>", "</font id=teal>")
fstring = Docode (fstring, "[Navy]", "[/navy]", "<font color=navy>", "</font id=navy>")
fstring = Docode (fstring, "[Maroon]", "[/maroon]", "<font color=maroon>", "</font id=maroon>")
fstring = Docode (fstring, "[Limegreen]", "[/limegreen]", "<font color=limegreen>", "</font id=limegreen>")

fstring = Docode (fstring, "[H1]", "[/h1]", "fstring = Docode (fstring, "[H2]", "[/h2]", "fstring = Docode (fstring, "[H3]", "[/h3]", "fstring = Docode (fstring, "[H4]", "[/h4]", "fstring = Docode (fstring, "[H5]", "[/h5]", "fstring = Docode (fstring, "[H6]", "[/h6]", "fstring = Docode (fstring, "[Size=1]", "[/size=1]", "<font size=1>", "</font id=size1>")
fstring = Docode (fstring, "[size=2]", "[/size=2]", "<font size=2>", "</font id=size2>")
fstring = Docode (fstring, "[Size=3]", "[/size=3]", "<font size=3>", "</font id=size3>")
fstring = Docode (fstring, "[Size=4]", "[/size=4]", "<font size=4>", "</font id=size4>")
fstring = Docode (fstring, "[Size=5]", "[/size=5]", "<font size=5>", "</font id=size5>")
fstring = Docode (fstring, "[Size=6]", "[/size=6]", "<font size=6>", "</font id=size6>")
fstring = Docode (fstring, "[List]", "[/list]", "<ul>", "</ul>")
fstring = Docode (fstring, "[List=1]", "[/list=1]", "<ol type=1>", "</ol id=1>")
fstring = Docode (fstring, "[List=a]", "[/list=a]", "<ol type=a>", "</ol id=a>")
fstring = Docode (fstring, "[*]", "[/*]", "<li>", "</li>")
fstring = Docode (fstring, "[left]", "[/left]", "<div align=left>", "</div id=left>")
fstring = Docode (fstring, "[Center]", "[/center]", "<center>", "</center>")
fstring = Docode (fstring, "[Centre]", "[/centre]", "<center>", "</center>")
fstring = Docode (fstring, "[Right]", "[/right]", "<div align=right>", "</div id=right>")
fstring = Docode (fstring, [code], "[/code]", <pre id=code><font face=courier size= "& Strdefaultfontsize & "Id=code>", "</font id=code></pre id=code>")
fstring = Docode (fstring, "[quote]", "[/quote]", "<blockquote id=quote><font size=" & Strfooterfontsize & Amp "Face=" "" & Strdefaultfontface & "" "Id=quote>quote:fstring = Docode (fstring, "[url=&quot;", "&quot;]", "[url=" "," ""] ")
fstring = Docode (fstring, "[url=&quot;", "&quot;]", "[url=" "," ""] ")
fstring = Docode (fstring, "[url", "[/url]", "<a>", "</a>")
fstring = replace (fstring, "[BR]", "<br>", 1,-1, 1)

Ubbencode=fstring
End Function
%>