news.asp <% 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 %>