一个查看新闻内容的代码，总是报错，请指教。
<script language="VBScript">
<!--
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), "<I></I> ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
fString=ChkBadWords(fString)
HTMLEncode = fString
end if
end function
-->
</script>
<%
set cn= Server.CreateObject("ADODB.Connection")
Cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("./update/PageUpdata.mdb")
'
dim rs,sql,n,newstext,newstext1
'set rs1 = Server.CreateObject("ADODB.Recordset")
sql="update xxtbl set Count=Count+1 where Id=" & request("Id")
cn.execute(sql)
sql = "Select * from xxtbl where Id=" & request("Id") & " order by Id desc"
'rs1.open sql, cn
set rs=cn.execute(sql)
newstext = rs("Text1")
********************************************
42行 newstext1 = HTMLEncode(newstext)
******************************************
'virtual
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body topmargin=0 leftmargin=0>
<div align="center">
<center>
<table width="660" height="159" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td width="660" height="34"><br>
<center>
<font color=blue size="3"><strong><% =rs("Title") %></strong></font>
<br>
<hr align="center">
</center></td>
</tr>
<tr>
<td height="59" align="left" ><font size="3"><% response.write newstext1 %></font></td>
</tr>
<tr>
<td width="660" height="44" align="left" >
<hr>
</td>
</tr>
</table>
</center>
</div>
<p></p>
</body>
</html>
出错信息
技术信息（适用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
/Textf.asp, 第 42 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)
页：
GET /Textf.asp
问题点数：0、回复次数：2Top
1 楼earthpea（问莲根，有丝多少？莲心知为谁苦？）回复于 2003-02-01 12:38:38 得分 0
去掉第17行：fString=ChkBadWords(fString)Top
2 楼20010101cz（落难凡人）回复于 2003-02-01 14:50:50 得分 0
第17行：fString=ChkBadWords(fString)
已经去掉，还是报错，第newstext1 = HTMLEncode(newstext)Top
