<% Session.LCID = 1036 %> <% id=request.querystring("id") %> Château de l'Engarran - Un patrimoine historique et viticole en Languedoc


<% set conntemp=server.createobject("adodb.connection") conntemp.open "engarran" sql= "Select * from actualites where id="&id&"" set rstemp=conntemp.Execute (sql) if rstemp.eof OR rstemp.bof then %>
Actualité non disponible. <% else %>
<% =rstemp.fields("titre") %>
<% =rstemp.fields("stitre") %>

<% =rstemp.fields("contenu") %>
<% 'appel de la fonction et affichage de l'image attention au chemin dim varretour varfile="actu_" & rstemp.fields("id") ReportFileStatus varfile, varretour %> <% if varretour<>"" and varretour<>" " and varretour<>"0" then %>

<% =varretour %>">
<% end if %> <% end if conntemp.close %>

© Château de l'Engarran 2003
<% 'fonction d exsistance d image Function ReportFileStatus(filespec, varretour) Dim fso, msg, chemin 'penser à remplacer ici les chemin Chemin1 = "c:\sites\c\www.chateau-engarran.com\photo\" & filespec & ".jpg" Chemin2 = "c:\sites\c\www.chateau-engarran.com\photo\" & filespec & ".gif" Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(chemin1)) Then msg = ".JPG" Else msg = "0" End If if msg = "0" then If (fso.FileExists(chemin2))Then msg = ".GIF" Else msg = "" End If end if ReportFileStatus = msg varRetour = msg End function %>