set rs=Server.CreateObject("adodb.recordset")

sql1="selcet item_name from zj_lz"
rs.Open sql1,open,1,3 //25 行
if rs.eof and rs. bof then
sql="select* from kjxmgl"
rs.Open sql,conn,1,3
else
item_name1=rs(0)
sql3="select * from kjxmgl where iten_name<>'"&item_name1&"'"
rs.Open sql,conn,1,3

end if

if rs.eof and rs.bof then
response.write"战时还没有相关项目申报"
else
do while not rs.eof



红色的有点烦 请问有错吗

错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/admin/report_forms/zj_lz.asp, 第 25 行

你把下面的哪个RS记录集改改啊！或者是看看你的数据库连接文件是否正常连接！

我改了还是一样的
连接数据库的决定正常 因为单独循环是可以的

if rs.eof and rs. bof then
加上else 就包含了整个数据库的信息了

你的第一个语句sql1="selcet item_name from zj_lz"
其实就应该是属于else中的

sql="select* from kjxmgl"
是属于if rs.eof and rs. bof then里的

那你这就多了一条语句
sql3="select * from kjxmgl where iten_name<>'"&item_name1&"'"


反正我看了有点糊涂

就是 二个表啊 先查询一个表里看有没有信息 如果有就把它的一个字段当条件
就这一条
sql3="select * from kjxmgl where iten_name<>'"&item_name1&"'"

如果没有信息 就执行
sql="select* from kjxmgl"
就这一条啊

那如何写啊

<%
set rs1=Server.CreateObject("adodb.recordset")
sql1="selcet item_name from zj_lz"
rs1.Open sql1,open,1,3 //25 行
if rs1.eof and rs1. bof then
set rs2=Server.CreateObject("adodb.recordset")
sql2="select* from kjxmgl"
rs2.Open sql2,conn,1,3
else
set rs3=Server.CreateObject("adodb.recordset")
item_name1=rs1(0)
sql3="select * from kjxmgl where iten_name<>'"&item_name1&"'"
rs3.Open sql3,conn,1,3
if rs3.eof and rs3.bof then
response.write"战时还没有相关项目申报"
else
do while not rs3.eof
%>
-----------------要循环的内容或表格--------------------
<%end if%>

[此贴子已经被作者于2007-4-26 17:44:07编辑过]