邪恶漫画大全鸣人:set my_rs=server.createobject("adodb.recordset")问题

错误类型：
Microsoft JScript 编译错误 (0x800A03EC)
缺少 ';'
/news/计算机导论.asp, line 47, column 4
set my_rs=server.createobject("adodb.recordset")
---^
代码如下：
<td height="23" bgcolor="#FFFF99"> 公告信息</td>
</tr>
<%
sqlstr="select * from 公告信息"
set my_rs=server.createobject("adodb.recordset")
my_rs.open sqlstr,my_Conn,1,1 %>
<tr>
<td bgcolor="#FFFFFF" height="120"> <marquee direction=up height=130 onMouseOut=this.start()
onMouseOver=this.stop() scrollamount=1 scrolldelay=50 width="98%">
<% i=1 '记录条数
if not my_rs.eof then
do while not my_rs.eof%>
<a href="#" onClick="MM_openBrWindow('file/ggxx-show.asp?ggbh=<%=my_rs("公告编号")%>','','scrollbars=yes,width=400,height=240')" class="linkcss">
<%=i%>.<%=my_rs("公告主题")%> </a><br>
<%i=i+1
my_rs.movenext
loop
else
response.write "对不起,暂无记录"
end if
my_rs.close
%>
</marquee> </td>
我将第一行改为<%@language=vbscript%> 后，浏览器显示：错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/news/计算机导论.asp, 第 48 行