Bonjour
je suis en train de faire une page en asp, mais j'obtiens le code d'erreur suivant :
l'erreur se touve a la ligne 86 :Erreur d'exécution Microsoft VBScript (0x800A01A8) Objet requis: ''
la ligne 86 étant celle du while
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 <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>
pourriez vous m'aider?
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
merci
Partager