<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "322r-001-012valloires" JJ = Day(Now) If Len(JJ) < 2 Then JJ = "0" & JJ MM = Month(Now) If Len(MM) < 2 Then MM = "0" & MM AA = Year(Now) DateJour = AA & "/" & MM & "/" & JJ SQL = "Select * From Diapos Where dia_MAJ = False And dia_Date <= '" & DateJour & "' Order by dia_Date Desc " Set ors = Server.CreateObject("ADODB.Recordset") ors.ActiveConnection = objConn ors.CursorType = 1 ors.LockType = 3 ors.Source = SQL ors.Open If Not ors.BOF Then Dim fso Set fso = CreateObject("Scripting.FileSystemObject") ors.MoveFirst Do While Not ors.EOF Langue = ors("dia_Langue") Fichier = ors("dia_Nom") Titre = ors("dia_Titre") ComSQL = "Insert Into Comment (com_Langue, com_Texte) Values ('" & Langue & "','" & Titre & "')" Set rst = objConn.Execute(comSQL) ' Proccess Big Image vSource = "diapos/" & Langue & "/images/" & Fichier & ".jpg" pSource = Server.MapPath(vSource) vCible = "diapos/" & Langue & "/TempImage.jpg" pCible = Server.MapPath(vCible) Set fSource = fso.GetFile(pSource) fSource.Copy pCible, True 'Process small vSource = "diapos/" & Langue & "/vignettes/sm_" & Fichier & ".gif" pSource = Server.MapPath(vSource) vCible = "diapos/" & Langue & "/sm_Images.gif" pCible = Server.MapPath(vCible) Set fSource = fso.GetFile(pSource) fSource.Copy pCible, True ' MAJ Table ors("dia_MAJ") = True ors.Update ors.MoveNext loop End If ors.Close Set ors = Nothing objConn.Close Set objConn = Nothing %> Les Jardins de valloires, Gardens of Valloires
Les Jardins de Valloires
  
Bienvenue Les Jardins de Valloires
Welcome