<%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 行
里面的字段数据库中都有定义,实在找不到错误.麻烦大家了!

set rs=conn.execute("select NewsId,Title,Typeid,Dateandtime from news where Typeid="&Tid&" order by NewsId desc")

Typeid="&Tid&"

谢谢大家,问题已经解决:)