erreur 80020009 ASP

**justdeep** · 26/05/2010, 00h45

Bonjour,
Je viens de commencer à travaillé sur l'ASP, et voilà qu'il me fait une erreur que j'arrive pas à comprendre depuis un bon bout de temps.

"error '80020009'

Exception occurred.

/publications/fr/fiche.asp, line 16 "

Voici l'extrait de 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
'prises des informations dans la base de données.
Dim rs1 : Set rs1 = Server.CreateObject("ADODB.RecordSet")
 
rs1.Open "SELECT * FROM Relan_publications WHERE Primaire=" &id , objCon, 1, 3, 1 
 
(Ligne 16)Select case rs1("VP_fr")
    case 0
        val="non"
        pub="non"
    case 10
        val="oui"
        pub="non"
    case 11
        val="oui"
        pub="oui"
end select

Merci de m'aider s'il vous plaît.

**roro06** · 26/05/2010, 08h42

Bonjour

testes peut-être si ton recodset n'est pas vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
if not rs1.eof then
Select case rs1("VP_fr")
    case 0
        val="non"
...
end if

**justdeep** · 26/05/2010, 16h24

Là il me fait l'erreur suivante :

"ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/publications/fr/fiche.asp, line 96 "

Le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
<%
'positionnement après la fiche en cours
rsnav.MoveNext
(ligne 96)rsnav.MoveNext

Je comprends pas.

**roro06** · 26/05/2010, 17h10

Re

Ben oui, tu es aller probablement "un cran trop loin" dans le balayage de ton recordset.

