home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / Autre / includeDNSless.asp < prev   
Text File  |  2000-02-28  |  448b  |  11 lines
  1. <%
  2.     chemin="fpdb/abb.mdb"
  3.     Set ConnectionBD = Server.CreateObject("ADODB.Connection")
  4.     ConnectionBD.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(chemin) & " "
  5.     ConnectionBD.Open
  6.     'Initialisation de la connection avec la base de donnΘe.
  7.     
  8.     strEnvSQL = "SELECT * FROM Environnement"
  9.     set EnvironnementRes=ConnectionBD.Execute(strEnvSQL)
  10.     'Requette sur Environnement, utilisΘ dans toutes les pages.
  11. %>