Discussion :

[tidus666x]

Bonjour
J'ai une erreur dans mon code ASP pouvez vous m'aider

error '80020009
Une exception s'est produite.
/chenebleu/informatique/images/cje/ele_liremessage.asp
line 113

Voici ma ligne 113

<td align="center"><%="" & rs.fields("de") & "" %> </td>

[Crazyblinkgirl]

Bonjour,

Si tu récupères bien le contenu du champ "de", tu n'as plus qu'à faire :

Code :

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

<td align="center"><%=rs.fields("de")%></td>

[tidus666x]

Erreur encore

Code :

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

1
2
3
4
5
6
 
ADODB.Field error '80020009' 
 
BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel. 
 
/chenebleu/informatique/images/cje/ele_liremessage.asp, line 0

Code ASP:

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
<%Dim rs,sql,conn
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs= Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("./database.mdb")
sql ="select * from messagerie where de = '" & session("login") & "'" 
rs.Open sql, conn , 2, 3 
conn.execute(sql)
if not rs.eof then 
do while not rs.eof
 response.write rs.fields("Id") & "<br>"
 response.write rs.fields("de") & "<br>"
 response.write rs.fields("a") & "<br>"
 response.write rs.fields("sujet") & "<br>"
 rs.movenext
loop
end if
 
%>

Ligne ou le text dois etre écrit

Code :

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

                        <td align="center"><%=rs.fields("de")%></td>

[Crazyblinkgirl]

Elle est cencée se situer ou cette ligne?

[tidus666x]

ces la ligne 113

voici la partie Intégral 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
<%Dim rs,sql,conn
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs= Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("./database.mdb")
sql ="select * from messagerie where de = '" & session("login") & "'" 
rs.Open sql, conn , 2, 3 
conn.execute(sql)
if not rs.eof then 
do while not rs.eof
 response.write rs.fields("Id") & "<br>"
 response.write rs.fields("de") & "<br>"
 response.write rs.fields("a") & "<br>"
 response.write rs.fields("sujet") & "<br>"
 rs.movenext
loop
end if
 
%>
 
 
 
<table border="1" width="100%">
		<tr>
			<td align="center"><b>De</b></td>
			<td align="center"><b>À</b></td>
			<td align="center"><b>Sujet</b></td>
			<td align="center"><b>Lire</b></td>
		</tr>
		<tr>
                        <td align="center"><%=rs.fields("de")%></td>
			<td align="center"> </td>
			<td align="center"> /td>
			<td align="center"> </a>" & %></td>
		</tr>
	</table>
	<%
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>

[Immobilis]

C'est incroyable!!!!!
Tu recommence les mm erreurs que dans ton post précédent!!!
http://www.developpez.net/forums/viewtopic.php?t=468313
Peux-tu faire un effort!!!
Ta ligne

Code :

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

<td align="center"><%=rs.fields("de")%></td>

est en dehors de ta boucle

[tidus666x]

Je l'avais mal compris desoler