%@ Language=VBScript %> <% if Request("Page") = "" AND Request("TaillePage") = "" Then '*************** INFOS GENERALES SQL = "SELECT * FROM Pcu" SQL = SQL & " WHERE FermeTemp=False AND EXISTS(SELECT id FROM pcu_locale WHERE id = pcu.id AND CheminRom = -1)" SQL = SQL & " ORDER BY COMMUNE" Session("SQL") = SQL end if SQL = Session("SQL") Set rs = Server.CreateObject("ADODB.RECORDSET") rs.PageSize = 10 rs.Open SQL,conn,adOpenKeyset,adLockOptimistic,adCmdText if not rs.EOF Then rs.AbsolutePage = CLng(Session("Page")) end if %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||