1/ Postes l'intégralité de ton code, car là, tout n'y est pas
2/ Penses à utiliser les balises [CODE] (bouton #) quand tu postes sur le forum.

**justdeep** · 26/05/2010, 17h51

re,

d'accord. Voici l'intégralité de 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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
<!-------------------------------------------------DEBUT APPEL FICHIER  -------------------------------------------------->
 
<!--#include file="../../connexion.asp"-->
<%
Dim id : id=""
 
id = Request.QueryString("id")
 
 
' prises des informations dans la base de données.
Dim rs1 : Set rs1 = Server.CreateObject("ADODB.RecordSet")
 
rs1.Open "SELECT * FROM Relan_publications WHERE Primaire=" &id , objCon, 1, 3, 1 
 
if not rs1.eof then
Select case rs1("VP_fr")
	case 0
		val="non"
		pub="non"
	case 10
		val="oui"
		pub="non"
	case 11
		val="oui"
		pub="oui"
end select
end if
 
%>
 
<!-------------------------------------------------FIN APPEL FICHIER  ------------------------------------------------------>
<html>
<head>
<meta content="text/html; charset=ISO-8859-1" http-equiv="Content-Type">
<title>ReLAN v4.1 - Fiche de la publication</title>
<link href="../themes/defaut/images/favicon.ico" rel="shortcut icon">
 
 
<%
Dim page : page="liste"
Dim sousmenu : sousmenu="fiche"
Dim dir : dir = "publications/"
Dim langue : langue = "fr/"
 
%>
<!--#include file="../../header.asp"-->
<div class="sous-menu">
	<%=testpage(dir, langue ,sousmenu, "liste") %><span>Liste des publications</span></a> 
	<%=testpage(dir, langue ,sousmenu, "fiche")%><span>Fiche de la publication</span></a>
	<%=testpage(dir, langue ,sousmenu, "nouveau") %><span>Nouvelle publication</span></a>
</div>
 
 
 
 
<div id="contenu">		
		<div class="boiteOnglets">
			<div class="c1">
				<div class="onglets">
					<div class="haut">
					<a class="selectionne" ><span>Français</span></a>
					<a class="" href="../en/fiche.asp?id=<%=id%>" ><span>English</span></a>
					<a class="" href="../es/fiche.asp?id=<%=id%>"><span>Espa&ntilde;ol</span></a>
					<a class="" href="../de/fiche.asp?id=<%=id%>"><span>Deutsch</span></a>
 
				</div>
				</div>
			<div class="zone-pages">
 
 
<%
'========================================
'=                      FRANCAIS
'========================================
%>				
					<%
					'boutons de navigation
						' calcul du nombre d'id	
						Dim nb : nb=1
						Dim rsnav : Set rsnav = Server.CreateObject("ADODB.RecordSet")
						rsnav.Open "SELECT Primaire FROM Relan_publications", objCon, 1, 3, 1 
						rsnav.Find "Primaire =" &id
					%>
					<div class="boutons" align="right">
						<%
						' on teste si l'on peut se déplacer en arrière 
						rsnav.MovePrevious
						If Not rsnav.BOF Then 
						%>
						<input onclick="document.location = 'fiche.asp?id=<%=rsnav("Primaire")%>'" class="bouton" value="&lt;" type="button">
						<%end if %>						
						<%
						'positionnement après la fiche en cours
						rsnav.MoveNext
						rsnav.MoveNext
 
						' on teste si l'on peut se déplacer en avant 
						If Not rsnav.EOF Then
						%>
						<input onclick="document.location = 'fiche.asp?id=<%=rsnav("Primaire")%>'" class="bouton" value="&gt;" type="button">
						<%
						end if 
						'repositionnement sur la fiche en cours (permet de copier coller ce code exactement pour le mettre ci bas ^^)
						rsnav.MovePrevious
						%>
						<%'<input onclick="mailEnregistrement('fr');" class="bouton" value="@" type="button">%>
						<input onclick="self.location.href='editer.asp?id=<%=id%>'" class="bouton" value="Editer" type="button">
						<input onclick="javascript:if(confirm('Voulez-vous vraiment supprimer cette entree ?')){document.location ='supprimer.asp?id=<%=id%>'}" class="bouton" value="Supprimer" type="button">
						<div class="apresBoutons"></div>
					</div>
 
 
 
						<div class="FicheMultiSections">
							<div onclick="fms_switchSection('1_1');" class="section">
								<div class="ouverte" id="fms_titre_1_1">Publication</div>
							</div>
 
						<table id="fms_section_1_1" border="0" cellpadding="0" cellspacing="1">
						<tbody>
						<tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Titre</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("titre_fr")%></td>
						</tr>
						<tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Auteurs</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("auteurs")%></td>
						</tr>
						<tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Type de publication</div></td>
							<td width="10"></td>							
							<td class="info"><% 
										if rs1("typepub")=0 then 
										response.write("Autre")
										 elseif rs1("typepub")=1 then 
										 response.write("Article de revue")
										 elseif rs1("typepub")=2 then 
										 response.write("Article de conférence avec comité de lecture")
										 elseif rs1("typepub")=3 then
										 response.write("Article de conférence")
										 elseif rs1("typepub")=4 then 
										 response.write("Brevet d'invention")
										 elseif rs1("typepub")=5 then 
										 response.write("Contrat de recherche")
										 elseif rs1("typepub")=6 then
										 response.write("Rapport technique")
 
										end if
										 %></td>
						</tr>
						<tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Nom du média</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("nom_fr")%></td>
						</tr>
						<tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Classement</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("classement")%></td>
						</tr>
						<tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Collaborateurs / Industrie</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("collabo")%></td>
						</tr>
						<tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Édition</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("edition")%></td>
						</tr>
						<tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Volume</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("volume")%></td>
						</tr>
						<tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Numéro</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("numero")%></td>
						</tr>
							<tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Pages</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("pages")%></td>
						</tr>
						<tr>
							<td class="zoneDeTitre-normale" ><div class="titre">ISBN</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("ISBN_fr")%></td>
						</tr>
						<tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Document</div></td>
							<td width="10"></td>							
						<td class="info"><%if rs1("document")<>"" then%><a href="../../upload/publications/<%=rs1("document")%>" target="_blank">Document actuel</a>&nbsp;&nbsp;<%end if%></td>
						</tr>	
 
 
 
						</tbody>
						</table>
						</div>
 
 
 
						<div class="FicheMultiSections">
							<div onclick="fms_switchSection('1_2');" class="section">
								<div class="ouverte" id="fms_titre_1_2">Information complémentaire</div>
							</div>
 
						<table id="fms_section_1_2" border="0" cellpadding="0" cellspacing="1">
						<tbody>
 
 
 
						<tr>
							<td class="zoneDeTitre-normale"><div class="titre">Notes</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("notes_fr")%></td>
						</tr>
 
						<tr>
							<td class="zoneDeTitre-normale"><div class="titre">Date 1</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("date1")%></td>
						</tr>
						<tr>
							<td class="zoneDeTitre-normale"><div class="titre">Date 2</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("date2")%></td>
						</tr>
						<tr>
							<td class="zoneDeTitre-normale" ><div class="titre">À paraître</div></td>
							<td width="10"></td>							
							<td class="info"><% if rs1("paraitre")=1 then response.write("Oui")else response.write("Non") end if%></td>
						</tr><tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Université</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("universite")%></td>
						</tr><tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Ville</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("ville")%></td>
						</tr><tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Province</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("province")%></td>
						</tr><tr>
							<td class="zoneDeTitre-normale" ><div class="titre">Pays</div></td>
							<td width="10"></td>							
							<td class="info"><%=rs1("pays")%></td>
						</tr>
						</tbody>
						</table>
						</div>
 
						<div class="FicheMultiSections">
							<div onclick="fms_switchSection('1_3');" class="section">
								<div class="ouverte" id="fms_titre_1_3">Etat de la fiche</div>
							</div>
 
						<table id="fms_section_1_3" border="0" cellpadding="0" cellspacing="1">
						<tbody>
						<tr>
							<td class="zoneDeTitre-normale"><div class="titre">Valide</div></td>
							<td width="10"></td>
							<td class="info"><span class="<%=val%>"><%=val%></span></td>
						</tr>
						<tr>
							<td class="zoneDeTitre-normale"><div class="titre">Publique</div></td>
							<td width="10">
							</td><td class="info"><span class="<%=pub%>"><%=pub%></span></td>
						</tr>
						</tbody>
						</table>
						</div>
 
					<div class="boutons" align="right">
						<%
						' on teste si l'on peut se déplacer en arrière 
						rsnav.MovePrevious
						If Not rsnav.BOF Then 
						%>
						<input onclick="document.location = 'fiche.asp?id=<%=rsnav("Primaire")%>'" class="bouton" value="&lt;" type="button">
						<%end if %>						
						<%
						'positionnement après la fiche en cours
						rsnav.MoveNext
						rsnav.MoveNext
 
						' on teste si l'on peut se déplacer en avant 
						If Not rsnav.EOF Then
						%>
						<input onclick="document.location = 'fiche.asp?id=<%=rsnav("Primaire")%>'" class="bouton" value="&gt;" type="button">
						<%
						end if 
						'repositionnement sur la fiche en cours (permet de copier coller ce code exactement pour le mettre ci bas ^^)
						rsnav.MovePrevious
						%>
						<%'<input onclick="mailEnregistrement('fr');" class="bouton" value="@" type="button">%>
						<input onclick="self.location.href='editer.asp?id=<%=id%>'" class="bouton" value="Editer" type="button">
						<input onclick="javascript:if(confirm('Voulez-vous vraiment supprimer cette entree ?')){document.location ='supprimer.asp?id=<%=id%>'}" class="bouton" value="Supprimer" type="button">
						<div class="apresBoutons"></div>
					</div>
						</div>		
 
 
 
 
				<div class="onglets">
				<div class="bas">
					<a class="selectionne" ><span>Français</span></a>
					<a class="" href="../en/fiche.asp?id=<%=id%>" ><span>English</span></a>
					<a class="" href="../es/fiche.asp?id=<%=id%>"><span>Espa&ntilde;ol</span></a>
					<a class="" href="../de/fiche.asp?id=<%=id%>"><span>Deutsch</span></a>
 
				</div>
				</div>
	</div>
</div>
</div>
 
<div class="sous-menu">
	<%=testpage(dir, langue ,sousmenu, "liste") %><span>Liste des publications</span></a> 
	<%=testpage(dir, langue ,sousmenu, "fiche")%><span>Fiche de la publication</span></a>
	<%=testpage(dir, langue ,sousmenu, "nouveau") %><span>Nouvelle publication</span></a>
</div>
 
 
 
<% 
'fermeture des recordset 
rsnav.close
Set rsnav = Nothing
rs1.Close
Set rs1 = Nothing
%>
 
<!--#include file="../../deconnexion.asp"-->
<!--#include file="../../footer.asp"-->

erreur 80020009 ASP

ASP

Discussions similaires

Partager

Partager