先看一下我写的这些代码吧： 
第一部份： 
<!--#include   file="Inc/conn1.asp"   --> 
<!--#include   file="Inc/Function.asp"   --> 
<% 
    if   Request("ID") <> ""   then 
          Session("ID")=Request("ID") 
  Set   rs=Server.CreateObject("ADODB.RecordSet") 
  str="Select   *   from   Article   where   ID="&   Session("ID") 
  rs.open   str,conn,1,3 
  if   not   rs.eof   then 
  numbers=Len(rs("Content")) 
  pagenum=400 
  maxpage=-Int(-numbers/pagenum) 
  requestpage=Clng(request("Page")) 
      if   requestpage=""   or   requestpage=0   then 
            requestpage=1 
      end   if 
      if   requestpage> maxpage   then 
            requestpage=maxpage 
      end   if 
      if   not   requestpage=1   then 
            content=Mid(rs("Content"),pagenum*(requestpage-1)+1,400) 
      else 
            content=Left(rs("Content"),400) 
      End   if 
  End   if 
    End   if 
%> 

第二部份： 
    <div   id="left_center"> 
        <div   id="right_Center_left"> 
              <dl   id="Company_Info"> 
              <dt> <img   src="images/News.gif"   alt="行业新闻"   width="88"   height="16"> </dt> 
      <dd> 
          <span   id="span1"> 发布时间： <%=rs("Times")%> &nbsp;&nbsp;&nbsp;&nbsp;阅览次数： <%=rs("Hit")%> </span> 
  <span   id="span2"> <%=rs("Title")%> </span> 
  <P> <%=Content%> 
  </p> 
  <span   id="span3"> 总页数： <%=maxpage%> &nbsp;当前页: <%=requestpage%> &nbsp; <a   href="ShowArticle.asp?Page=1"> 第一页 </a> &nbsp; <a   href="ShowArticle.asp?Page= <%=(requestpage-1)%> "> 上一页&nbsp; <a   href="ShowArticle.asp?Page= <%=(requestpage+1)%> "> 下一页&nbsp; </a> <a   href="ShowArticle?Page= <%=maxpage%> "> 最后一页 </a> </span> 
              </dd> 
              </dl> 
        </div> 

这是文章显示页的部分代码。当从新闻列表页点击某条信息以后，就会进入该页。进去时候的默认页正常显示，然而当，点击上一页、下一页或最后一页，的时候就会出现错误： 


    错误代码： 
        发布时间：   
              Microsoft   VBScript   运行时错误   错误   '800a000d'   

              类型不匹配:   'rs'   

              /ShowArticle.asp，行   80   
      
请兄弟们帮我解决一下，感谢了！