<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("data/news.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql_news="Select top 15 * From news Order By id DESC"
set rs_news=conn.execute(sql_news)
if not rs_news.eof then
rs_news.movefirst
dis_mes=dis_mes & "<tr><td valign=top>"
do while not rs_news.eof
dis_mes=dis_mes &"<li><a href=" & rs_news("url") & " target=_blank>" & rs_news("name") & "</a><br>"
rs_news.movenext
loop
dis_mes=dis_mes & "</td></tr>"
end if
rs_news.close
dis_mes="document.write(""" & dis_mes & """);"
response.write dis_mes
%>