<%@ LANGUAGE = VBScript %> <% Option Explicit %> Catalogue Aladin

Choisissez un support et un genre musical , puis cliquez sur selection.
Choose a support and a musical style , then click on selection.
Choisissez un artiste dans la liste , puis cliquez sur selection.
Choose a artist on the list , then click on selection.



<% Dim conn Dim strpath Dim connstring Dim rs Set conn=server.createObject("ADODB.Connection") strpath = Server.MapPath("../base/mabase.mdb") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strpath & ";" Set rs = Conn.Execute("SELECT * FROM list_genr_catalad1 order by genrc") %>
Support
Style

<% Set rs = Conn.Execute("SELECT * FROM list_art_catalad1 order by artc") %>
Artiste