% 'Chaîne de connection ' Créer l'objet ADO Set Conn = Server.CreateObject("ADODB.Connection") connstring = "Driver={Microsoft ACCESS Driver (*.mdb)}; DBQ="&Server.MapPath("/")&"\base\kpointcom.mdb" Conn.open connstring %> <% 'Requete SQL alimentation menu deroulant constructeurs stconstructeur="PHILIPS" sql = "SELECT DISTINCT Constructeur FROM TELEPHONES" 'sql3 = "SELECT commentaires FROM CONSTRUCTEURS WHERE Constructeur = '" & stconstructeur & "' " set rs = Conn.Execute(sql) %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||