Erreur d'exécution Microsoft VBScript (0x800A01A8) Objet requis: ''
Bonjour
je suis en train de faire une page en asp, mais j'obtiens le code d'erreur suivant :
Citation:
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:
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:
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
