第一个页面是这样的
<!--#include file="conn.inc"-->
<%
 
 
Set RS = Server.CreateObject("ADODB.RecordSet")
Set RS1 = Server.CreateObject("ADODB.RecordSet")
 Set RS2 = Server.CreateObject("ADODB.RecordSet")
   
RS.open  "select top 1 biaozhun.*  from biaozhun  order by id desc", Conn, 1,3%>
<p> </p>
<p> </p>
<table width="97%" border="1">
  <tr> 
    <td width="6%"><div align="center">ID </div></td>
    <td width="19%"><div align="center">标准号</div></td>
    <td width="24%"><div align="center">中文名称</div></td>
    <td width="22%"><div align="center">所属行业</div></td>
    <td width="15%"><div align="center">请选择数据库</div></td>
    <td width="14%"> </td>
  </tr>
  <tr> 
    <%do while not rs.eof%>
    <td height="25"><%=rs("id")%>  <div align="center"></div>
      <div align="right"></div>
      <div align="center"></div>
      <div align="center"></div></td>
    <td><font size="-1">  <%=rs("标准号")%> </font> <div align="center"></div>
      <div align="center"></div></td>
    <td><font size="-1"><%=rs("中文名称")%> </font> <div align="center"></div></td>
    <td><div align="center"><font size="-1"><%=rs("所属行业")%> </font> </div>
      <div align="center"></div></td>
    <td><font size="-1"> 
      <select name="bd" size="1" id="bd">
        <option value="4393">医药 </option>
        <option value="4420">船舶</option>
        <option value="4426">石油</option>
        <option value="4429">建材</option>
        <option value="4462">机械</option>
        <option value="4468">化工</option>
        <option value="4472">工程</option>
        <option value="4647">电子</option>
        <option value="5155">卫生</option>
       
      </select>
      </font></td>
    <td><form name="form1" method="post" action="sendinfo.asp">
        <div align="center"> <font size="-5">
          <input type="submit" name="Submit" value="提交">
          </font></div>
      </form></td>
  </tr>
</table>
<p> <font size="-1"> </font></p>
<% rs.movenext
loop %>
<% rs.close %>
第二个   sendinfo.asp
<!--#include file="conn.inc"-->
  
<%
biaozhunid= request.form("id") 
fenleiid= request.form("bd") 
sql = "insert into 分类目录(biaozhunid,fenleiid) values('"&biaozhunid&"','"&fenleiid&"')"
conn.Execute(sql)
%>
<%
conn.close 
set conn=Nothing
%>
<SCRIPT language=JavaScript>alert('信息发布成功!');this.location.href='add.asp';</SCRIPT>
出错 
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。
/admin/sendinfo.asp, 第 8 行
高手能帮帮我啊

 
											





 
	    
 
											