ASP提示缺少标识符,帮忙看一下

<%
%>
<%
'/非HTML代码转换函数/
Function Html2Txt(vString)
vString = replace(vString, ">", "&gt;")
vString = replace(vString, " <", "&lt;")
vString = Replace(vString, CHR(32) & CHR(32) & CHR(32) & CHR(32), "&nbsp;&nbsp;&nbsp;&nbsp;")
vString = Replace(vString, CHR(10) & CHR(10), " <br>")
vString = Replace(vString, CHR(10), " <BR>")
Html2Txt = vString
End Function

'/UBB代码转换函数/
'/--------------Start UBB Code--------------------------/
function UbbMl(fString)
UbbMl = ChkString(FormatStr(ReplaceColor(ReplaceFlash(HTMLEncode(fString)))))
end function

function doCode(fString, fOTag, fCTag, fROTag, fRCTag)
fOTagPos = Instr(1, fString, fOTag, 1)
fCTagPos = Instr(1, fString, fCTag, 1)
while (fCTagPos > 0 and fOTagPos > 0)
fString = replace(fString, fOTag, fROTag, 1, 1, 1)
fString = replace(fString, fCTag, fRCTag, 1, 1, 1)
fOTagPos = Instr(1, fString, fOTag, 1)
fCTagPos = Instr(1, fString, fCTag, 1)
wend
doCode = fString
end function

function HTMLEncode(fString)
fString = Replace(fString, CHR(32) & CHR(32) & CHR(32) & CHR(32), "&nbsp;&nbsp;&nbsp;&nbsp