公路水运考试网上报名:求助 0x80040E10 错误怎么解决

Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/sj/xinshang.asp, 第 119 行
<%
set Rs = server.createobject("adodb.recordset")
sql="select * from photo where class="&request("class")
rs.open sql,conn,1,1 '就是这一句错误的
Rs.PageSize=16
pagecount=Rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
Rs.AbsolutePage=page
for i = 1 To Rs.PageSize
If Rs.EOF Then Exit For%>
这是上一段代码
<%
sub picclass()
set rs = server.createobject("adodb.recordset")
sql="select * from class"
rs.open sql,conn,1,1
response.write "<table width=100% border=0 cellspacing=0 cellpadding=0 align=center>"
if rs.bof and rs.eof then
response.write "<tr><td height=1 bgcolor=#FFFFFF></td></tr>"
response.write "<tr><td height='30' bgcolor='#F5970A'><div align='center'>暂时还没有分类！</div></td></tr>"
response.write "<tr><td height=1 bgcolor=#333333></td></tr>"
else
do while not rs.eof
response.write "<tr><td height=1 bgcolor=#FFFFFF></td></tr>"
response.write "<tr><td height='30' bgcolor='#F5970A'><div align='center'><a href=xinshang.asp?action=showclass&class="&rs("class")&" class=LEFT>:::"&rs("class")&":::</a></div></td></tr>"
response.write "<tr><td height=1 bgcolor=#333333></td></tr>"
rs.movenext
loop
response.write "</table>"
end if
rs.close
set rs=nothing
end sub
%>