Bonjour

je suis en train de faire une page en asp, mais j'obtiens le code d'erreur suivant :

Erreur d'exécution Microsoft VBScript (0x800A01A8) Objet requis: ''
l'erreur se touve a la ligne 86 :
la ligne 86 étant celle du while

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
<table>
	<tr>
		<td id="casegauche"><span id="souligne">Nom du logiciel</span> :</td>
		<td><select name="logiciel"><option value=""></option>
			<%do while not rs1.eof 
			%> <option value="<%=rs1("numauto")%>"> <%=rs1("nom")%> </option>
			<%
			rs1.movenext
			loop
			%>
		</select></td>
je ne comprends pas mon erreur, car j'utilise le meme code danns d'autres pages, et ca marche très bien... d'apres ce que j'ai compris sur internet, ca viendrai de la connexion :
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
21
22
23
24
25
26
27
28
29
30
sub open_base
 
	Set conn1 = Server.CreateObject("ADODB.Connection")
	conn1.open CONNSTRING & DB_LOCATION
 
	is_open_base = true
 
end sub
 
sub close_base
 
	if is_open_base = true then
		conn1.Close 
		Set conn1 = Nothing
	end if
 
end sub
 
sub requete1()
 
	dim temp_sql, temp_sql2
 
	if is_open_base = false then call open_base
	temp_sql = "SELECT numauto, nom FROM liste ORDER BY nom;"
	temp_sql2 = "SELECT * FROM utilisateurs ORDER BY nom_prenom_utilisateur;"
 
    set rs1 = conn1.execute(temp_sql)
    set rs2 = conn1.execute(temp_sql2)
 
end sub
pourriez vous m'aider?

merci