% 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 = '2004' 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 %>
<%
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 %> |
<%
If Page > 1 Then
%>
|
<%
End If
%>
<%
If Page < rs.PageCount Then
%>
|
<%
End If
%>
<%
Else
%>
Aucune image disponible en ce moment.
<%
End If
%>