<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("upload/NoticeBoard17.mdb")) set rs = Server.CreateObject("ADODB.recordset") rs.Open "Select NoticeTitle from Table1 ORDER BY ID DESC", conn Dim i i = 0 Do until (i = 4) i = i + 1 for each x in rs.Fields Response.Write(x.value & "") next Response.Write("          |          ") rs.MoveNext Loop 'do until rs.EOF ' for each x in rs.Fields ' Response.Write(" | ") ' Response.Write(x.value & "") ' next ' Response.Write("") ' rs.MoveNext 'loop rs.close conn.close %>