<%@ Language=VBScript %> <% Set DB = Server.CreateObject("ADODB.Connection") DB.Open Session("aCstrDNS") %> <% Call TitreDisplay ("scen") %> <% Set aOrqJeux = Server.CreateObject("ADODB.RecordSet") aVsql = "SELECT GRP_NO, JEUX_NO, JEUX_NOM, JEUX_IMG, JEUX_ID " _ & "FROM JEUX " _ & "order by grp_no, jeux_no" aOrqJeux.Source = aVsql aOrqJeux.ActiveConnection = Session("aCstrDNS") aOrqJeux.CursorType = adOpenStatic aOrqJeux.Open If Not aOrqJeux.EOF Then aVintTaille = 10 aOrqJeux.pagesize = aVintTaille aVintNbPage = cint(aOrqJeux.pagecount) aOrqJeux.absolutepage = 1 End If aVintNbTuple = 0 %>
<% Do while not aOrqJeux.eof AND aVintNbTuple < aOrqJeux.pagesize %> .htm">" border="0" alt="<% = aOrqJeux.Fields("JEUX_NOM") %>">

<% aOrqJeux.movenext aVintNbTuple = aVintNbTuple + 1 Loop %>
<% aOrqJeux.absolutepage = 2 aVintNbTuple = 0 Do while not aOrqJeux.eof AND aVintNbTuple < aOrqJeux.pagesize %> .htm">" border="0" alt="<% = aOrqJeux.Fields("JEUX_NOM") %>">

<% aOrqJeux.movenext aVintNbTuple = aVintNbTuple + 1 Loop %>
<% aOrqJeux.absolutepage = 3 aVintNbTuple = 0 Do while not aOrqJeux.eof AND aVintNbTuple < aOrqJeux.pagesize %> .htm">" border="0" alt="<% = aOrqJeux.Fields("JEUX_NOM") %>">

<% aOrqJeux.movenext aVintNbTuple = aVintNbTuple + 1 Loop %>