LISTER LE CONTENU D'UNE BASE DE DONNÉE

<%
Dim sql
Dim oRS
Dim oConn, sConnString
Set oConn = Server.CreateObject("ADODB.Connection")
sConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ 
    "DBQ=" & Server.MapPath("base_de_donnee.mdb") & ";"
oConn.Open(sConnString)
sql = "select * from nom_de_la_table"
Set oRS = oConn.Execute(sql)
Do While Not oRS.EOF
Response.Write(oRS("nom de la colonne 1") & " - " & oRS("nom de la colonne 2") & "<br>")
oRS.MoveNext
Loop
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>