谁来帮我看看这个问题啊?

Cstr(rs("catename"))="系部公告"
是真是假，把rs("catename")直接输出看下就明白了！

<%
dim rscate
dim rs
cont = 1
set rscate=server.createobject("ADODB.recordset")
set rs=server.createobject("ADODB.recordset")
rs.open "SELECT * FROM news ORDER BY posttime DESC",dbconnection,1,3
if Cstr(rs("catename"))="系部公告" then
rscate.open "SELECT * FROM news ORDER BY posttime DESC",dbconnection,1,3
rscate.movefirst
do while cont < 6
%>
<TR><TD height=23><IMG height=14 src="image/arrow.jpg" width=35 border=0><%=rscate("title")%></TD>
<TD><SPAN class=STYLE7><%=rscate("posttime")%></SPAN></TD>
</TR>
<%
cont = cont + 1
rscate.movenext
loop
end if
%>
改成
<%
dim rs
set rs=server.createobject("ADODB.recordset")
rs.open "SELECT top 6 * FROM news where cstr(catename)='系部公告' ORDER BY posttime DESC",dbconnection,1,3
if rs.eof and rs.bof then
response.write "<script language='javascript'>alert('没有找到相关信息！');history.go(-1);</script>"
else
do while not rs.eof
%>
<TR><TD height=23><IMG height=14 src="image/arrow.jpg" width=35 border=0><%=rs("title")%></TD>
<TD><SPAN class=STYLE7><%=rs("posttime")%></SPAN></TD>
</TR>
<%
rs.movenext
loop
end if
%>

阳光白雪版主的话想了很久没有想明白.但我知道确实是错了.
<%
dim rscate
dim rs
cont = 1
set rscate=server.createobject("ADODB.recordset")
set rs=server.createobject("ADODB.recordset")
rs.open "SELECT * FROM news ORDER BY posttime DESC",dbconnection,1,3
rscate.open "SELECT * FROM news where rs("catename")="系部公告" ORDER BY posttime DESC ",dbconnection,1,3
rscate.movefirst
do while cont < 6
%>
<TR><TD height=23><IMG height=14 src="image/arrow.jpg" width=35 border=0><%=rscate("title")%></TD>
<TD><SPAN class=STYLE7><%=rscate("posttime")%></SPAN></TD>
</TR>
<%
cont = cont + 1
rscate.movenext
loop

%
红色的部分表示我改过的部分,但结果仍然是错误的
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
错误的语句是那句红色的.

非常很格外尤其十分谢谢23楼的madpbpl,陷了4天后我的问题完全解决,我希望有一天我变成非菜鸟的时候,我一定好好的给菜鸟做贡献.谢谢!