<% set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("admin/gstbook/toptipbook.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBPath
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from book order by time desc ",conn,1,3
if not ( rs.eof and rs.bof) then
do while not rs.eof and i<=6
%>