---- SMEC METZ JUDO ----

<% Dim SQLquery 'Diclaration des variables Dim pg Dim nl nl=0 Const adOpenKeyset = 1 'Ditection de depassement de la page courante pg = Clng(Request.QueryString("Pg")) if pg = "" then pg = Clng(1) end if if pg < 1 then pg = Clng(1) end if 'Requete SQL SQLQuery = "SELECT * FROM album order by id desc" Set RS = Server.CreateObject("ADODB.Recordset") 'Nombre de ligne par page RS.PageSize = 27 'Execution de la requete RS.Open SQLQuery, conn, adOpenKeyset 'Ditection de page non vide if not RS.eof then RS.AbsolutePage = Clng(pg) 'Nombre de page nbpg = Clng(RS.pagecount) 'Depassement page if Clng(pg) > nbpg then response.redirect("album.asp?pg=1") end if end if %> ---- SMEC METZ JUDO ----