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

Question

Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: '' /oemui/head.inc.asp，行 99 
</table>
  </center>
</div>
<div align="center">
  <center>
<table border="0" width="850" cellspacing="0" cellpadding="0" height="38">
  <tr>
    <td background="../img/head_Menu_Bg.gif">
      <div align="center">
        <center>
        <table border="0" width="849" cellspacing="0" cellpadding="0">
          <tr>
            <td width="7"><img border="0" src="../img/head_menu_jt2.gif"></td>
            <td width="44">
              <p align="center"><a href="<% =szPath %>default.asp" class="head">首页 </a> </p>
            </td>
            <td background="../img/head_bt_bg.jpg"><p align="left">   
            <%                                         
szSQL = "SELECT Type_ID,TypeName FROM TypeInfo WHERE ParentID=0 and Type_ID>20"                                
rsData.Open szSQL,con,1,3                                                                          
  do while not rsData.EOF                                                                          
  %>&nbsp;<img border="0" src="../img/head_menu_jt2.gif">&nbsp;<a href="../../oemui/vod/progmain.asp?TypeID=<% =rsData("Type_ID") %>" class="head"><% =Left(rsData("TypeName"), 6) %></a>                                                                                          
  <%                                                                                                                                                                                                                   
          rsData.movenext                                                                                                                                                                                        
          if rsData.EOF then exit do                                                                          
  loop                                                                                                                                                                                        
          rsData.Close                                                                                                                                                                                        
          %>                               
          </tr>                        
        </table>                        
        </center>          80到110之间的代码~请各位高手帮帮忙了！谢谢！

Answer 1

rsData.Open szSQL,con,1,3
这行是99

Answer 2

rsData.Open szSQL,con,1,3
这一行是99请各位多帮忙了！

Answer 3

这个问题出现有几个原因:
先检查这几个变量对不对    rsData, szSQL,con
第一,rsData是不是设置好了,就是连接数据库的CONN,,,
第二,szSQL这个字符串是空的,
第三,你的szSQL和rsData肯定在一个页面调用了好几次,中间出现了关闭现象,你检查一下,你别地调用的rsData或着szSQL

Answer 4

SELECT Type_ID,TypeName FROM TypeInfo WHERE ParentID=0 and Type_ID>20错在这里你只查找了Type_ID,TypeName 这两个字段，后面又来ParentID ？？？？？？