<% CodeManif = Request("CodeManif") 'Ouverture de la base '-------------------- Set objConn = Server.CreateObject ("ADODB.Connection") strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/base/Agenda.mdb") & ";DefaultDir=" & Server.MapPath(".") & ";DriverId=25;FILE=MS Access;MaxBufferSize=512;PageTimeout=5" objConn.Open strconnect Set Result = Server.CreateObject ("ADODB.Recordset") StrSQL = "SELECT TypeManif.TypeManif, Manif.DateManifDu, Manif.DateManifAu, Manif.CommentaireDate, Manif.Horaire, Manif.LieuManif, Manif.ThemeManif, Manif.Tarif, Manif.DescriptionManif FROM TypeManif INNER JOIN Manif ON TypeManif.CodeTypeManif = Manif.CodeTypeManif WHERE (((Manif.CodeManif)=" + CodeManif + "))" Result.Open strSQL, objConn, 0, 1, 1 %> Site officiel de la ville de Tarbes, préfecture des Hautes Pyrénées, Midi Pyrénées : Agenda

 

<% = Result("TypeManif") %> | <% If Result("CommentaireDate") <> "" Then %> <% = Server.HtmlEncode(Result("CommentaireDate")) %> <% If Result("Horaire") <> "" Then %>  -  <% = Result("Horaire") %> <% End If %> <% Else %> <% If Result("DateManifDu") = Result("DateManifAu") Then %> le  <% = Result("DateManifDu") %> <% If Result("Horaire") <> "" Then %>  -  <% = Result("Horaire") %> <% End If %> <% Else %> du  <% = Result("DateManifDu") %>  au  <% = Result("DateManifAu") %> <% If Result("Horaire") <> "" Then %>  -  <% = Result("Horaire") %> <% End If %> <% End If %> <% End If %> <% If Result("Tarif") <> "" Then %>  -  <% = Result("Tarif") %> <% End If %>

| <% = Result("ThemeManif") %>

<% = TraiteSautDeLigneEtBlanc(Result("DescriptionManif")) %>
<% Result.Close objConn.Close %>