Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
ADODB.Recordset 错误 '800a0bb9'
变量或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。
/news/index.asp，行60

我要做一个新闻发布系统，就出现了这个问题，也不知道出了什么问题，请教高手及版主。小弟是只菜鸟！
源码如下：
<%
set recset=server.createobject("adodb.recordset"
sql="select * from sort order by sort_id"
recset.open sql,conn,3,3
while not recset.eof
%>
<tr valign="bottom">
<td height="30"> <font color="#ff0000">【<%=recset("sort_name"%>】</font></td>
</tr>
<%set recset2=server.createobject("adodb.recordset"
sql="select * from news where sort_id="&"'"&recset("sort_id"&"'"
recset2.open sql,conn,3,3
while not recset2.eof
%>
<tr>
<td height="20">　<img src="img/cover/dot2.gif" width="9" height="9" align="absmiddle"> <a href="daily.asp?news_id=<%=recset2("news_id"%>" target="_blank"><%=recset2("newstitle"%></a>
<%if recset2("news_pic"<>"" then
response.write "(图文)"
end if
%>
<font color="#999999"><%=recset2("joindate"%></font> </td>
</tr>
<%
if not recset2.eof then
recset2.movenext
end if
wend
recset2.close
%>
<%
if not recset.eof then
recset.movenext
end if
wend
recset.close
%>