<%@Language=VBScript%> <% Option Explicit Const ForReading = 1, ForWriting = 2, ForAppending = 8 Response.Expires = 0 Response.AddHeader "CacheControl", "private" Response.AddHeader "pragma", "no-cache" %> Placements Montrusco Bolton inc. - Gestion de portefeuille
 
Revue de presse

Journal Les Affaires - Octobre 2007

Entrevue avec Ismaël Chiadmi

<% ' ********* INSERT DYNAMIC CONTENT... DO NOT TOUCH! On Error Resume Next Sub wl(line) Response.Write(line & vbcrlf) End Sub Dim xmlDoc, xml, aVideos, ofile, x, y, z, c, count, title, desc, vdate, file Set ofile = Server.CreateObject("Scripting.FileSystemObject") count = 0 Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM") xmlDoc.async="false" xmlDoc.load(Server.MapPath("/fr/videos.xml")) If xmlDoc.parseError = 0 Then For Each x in xmlDoc.ChildNodes Set c = x.childNodes For Each y in x.childNodes ' Each video... count = count + 1 title = "" : desc = "" : vdate = "" : file = "" For Each z in y.childNodes If z.NodeName = "Title" Then title = z.text If z.NodeName = "Description" Then desc = z.text If z.NodeName = "Date" Then vdate = z.text If z.NodeName = "Filename" Then file = z.text Next If ofile.FileExists(Server.MapPath(file)) Then wl("") wl("") wl("") End If Next Next Else Response.Write("Erreur avec le document...") End If ' ********* END DYNAMIC CONTENT... DO NOT TOUCH! %>
" & title & "
" & desc & "
" & vdate) wl("") wl("") wl("") wl("") wl("