<% Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-store" %> <% Set con = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") con.Open("maitrisedb") rs.Open "SELECT * FROM tblPhoto WHERE Annee = '2002' ORDER BY Ordre", con, 1, 3 If Request("Page") <> "" Then If CInt(Request("Page")) > 1 Then Page = CInt(Request("Page")) Else Page = 1 End If Else Page = 1 End If rs.PageSize = 1 If Not rs.Eof Then rs.AbsolutePage = Page End If %> Nouvelle page 3


 
 
<% If Page > 1 Then %> <% End If %> <% If Page < rs.PageCount Then %> <% End If %> <% Else %> Aucune image disponible en ce moment. <% End If %>
<% If Not rs.Eof Then %>  
<% If (Not IsNull(rs("Description"))) And (rs("Description") <> "") Then %> <%= rs("Description") %>
<% End If %> <% if rs("Correspondance") <> "" then %> "> <% end if %> "><% if rs("Correspondance") <> "" then %> <% end if %>





<% rs.close Set rs = Nothing con.close Set con = Nothing %>