asp 网站中产出现Microsoft VBScript 运行时异常 异常 '800a000d'

asp 网站中产出现Microsoft VBScript 运行时错误 错误 '800a000d'
[color=#FF0000][/color]过往高手看看这个问题怎么处理！

Microsoft VBScript 运行时错误 错误 '800a000d' 

类型不匹配: 'newsdy' 

/index.asp，行 23

网站代码：

<%@ LANGUAGE = VBScript.Encode %>

<!--#include file="include/top.asp" -->

<div id='content' style='width:990px;height:340px;background:none transparent scroll repeat 0% 0%;margin:30px auto'>


<!-- 文章列表 -->

<div id='pdv_10810' class='pdv_class' title='最新文章' style='width:348px;height:156px;top:0px;left:0px; z-index:6'>
<div id='spdv_10810' class='pdv_content' style='overflow:hidden;width:100%;height:100%'>
<div class="pdv_border" style="border:0px;height:100%;padding:0;margin:0;">
<div style="height:100%;">
<div style="height:30px;border:0px;padding:0;margin:0;background:url(base/border/780/images/top.png) 0px 0px no-repeat;">
<div style="float:right;width:53px;height:30px;background:url(base/border/780/images/top.png) -847px 0px no-repeat;">
<a href="news.asp" style="display:inline"><img src="base/border/780/images/more.gif" style="border:0px;" /></a> </div>
</div>
<div style="margin:14px 2px 0px;padding:0px;">

<link href="news/templates/css/newslist_time.css" rel="stylesheet" type="text/css" />
<ul class="newslist_time">

 <%#@~^GgAAAA==~1ls^P +hkNHcJ企业新闻r~X~yFb~GwYAAA==^#~@%>

</ul>

</div>
</div>
</div>

</div>
</div>

<!-- 自选产品列表 -->

<div id='pdv_10809' class='pdv_class' title='最新产品' style='width:491px;height:184px;top:170px;left:1px; z-index:8'>
<div id='spdv_10809' class='pdv_content' style='overflow:hidden;width:100%;height:100%'>
<div class="pdv_border" style="border:0px;height:100%;padding:0;margin:0;">
<div style="height:100%;">
<div style="height:30px;border:0px;padding:0;margin:0;background:url(base/border/781/images/top.png) 0px 0px no-repeat;">
<div style="float:right;width:53px;height:30px;background:url(base/border/781/images/top.png) -847px 0px no-repeat;">
<a href="product.asp" style="display:inline"><img src="base/border/781/images/more.gif" style="border:0px;" /></a> </div>
</div>
<div style="margin:9px 2px 0px;padding:0px;">

<link href="product/templates/css/productlist_cyrano_lef.css" rel="stylesheet" type="text/css" />

<div class="productlist_cyrano_lef">
<div id="demo">
 <table align=left cellpadding=0 cellspace=0 border=0>
  <tr>
<td id="demo1" valign=top>
  <table border=0 cellpadding=0 cellspacing=0>
  <tr>

 <!--#include file="NewsProduct.asp" -->
<%#@~^CwAAAA==~1ls^P1wNHPrAMAAA==^#~@%>


</tr>
  </table>
  </td>
<td id="demo2" valign=top></td>
</tr>
</table>

</div>
</div>


 
<script>
var speed=20;
var GD=document.getElementById('demo'); 
var GD1=document.getElementById('demo1');
var GD2=document.getElementById('demo2');
GD2.innerHTML=GD1.innerHTML;
function Marquee(){
if(GD2.offsetWidth-GD.scrollLeft<=0){
GD.scrollLeft-=GD1.offsetWidth;
}else{
GD.scrollLeft++;
}
}
var MyMar=setInterval(Marquee,speed);