<%
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("jzkj/mynews.mdb")
conn.open connstr
sql="select top 8 * from article where typeid=1 order by newsid desc"
rs.open sql,conn,3,3
do while not(rs.bof or rs.eof)
%>
<%
set conn=server.CreateObject("adodb.connection")
set rs1=server.CreateObject("adodb.recordset")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("jzkj/mynews.mdb")
conn.open connstr
sql="select top 8 * from article where ?牨晥=十?戀畬?????typeid=2 order by newsid desc"
rs1.open sql,conn,3,3
do while not(rs1.bof or rs1.eof)
%>
