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
|
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%>
<%ID = request.queryString("id")
if ID<>"" then
SQL = "SELECT * FROM fotos WHERE id=" & ID
else
SQL = "SELECT * FROM fotos where nav ='1'ORDER BY id "
end if
rs.PageSize = 1
RS.open SQL,conn,3,3
rs.AbsolutePage = CLng(Session("CurrentPage"))
%>
<%x=0
Dim i
For i = 1 To rs.PageSize
'do while not rs.eof
result=x mod 2
if x=2 and result=0 then
response.write "<p>"
x=0
end if
response.write " "
%>
<img src="<%=rs("image")%>" alt="Photo" width="100" height="100" id="big_pict" title="photo"/>
<% x=x+1
rs.movenext
If rs.EOF then
exit for
End If
Next%>
<%If CLng(Session("CurrentPage"))> 1 Then %>
<a href="test.asp?Direction=Prev" class="adresse" title="Précédents"><<
Précédents</a>
<% End If %>
<%If CLng(Session("CurrentPage"))< rs.Pagecount Then %>
<a href="test.asp?Direction=Next" class="adresse" title="Suivants">Suivants >></a> </p></div>
<% End If %> |
Partager