这大概要怎么解决?
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/kexj/home.asp,行297
涉及到这个的相关代码是:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<HTML><!-- InstanceBegin template="/Templates/moban_kexj.dwt.asp" codeOutsideHTMLIsLocked="false" --><HEAD>
<!--#include file="../Connections/conn_db_shuihua.asp" -->
<%
Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = MM_conn_db_shuihua_STRING
Rs.Source = "SELECT DISTINCT country FROM ExpertsData WHERE (country <> '') ORDER BY country"
Rs.CursorType = 0
Rs.CursorLocation = 2
Rs.LockType = 1
Rs.Open()
%>
<%
while not Rs.eof
%>
<A Href="QueryByCountry.asp?CountryName=<%=Rs.Fields.Item("country").Value%>"><font size ="2"><%=Rs("country")%></font></A>
<%
Rs.movenext()
wend
%>