home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Internet / Abb / maj / adddecal.asp next >
Encoding:
Text File  |  2000-03-02  |  786 b   |  28 lines
  1. <% @ LANGUAGE="VBScript" lcid="1036" %>
  2. <%
  3.     Set ConnectionBD = Server.CreateObject("ADODB.connection")
  4.     ConnectionBD.Open "abb"
  5.     'Initialisation de la connection avec la base de donnΘe.
  6.     
  7.     strEnvSQL = "ALTER TABLE Environnement ADD COLUMN envdecal smallint"
  8.     set EnvRes=ConnectionBD.Execute(strEnvSQL)
  9.     
  10.     SQLStmt3 = "UPDATE Environnement "
  11.     SQLStmt3 = SQLStmt3 & "SET envdecal = (0) "
  12.     Set RS3 = ConnectionBD.Execute(SQLStmt3)
  13. %>
  14. <html>
  15.  
  16. <head>
  17. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  18. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  19. <meta name="ProgId" content="FrontPage.Editor.Document">
  20. <title>ABB</title>
  21. </head>
  22.  
  23. <body>
  24. Le dΘcalage horaire est ajoutΘ ! Vous pouvez dΘsormait le configurer...
  25. </body>
  26.  
  27. </html>
  28.