<% Application.Lock Application("art")=Request.Form("art") Application("dir")=Request.Form("dir") %> <% art=Application("art") %> <% dir=Application("dir") %> <% Select Case dir Case "" Session("CurrentPage") = 1 Case "Next" Session("CurrentPage") = Session("CurrentPage") + 1 Case "Prev" Session("CurrentPage") = Session("CurrentPage") - 1 End Select Const adOpenkeyset = 1 %> <% libsup = "Tous les extraits sonores" %> <% Set conn=Server.createObject("ADODB.Connection") strpath = Server.MapPath("../base/sons.mdb") connstring = "Driver={Microsoft Access Driver (*.mdb)};DBQ= " & strpath & ";" conn.open connstring Dim strSQL Set rs = server.createObject("ADODB.recordset") strSQL = strSQL & "SELECT * FROM tb_sons WHERE artiste = '" & art & " ' order by artiste " rs.PageSize=5 rs.Open strSQL,conn,adOpenKeyset rs.AbsolutePage = CLng(Session("CurrentPage")) %> <% End Sub %>

<% = libsup %> <% = art %> Page : <% =CLng(Session("CurrentPage")) %>/<% =rs.PageCount %> <% Dim i for i=1 To rs.PageSize %> <% left_ref = left(rs("ref"),7) %> <% left_ref=Lcase(left_ref)%> <% img ="../images/"+left_ref+".gif" %> <% extr =Lcase(rs("ech")) %> <% son ="../sons/"+extr %> <% det %> <% rs.MoveNext %> <% If rs.EOF then exit for end if Next %> Img Ref Album Extrait Titre Style Cde <% if CLng(Session("CurrentPage")) > 1 Then %> <% end if %> <% if CLng(Session("CurrentPage")) < rs.Pagecount Then %> <% end if %> <% rs.close set rs = nothing conn.close set conn=nothing %> <% Sub Det() %>
	<% =rs("ref") %>	<% =rs("album") %>	Extrait	<% =rs("titre") %>	<% =rs("style") %>	">