<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&session("path")
strSQL="select * from news order by PubDate desc"
set rs=conn.execute(strSQL)
if rs.eof then
response.Write "
暂无新闻！
"
else if rs.recordcount<8 then
for i=1 to 8
if not rs.eof then
title=rs("Title")
if len(title)>15 then
title=mid(title,1,15)&".."
end if
pubdate=rs("PubDate")
response.Write "
