Bonjour à tous,

J'ai une erreur dont je n'arrive pas à trouver la solution, voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
' Path long de la base de données 
dbPath = Server.MapPath("base.mdb") 
' Création de l'objet permettant la connexion 
Set Conn = Server.CreateObject("ADODB.Connection") 
' Connexion 
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & " DBQ=" & dbPath 
sql = "select ID_SIGNATAIRE from SIGNATAIRES" 
Set RS = Server.CreateObject("ADODB.RecordSet") 
RS.Open sql, Conn 
i=0 
do while not RS.eof 
   i = i+1%> 
   passage<%=i%> 
<% 
   RS(0) 
   RS.movenext 
loop 
RS.close
%>
L'erreur est :
Erreur d'exécution Microsoft VBScript error '800a01c2'
Nombre d'arguments ou affectation de propriété incorrects: 'RS'
Il me dit que c'est à la ligne RS(0)

Merci pour votre aide