<%
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
