新手请问代码哪里错了
<%set conn=server.CreateObject("adodb.connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.MapPath("etdiy/etwl_dbs/etwldbs.mdb")
conn.open connstr
dim Tid
Tid=request.QueryString("Typeid")
set rs=conn.execute("select NewsId,Title,Typeid,Dateandtime from news where Typeid=Tid order by NewsId desc")
if not rs.eof then
response.write "<table width=100% border=0 cellpadding=0 cellspacing=0>"
do while not rs.eof
response.write ("<tr><td>· <a href='shownews.asp?id="&rs("NewsId")&"&typeid="&rs("Typeid")&"'>"&rs("Title")&"</a></td><td><font color=#CCCCCC>"&rs("Dateandtime")&"</font></td></tr>")
rs.movenext
loop
rs.close
response.write "</table>"
else
response.write "网站暂无公告"
end if
%>
错误类型:
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/listnews.asp, 第 286 行
里面的字段数据库中都有定义,实在找不到错误.麻烦大家了!