Discussion :

[delavega]

Bonsoir,

Est-ce que quelqu'un pourrait me dire comment corriger ce morceau de code car il ne fonctionne actuellement pas correctement, merci :

<table width="79%" border="0" cellspacing="2" cellpadding="0">
<%
Dim i
For i = 1 To objRecordset.PageSize
%>
<tr align="center" valign="middle">
<td width="38%" height="15"><img src="base/<%=objRecordset("name")%>" alt="<%=id_prod%>" width="70" height="70" border="0" align="middle"> <br />
<%Response.write objRecordset("id_prod")%></td>
<%
objRecordset.MoveNext

If objRecordset.EOF then
exit for
End if

%>
<td width="33%"><img src="base/<%=objRecordset("name")%>" alt="<%=id_prod%>" width="70" height="70" border="0" align="middle" /><br />
<%Response.write objRecordset("id_prod")%></td>
<%
objRecordset.MoveNext

If objRecordset.EOF then
exit for
End if

%>
<td width="29%"><img src="base/<%=objRecordset("name")%>" alt="<%=id_prod%>" width="70" height="70" border="0" align="middle" /><br />
<%Response.write objRecordset("id_prod")%></td>
<%
objRecordset.MoveNext

If objRecordset.EOF then
exit for
End If

next
%>
</tr>
<tr align="left" valign="top">
<td colspan="3">
<%If CLng(Session("CurrentPage")) > 1 Then %>
<a href="photo.asp?Direction=Prev">pr&eacute;c&eacute;dent</a>
<% End If %>
<%If CLng(Session("CurrentPage")) < objRecordset.Pagecount Then %>
<a href="photo.asp?Direction=Next">suivant</a>
<% End If %></td>
</tr>
</table>
</td>
</tr>
</table>

Le petit souci c quand je passe à la page suivante, il semblerait que le rajout du record ne fonctionne pas très bien.

Merci de votre aide par avance,

Denis

[Immobilis]

Salut
STP
Merci