<%
strProvider="DRIVER=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath("database") & "/db2.mdb;"
SQL="SELECT detail FROM index "
Set conn =Server.CreateObject("ADODB.Connection")
conn.Open strProvider,"",""
Set rs=conn.Execute(sql)
%>
 |
| <%=rs("detail") %> |
 |
Next |