Salut,
Moi aussie javais cette erreur: c super classique.... Mais la kom ca a froid j'ai du mal a etudier ton code...
EOF=End Of File ca veut dire que tes arrivé a la fin des enregistrements ou alors que tas requette a renvoyer aucun enregistrement
BEOF=Ca veut dire quy a rien ds ta table
A#
vBt0m.
-------------------------------
Réponse au message :
-------------------------------
bonjour, j'ai un problème au niveau de la pagination: je n'arrive pas à passer au page suivant qui va afficher le reste de mes enregistrements
Voici le code de ma page ( ma page se nomme "consult.asp"):
<html>
<head><title>consultation des portes ouvertes</title>
<meta name="dji" content="note-pad">
<body topmargin="0">
<%Vcod=Request("dept")%>
<%vcod2=Request("typo")%>
<%
Select Case Request.QueryString("Direction")
Case ""
Session("currentpage") = 1
Case "Next"
Session("currentpage") = Session("currentpage") + 1
Case "Prev"
Session("currentpage") = Session("currentpage") - 1
End Select
Const adOpenKeyset = 1
%>
<%
set conntemp=server.createobject("adodb.connection")
conntemp.open "DSN=RENNES1"
dim sql
sql = sql & "SELECT PO_DESC,PO_DERNIER,ETA_LOC,ETA_lib,DEPT_COD,ETTYP_COD FROM PO_DESC,ETAB WHERE PO_DESC.ETA_COD = ETAB.ETA_COD AND (DEPT_COD)"
sql= sql & " ='" & Vcod & "' AND (ETTYP_COD)"
sql= sql & " ='" & Vcod2 & "' "
sql= sql & "order by ETA_LOC,ETA_LIB"
set rstemp=server.createobject("adodb.recordset")
rstemp.pagesize= 10
rstemp.open sql, conntemp, adOpenKeyset
rstemp.absolutepage = CLng(Session("CurrentPage"))
%>
<br>
<table>
<tr>
<td>Département : </td><td><%=rstemp.fields("DEPT_COD").Value%></TD>
<br>
<td>nature de l'établissement : </td><td><%=rstemp.fields("ettyp_cod").value%></td><br><b><<br>
</tr>
</table >
<br><br>
<%rstemp.movefirst %>
<%dim i
i=0%>
<center><table width='95%' cellpadding="0" cellspacing=0 border=0>
<%for i= 1 to rstemp.pagesize%>
<tr><td bgcolor="#999999"><font face="Verdana" size="2"><a href="www.onisep.fr/sec_etab/etab/main/showetab.asp?n=[ETA_COD]"><%=rstemp.fields("ETA_LIB").value%></A></font></td><td bgcolor="#999999"><font face="Verdana" size="2"><%=rstemp.fields("DEPT_COD").value%><br><%=rstemp.fields("ETA_LOC").value%></font></td>
</tr>
<tr><td bgcolor="#CCCCCC"><font face="Verdana" size="2"><i><br><%=rstemp.fields("PO_desc").value%></i></font><br><br></td><td bgcolor="#CCCCCC"></td>
</tr>
<%rstemp.MoveNext
if rstemp.eof then
exit for
end if
%>
<%next%>
<%If CLng(Session("currentpage")) > 1 Then %>
</table></center><br><br>
<a href="consult.asp?Direction=Prev">Enregistrements précédents</a>
<% End If %>
<%If CLng(Session("CurrentPage")) < rstemp.Pagecount Then %>
</table></center><br><br>
<a href="consult.asp?Direction=Next">Enregistrements suivants</a>
<% End If %>
<%
rstemp.close
conntemp.close
set rstemp=nothing
set conntemp=nothing
%>
</body>
</html>
en réponse au click du lien "enregistrements suivants" j'obtiens la page suivante:
ADODB.Recordset erreur '800a0bcd'
BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel.
/consult/consult.asp, ligne 30
je ne sais pas comment résoudre ce problème
Merci de m'aider
dji.