请高手救救我，调试出错了
调试主页面在后台输入输入产品库资料后在主页调试时发生错误 数据库是ACCESS
产品库资料为表名为：pro_list 产品类别的表名为pro_type
错误类型：
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/pingshun/index.asp
下面是主页的全部代码
<!--#include file="setup.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=web_name%>网站首页</title>
<link href="inc/style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" onLoad="MM_preloadImages('.jpg')">
<!--#include file="index_top.asp" -->
<!--#include file="index_logo.asp" -->
<table width="762" height="5" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="f5f5f5" class="tablelinenotop">
<tr>
<td></td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
</table>
<table width="762" height="491" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="tablelinenotop">
<tr>
<td width="170" valign="top">
<div align="center">
<table width="101%" border="0" cellpadding="0" cellspacing="1">
<tr>
<td height="4" bgcolor="#CCCCCC"></td>
</tr>
</table>
<table width="100%" height="41" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><a href="contact.asp"><img src="image/guestbook.gif" width="170" height="47" border="0"></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
</table>
<table width="100%" height="43" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10" bgcolor="f5f5f5">
<div align="center">
<select name="nei" style="FONT-FAMILY: 宋体; FONT-SIZE: 9pt;height:50;width:145" onchange="location=this.options[this.selectedIndex].value">
<option selected>产品快速导航</option>
<%
strsql="select * from pro_type"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 1
while not rs.eof
%>
<option value="product.asp?pro_type=<%=rs("id")%>"><%= rs("type_name") %></option>
<% rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
</div></td>
</tr>
</table>
<!--#include file="research.htm" -->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" height="85" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="6%"> </td>
<td width="94%" class="news">
<table width="100%" height="97" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="search.asp">
<tr>
<td class="input">·站内资料搜索</td>
</tr>
<tr>
<td><input name="keyword" type="text" id="keyword" size="20"></td>
</tr>
<tr>
<td><div align="center">产品
<input name="search_type" type="radio" class="unnamed1" value="pro" disabled>
文档
<input name="search_type" type="radio" class="unnamed1" value="file" checked>
</div></td>
</tr>
<tr>
<td> <div align="right">
<input type="submit" name="Submit" value="开始搜索">
</div></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<table width="100%" height="62" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="91%" height="102" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="input">·公司常用联络</td>
</tr>
<tr>
<td><strong>总 机:</strong> +86 </td>
</tr>
<tr>
<td><font color="#006666"><strong>传 真:</strong> +86 </font></td>
</tr>
<tr>
<td><font color="#336666"><strong>E-Mail</strong>:<a href="mailto:******@***.com">@
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="image/l_back.gif"> </td>
</tr>
</table>
</div></td>
<td width="1" bgcolor="#cccccc"></td>
<td width="583" valign="top"> <table width="98%" height="119" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="406"><p><span class="font"> <span class="style1">有限公司</span>，
.......... </span>[<a href="intro.asp">详细介绍</a>] </p> </td>
<td width="161"><div align="right"><img src="image/1.gif" width="160" height="110" border="0" usemap="#Map"></div></td>
</tr>
</table>
<table width="101%" border="0" cellpadding="0" cellspacing="1">
<tr>
<td height="4" bgcolor="#CCCCCC"></td>
</tr>
</table>
<table width="101%" height="135" border="0" cellpadding="0" cellspacing="2">
<tr>
<td height="22"><img src="image/news.gif" width="200" height="22"></td>
<td height="22"><img src="image/info.gif" width="200" height="22"></td>
</tr>
<tr>
<td>
<table width="98%" height="87" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
<tr>
<td bgcolor="#FFFFFF">
<marquee behavior="slide" direction="up" height="82" loop="-1" >
<table width="100%" height="82" border="0" cellpadding="0" cellspacing="0">
<%
strsql="select top 4 id,title,datetime from news_info order by id desc"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 1
while not rs.eof %>
<tr>
<td width="26"><div align="center"><font color="#0066CC">·</div></td>
<td width="263" class="font"><a href="news_view.asp?id=<%= rs("id") %>" target="_blank">
<%= left(rs("title"),16) %></a></td>
</tr>
<%
rs.movenext
wend
rs.close
%>
</table>
</marquee>
</td>
</tr>
</table></td>
<td><table width="98%" height="87" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
<tr>
<td bgcolor="#FFFFFF"> <table width="100%" height="82" border="0" cellpadding="0" cellspacing="0">
<%
line=0
strsql="select top 2 * from job_info order by id desc"
rs.Open strsql, conn, 1, 1
while not rs.eof %>
<tr>
<td width="26"><div align="center"><font color="#0066CC">·</font></div></td>
<td width="263" class="font">
[<font color="#FF0000">招聘</font>] <a href="info_view.asp?id=<%= rs("id") %>&type=1" target="_blank"> <%= left(rs("title"),18) %></a></td>
</tr>
<%
rs.movenext
line=line+1
wend
rs.close
line2=4-line
strsql="select top "&line2&" * from gqxx_info order by id desc"
rs.Open strsql, conn, 1, 1
while not rs.eof
if rs("type") =1 then
info_type="供应"
info_col="333333"
else
info_type="需求"
info_col="003399"
end if
%>
<tr>
<td width="26"><div align="center"><font color="#0066CC">·</font></div></td>
<td width="263" class="font">[<font color="#<%= info_col %>"><%= info_type %></font>] <a href="info_view.asp?id=<%= rs("id") %>&type=2" target="_blank">
<%= left(rs("title"),20) %></a></td>
</tr>
<%
rs.movenext
wend
rs.close
%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><div align="right"><a href="news.asp"><img src="image/chinaway08.gif" width="38" height="15" border="0"></a></div></td>
<td><div align="right"><a href="info.asp"><img src="image/chinaway08.gif" width="38" height="15" border="0"></a></div></td>
</tr>
</table>
<table width="101%" border="0" cellpadding="0" cellspacing="1">
<tr>
<td height="4" bgcolor="#CCCCCC"></td>
</tr>
</table>
<table width="100%" height="33" border="0" cellpadding="0" cellspacing="1">
<tr>
<td width="35%"><img src="image/products.gif" width="200" height="22"></td>
<td width="65%"><div align="right"><a href="product.asp"><img src="image/pro/product_list_more.gif" width="38" height="13" border="0"></a> </div></td>
</tr>
</table>
<table width="98%" height="167" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
<%
strsql="select top 6 * from pro_list order by id desc"
rs.Open strsql, conn, 1, 1
while not rs.eof %>
<tr>
<td bgcolor="#FFFFFF">
<div align="center">
<table width="161" height="140" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="118"> <div align="center"><a href="product_view.asp?id=<%=rs("id")%>"><img src="<%= rs("pro_img") %>" width="141" height="92" border="0"></a></div></td>
</tr>
<tr>
<td width="187" height="22" bgcolor="#8DB937"> <div align="center"><font color="#FFFFFF"><%= rs("pro_name") %></font></div></td>
</tr>
</table>
</div>
</td>
<% if not rs.eof then
rs.movenext
end if
%>
<td bgcolor="#FFFFFF">
<div align="center">
<table width="161" height="140" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="118"> <div align="center"><a href="product_view.asp?id=<%=rs("id")%>"><img src="<%= rs("pro_img") %>" width="141" height="92" border="0"></a></div></td>
</tr>
<tr>
<td width="187" height="22" bgcolor="#8DB937"> <div align="center"><font color="#FFFFFF"><%= rs("pro_name") %></font></div></td>
</tr>
</table>
</div>
</td>
<% if not rs.eof then
rs.movenext
end if
%>
<td bgcolor="#FFFFFF">
<div align="center">
<table width="161" height="140" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="118"> <div align="center"><a href="product_view.asp?id=<%=rs("id")%>"><img src="<%= rs("pro_img") %>" width="141" height="92" border="0"></a></div></td>
</tr>
<tr>
<td width="187" height="22" bgcolor="#8DB937"> <div align="center"><font color="#FFFFFF"><%= rs("pro_name") %></font></div></td>
</tr>
</table>
</div>
</td>
</tr>
<%
rs.movenext
wend
rs.close
%>
</table>
<table width="75%" border="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="index_down.asp" -->
<map name="Map">
<area shape="rect" coords="63,16,113,33" href="intro_1.asp">
<area shape="rect" coords="63,43,115,62" href="intro_2.asp">
<area shape="rect" coords="61,76,113,91" href="intro.asp">
</map>
</body>
</html>
