Question

我正在尝试修复公司网站上的问题。有问题的页面是http://www.srbc.com/SiteMap.asp。尝试调用全局选项文件时出现以下错误：

Microsoft VBScript运行时错误'800a01a8' 所需对象： '' /_Includes/Callout_Global.asp，第40行

这是错误在/_Includes/Callout_Global.asp文件中引用的行：

rs_main.open "Select TeamID, FirstName + ' ' + LastName as FullName from team where Category = 'Attorney' and IsActive = '1' Order by OrderNum"

代码控制应包含律师名单列表的下拉框。

此代码在网站的其他页面上运行良好（例如参见http://www.srbc.com/Careers/Default.asp）。

我不是编码员，只是想稍微清理这个网站。它是相当陈旧的代码，但任何关于我可以采取什么措施来解决这个问题的建议将不胜感激。

在调用此函数的SiteMap.asp页面上的编码如下所示：

<td width="210" valign="top" class="hideforprint">
<!--#include virtual="/_Includes/Callout_Global.asp" -->
</td>
<td width="20">&nbsp;</td>
</tr>
</table>
<table width="726" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25"></td>
</tr>
</table>
</td>
<td width="22" valign="top" background="/Images/CommonImages/rightborder.gif">&nbsp;</td>
</tr>
</table>
<!--#include virtual="/_Includes/Footer.asp" -->
</body>
</html>

谢谢！

Answer 1

该错误表明您尚未创建名为rs_main的对象。看起来它应该是一个记录集对象，所以你在代码的前面应该有行

Set rs_main = Server.CreateObject("ADODB.Recordset")

你可以发布Callout_Global.asp的前40行，可能还有其他东西丢失吗？

Answer 2

我是一个蠢货！

我明白了。在SiteMap.asp代码的顶部，缺少一个函数调用。一旦我重新加入，一切都开始工作了。我刚注意到，这与其他正常工作的页面不同。

现在解决搜索索引问题。

谢谢！

需要ASP Classic VB错误800a01a8对象

2 个答案: