Essaies ca :
Conn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.mapPath("database/base.mdb")
dim rs(20)
dim sql(20)
dim i
for i = 1 to 20
Set rs(i)= Server.CreateObject("ADODB.Recordset")
sql(i) = "SELECT * FROM links where id like '"& i &"'"
rs(i).Open sql(i) , conn ,3 ,3
next
et apres
tu mets :
<%=rs(1)("tonchamp")%>
Bonne journee a toi