Potes'n'Roll

set Conn = Server.CreateObject("ADODB.Connection")    
    Conn.Open "Transport"

Conn.Open "DRIVER={Microsoft Access Driver (*.MBD)};" _
   & " DBQ=" & SERVER.MAPPATH(".") & "/TRANSPORT.MBD"  
   
req = "SELECT * FROM prestataires;"

set fiche = Server.CreateObject("ADODB.Recordset")
    fiche.Open req , Conn
   
do while not objRecordset.EOF
   response.write "<table>"
   response.write "<tr>"
      response.write "<td>" &fiche.fields("NomPres")& "</td>"
      response.write "<td>" &fiche.fields("RuePres")& "</td>"
      response.write "<td>" &fiche.fields("CPPres")& "</td>"
      response.write "<td>" &fiche.fields("VillePres")& "</td>"
      response.write "<td>" &fiche.fields("UrlPres")& "</td>"
      response.write "<td>" &fiche.fields("NumTelPres")& "</td>"
      response.write "<td>" &fiche.fields("NumFaxPres")& "</td>"
      response.write "<td>" &fiche.fields("NumCliPres")& "</td>"
      response.write "<td>" &fiche.fields("NomInterCom")& "</td>"
      response.write "<td>" &fiche.fields("NumInterCom")& "</td>"
      response.write "<td>" &fiche.fields("FaxInterCom")& "</td>"
   objRecordset.movenext
   loop
   response.write "</tr>"
response.write "</table>"
fiche.close

SET fiche=nothing

conn.close

SET conn=nothing