<%
function forbbs(notxt)
forbbs = replace(notxt,"&","&amp;")
forbbs = replace(forbbs,"<","＜")
forbbs = replace(forbbs,">","＞")

forbbs = replace(forbbs, chr(01), "")
forbbs = replace(forbbs, chr(02), "")
forbbs = replace(forbbs, chr(03), "")
forbbs = replace(forbbs, chr(04), "")
forbbs = replace(forbbs, chr(05), "")
forbbs = replace(forbbs, chr(06), "")
forbbs = replace(forbbs, chr(07), "")
forbbs = replace(forbbs, chr(08), "")
forbbs = replace(forbbs, chr(09), "")
forbbs = replace(forbbs, chr(11), "")
forbbs = replace(forbbs, chr(12), "")
forbbs = replace(forbbs, chr(14), "")
forbbs = replace(forbbs, chr(15), "")
forbbs = replace(forbbs, chr(16), "")
forbbs = replace(forbbs, chr(17), "")
forbbs = replace(forbbs, chr(18), "")
forbbs = replace(forbbs, chr(19), "")
forbbs = replace(forbbs, chr(20), "")
forbbs = replace(forbbs, chr(21), "")
forbbs = replace(forbbs, chr(22), "")
forbbs = replace(forbbs, chr(23), "")
forbbs = replace(forbbs, chr(24), "")
forbbs = replace(forbbs, chr(25), "")
forbbs = replace(forbbs, chr(26), "")
forbbs = replace(forbbs, chr(27), "")
forbbs = replace(forbbs, chr(28), "")
forbbs = replace(forbbs, chr(29), "")
forbbs = replace(forbbs, chr(30), "")
forbbs = replace(forbbs, chr(31), "")

forbbs = replace(forbbs,"　","")
forbbs = replace(forbbs,"$","＄")
forbbs = replace(forbbs,"??","？")
forbbs = replace(forbbs,"'","“")
forbbs = replace(forbbs,",","，")
forbbs = replace(forbbs,"`","")
forbbs = replace(forbbs,"€","")
forbbs = replace(forbbs,"  ","")
'forbbs = replace(forbbs,CHR(34),"“")

end function
%>