<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("MengXianHui.mdb")
set rs=conn.Execute("Select * from Document")
Response.Write "<table border=1>"
While Not rs.EOF
 Response.Write "<tr>"
 For i = 1 To 3
  If rs.EOf Then 
  Response.Write "<td>&nbsp;</td>"
  Else
  Response.Write "<td>" & rs("Title") & "</td>"
  rs.MoveNext
  End If
  
 Next
Response.Write "</tr>"
Wend
Response.Write "</table>"
conn.Close
Set conn = Nothing
%>