% cityString = "" provString = "" Dim objDBConn, objRS, strConn, strQuery Set objDBConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.Createobject("ADODB.Recordset") strConn = "provider=Microsoft.Jet.oledb.4.0;data source=" & Server.MapPath("..\MEMBERS\data\dirMembers.mdb") objDBConn.Open strConn Set objRS.ActiveConnection = objDBConn strQuery = "SELECT DISTINCT City FROM Members" objRS.Open strQuery while not objRS.EOF cityString = cityString & "" objRS.MoveNext Wend objRS.Close strQuery = "SELECT DISTINCT Prov FROM Members" objRS.Open strQuery while not objRS.EOF provString = provString & "" objRS.MoveNext Wend objRS.Close strQuery = "SELECT DISTINCT Designation FROM Members" objRS.Open strQuery while not objRS.EOF desigString = desigString & "" objRS.MoveNext Wend objRS.Close objDBConn.Close Set objRS = Nothing Set objDBConn = Nothing %>
|
Membres de DRI CANADA
18 octobre 2013 (mise à jour tous les deux mois) Si votre nom n’est pas sur la liste, veuillez communiquer avec notre bureau |