求救!换行问题?

[vigoryouth]

我想把查询出来的记录显示在四个格里，但没有成功，
请大家帮忙看看是哪里错了
<table cellpadding="3" width="95%" border="0" cellspacing="3">

<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from article where boardid in ("&request("boardid")&")",conn,1,1
if rs_s.recordcount=0 then
%>

<tr>
<td width="90%" colspan="4">暂无文章
</td>
</tr>

<%
else
while not rs_s.eof
%>

<tr>
<td width="20%" height="16" >
<% if not rs_s.eof then %>
<a href="booksnew.asp?id=<%=rs("id")%>"><%=rs("Title")%></a>
</td>

<%rs_s.movenext
end if%>
<td width="20%" height="16" >
<% if not rs_s.eof then %>
<a href="booksnew.asp?id=<%=rs("id")%>"><%=rs("Title")%></a>
</td>
<%rs_s.movenext
end if%>
<td width="20%" height="16" >
<% if not rs_s.eof then %>
<a href="booksnew.asp?id=<%=rs("id")%>"><%=rs("Title")%></a>
</td>
<%rs_s.movenext
end if%>
<td width="20%" height="16" >
<% if not rs_s.eof then %>
<a href="booksnew.asp?id=<%=rs("id")%>"><%=rs("Title")%></a>
</td>
</tr>
<%
rs_s.movenext
end if%>
<%
wend
end if
rs_s.close
set rs_s=Nothing
%>
</table>

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

我把前面改成
<table cellpadding="3" width="95%" border="0" cellspacing="3">
<%
set rs_s=server.createobject("adodb.recordset")
exec="select * from article where boardid in ("&request("boardid")&")"
rs_s.open exec,conn,1,1
if rs_s.recordcount=0 then
%>
也是一样出错，
请朋友们帮忙~~~~

[hxyman]

你检查一下看你的数据库连结文件是否包含进来了

[legend1970]

就这样就行了！！！！！！！！
<table cellpadding="3" width="95%" border="1" cellspacing="3">
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from article where boardid in ("&request("boardid")&")",conn,1,1
if rs_s.recordcount=0 then
%>

<tr>
<td width="90%" colspan="4">暂无文章
</td>
</tr>
<tr>

<%
else
k=1
while not rs_s.eof
%>
<td width="20%" height="16" >
<%if not rs_s.eof then %>
<%=i&K%>
</td>

<%
k=k+1
if k>4 then
%>
</tr>
<tr>
<%
k=1
end if
rs_s.movenext
wend
rs_s.close
set rs_s=Nothing
%>
</table>

[legend1970]

上面写错了一句：
<table cellpadding="3" width="95%" border="1" cellspacing="3">
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from article where boardid in ("&request("boardid")&")",conn,1,1
if rs_s.recordcount=0 then
%>

<tr>
<td width="90%" colspan="4">暂无文章
</td>
</tr>
<tr>

<%
else
k=1
while not rs_s.eof
%>
<td width="20%" height="16" >
<%if not rs_s.eof then %>
<a href="booksnew.asp?id=<%=rs("id")%>"><%=rs("Title")%></a>
</td>

<%
k=k+1
if k>4 then
%>
</tr>
<tr>
<%
k=1
end if
rs_s.movenext
wend
rs_s.close
set rs_s=Nothing
%>
</table>

[vigoryouth]

先谢谢楼上的朋友了，不过问题我还没有搞定啊
数据库连结文件已经包含进来了(不好意思，发贴的时候忘了写了^)^
我把“偶不懂就来问”的代码一字不漏的抄下，也出错了，说是“wend"这里缺少语句

[monkeyhjl]

wend 后面加end if

[legend1970]

与if rs_s.recordcount=0 then 配对的end if 加在wend 后面就可以了！！