<%'response.redirect "maintenance.htm"%> <% if request("menu")="" then response.redirect "http://www.africultures.com/php/" end if %> <% connexionBD ' === INCLUSION ASP === function include_asp(fichier) ' ****** A VIRER (jm le 12/06/08) ************** 'include_asp = false 'exit function ' ********************************************** dim Fnm,inF,code,asp,pt1,pt2 ' Création éventuelle de l'objet FSO_include if not isobject(FSO_include) then set FSO_include = Server.CreateObject("Scripting.FileSystemObject") ' Calcul du path long du fichier if session("serveurLoc")="local" then Fnm = Server.MapPath("\africultures") & fichier else Fnm = server.mapPath(fichier) end if ' si le fichier existe if FSO_include.fileExists(Fnm) then include_asp = true set inF = FSO_include.openTextFile(Fnm,1,false) ' on lit tout son contenu code = inF.readAll inF.close ' on remplace les <%= par des <%response.write code = replace(code,"<%=","<%response.write ") code = replace(code,"<% =","<%response.write ") ' puis c'est selon... pt1 = 1 : pt2 = -1 while pt1>0 pt1 = instr(pt2+2,code,"<"&"%") ' on exécute tout ce qui est entre < % et % > if pt1>0 then response.write mid(code,pt2+2,pt1-pt2-2) pt2 = instr(pt1+2,code,"%"&">") asp = mid(code,pt1+2,pt2-pt1-2) execute asp ' et on affiche le reste else response.write mid(code,pt2+2) end if wend else include_asp = false end if end function function dernier_fichier(rep, nom_fichier, extention) set fso = CreateObject("Scripting.FileSystemObject") if session("serveurLoc")="local" then rep_entier = Server.MapPath("\africultures") & "\_uploads\" & rep else rep_entier = Server.MapPath("\_uploads") & "\" & rep end if set rep_evenement = fso.getFolder(rep_entier) date_dernier="-1" nom_fichier_der = "" for each fichier_genere in rep_evenement.Files nom_fichier2=fichier_genere.name if fso.GetExtensionName(rep_entier & nom_fichier2) = extention then if InStr(nom_fichier2,nom_fichier)<>0 then if date_dernier="-1" then date_dernier = fichier_genere.datecreated nom_fichier_der = nom_fichier2 else if cdate(date_dernier)"" then index_width = 930 menu_width = 150 marge_width = 20 main_width = index_width-menu_width-marge_width-menu_width top_width=index_width-menu_width else index_width = 778 menu_width = 150 marge_width = 20 main_width = index_width-menu_width-marge_width top_width=index_width end if ' Ce recordset par défaut déclaré pour les requetes dans les include ci-après set rs = Server.CreateObject("ADODB.recordset") menu=request("menu") rubrique=request("no_rubrique") menu_haut=request("menu_haut") if menu="themes" and rubrique<>"" and menu_haut="" then menu_haut="actualite" 'BANNIERES Set banniere3 = Server.CreateObject("MSWC.AdRotator") Set banniere4 = Server.CreateObject("MSWC.AdRotator") %> <%if true then%> <%else%> <%end if%>

<%if menu_droite<>"" then%> <%end if%> <%if request("menu")<>"" then %> <%if false then%> <%'************************%> <%end if%> <%'************************%> <%end if%>   <% if menu<>"" then%> <% end if%> <%' on affiche un menu en haut de la page central en fonction du menu sélectionné%> <%select case menu%> <%case "revue_presentation"%> <%case "revue_historique"%> <%case "revue_redacteurs"%> <%case "revue_echos"%> <%case "revue_sommaires"%> <%case "revue_articles_main"%> <%case "revue_abonnement"%> <%case "revue_critiques"%> <%case "revue_critiques_article"%> <%case "themes"%> <%case "contacts_professionnels" %> <%case "pro_festivals" %> <%case "pro_artistes" %> <%case "pro_adresses" %> <%case "pro_festivals_recherche"%> <%case "pro_adresses_recherche"%> <%end select%> <% ' Page centrale affichée en fonction du menu sélectionné ' Si nous sommes dans les pages par rubrique, ' on affiche la page centrale en fonction du liens cliqué ' dans le menu en haut de la page (actualité, murmures, articles, artistes, strucutres...) %> <%select case menu%> <%case "petition"%> <%case "petition2"%> <%case "linfo_arch"%> <%case "linfo_mod2"%> <%case "linfo_mod"%> <%case "linfo_res2"%> <%case "linfo_res"%> <%case "linfo_add"%> <%case "linfo_inscrp"%> <%case "pres_al"%> <%case "pres_en"%> <%case "pres_it"%> <%case "pres_fr"%> <%case "msg"%> <%case "auto_art"%> <%case "auto_evt2"%> <%case "auto_evt"%> <%case "auto_tables"%> <%case "auto_artistes"%> <%case "auto_groupes"%> <%case "auto_films"%> <%case "auto_livres"%> <%case "auto_disques"%> <%case "auto_galeries"%> <%case "auto_spectacles"%> <%case "auto_structures"%> <%case "recup_art"%> <%case "msg_add"%> <%case "liens"%> <%case "autoliens"%> <%case "autoliens_fin"%> <%case "projets"%> <%case "prg"%> <%case "prg_struc"%> <%case "prg_art"%> <%case "arch_section"%> <%case "themes"%> <%select case menu_haut%> <%case "actualite" %> <%case "prof" %> <%case "murmures" %> <%case "articles" %> <%case "artistes" %> <%case "oeuvres" %> <%case "livres" %> <%case "revues" %> <%case "structures" %> <%case "archives"%> <% case "liens"%> <%case "par_pays"%> <%case "dvd" %> <%case "par_pays_autres"%> <%end select%> <%case "correspondances" %> <%case "diaspos" %> <%case "revue_africultures" %> <%case "revue_presentation" %> <%case "revue_historique" %> <%case "revue_redacteurs" %> <%case "revue_sommaires" %> <%case "revue_sommaire" %> <%case "revue_echos" %> <%case "revue_addcommand" %> <%case "revue_login" %> <%case "revue_affiche_article" %> <%case "revue_affiche_article_asp" %> <%case "revue_commande" %> <%case "revue_articles_main" %> <%case "revue_abonnement" %> <%case "revue_abo_info" %> <%case "revue_abo_recap" %> <%case "revue_reabo" %> <%case "revue_edition" %> <%case "offre_noel" %> <%case "form_noel" %> <%case "form_noel2" %> <%case "revue_edition_mambety" %> <%case "revue_edition_chalaye" %> <%case "revue_edition_rahal" %> <%case "revue_edition_malanda" %> <%case "revue_edition_wata" %> <%case "revue_critiques" %> <%case "revue_critiques_article" %> <%case "contacts" %> <%case "contacts_en" %> <%case "contacts_mail" %> <%case "partenaires" %> <%case "partenaires_associations" %> <%case "partenaires_ricafe" %> <%case "partenaires_bangui" %> <%case "partenaires_evenements"%> <%if html_actif then%> <%'if false then%> <%file_dernier = dernier_fichier("htm_genere/evenement/", "evenements_gen", "asp")%> <%if not(include_asp(file_dernier)) then%> <%end if%> <%else%> <%end if%> <%case "rencontres" %> <%case "rencontres_archives" %> <%case "compteurs" %> <%case "lettre_info" %> <%select case request("sousrub")%> <%case "archives"%> <%case "ami"%> <%case "send"%> <%case else%> <%end select%> <%case "forums" %> <%case "forums_form" %> <%case "forum_affiche" %> <%case "forum" %> <%case "petites_annonces" %> <%case "petites_annonces_detail" %> <%case "petites_annonces_new" %> <%case "courrier_lecteurs" %> <%case "courrier_detail" %> <%case "articles_lecteurs" %> <%case "proverbes" %> <%case "afriboutique" %> <%case "amis" %> <%case "radio" %> <%case "tele" %> <%case "contacts_professionnels" %> <%case "pro_festivals" %> <%case "pro_adresses" %> <%case "pro_festivals_recherche"%> <%case "pro_adresses_recherche"%> <%case "agenda" %> <%case "stage" %> <%case "universitaire"%> <%case "sorties" %> <%case "murmures"%> <%case "murmures_recherche"%> <%case "revue_membres" %> <%case "recherche_gen"%> <%case "recherche_gen_autres"%> <%case "affiche_evenement"%> <%case "affiche_stagecour"%> <%case "affiche_article"%> <%case "affiche_artiste"%> <%case "affiche_redacteur"%> <%case "affiche_responsable"%> <%case "affiche_disque"%> <%case "affiche_film"%> <%case "affiche_livre"%> <%case "affiche_revue"%> <%case "affiche_numero"%> <%case "affiche_groupe"%> <%case "affiche_structure"%> <%case "affiche_murmure"%> <%case "affiche_spectacle"%> <%case "affiche_places"%> <%case "affiche_dvd"%> <%case "derniers_articles"%> <%case "tele_arte"%> <%case "zooms" %> <%case "zoom" %> <%case "rapport_bangui"%> <%case else%> <%if html_actif then%> <%file_dernier = dernier_fichier("htm_genere\central\", "index_central_gen", "htm")%> <%if not(include_asp(file_dernier)) then%> <%end if%> <%else%> <%end if%> <%end select%>   <%select case menu_droite%> <%case "acceuil" %> <%case else %> <%end select%>

<% =Session("session_no_personne") %> <% set rs=nothing set banniere3 = nothing set banniere4 = nothing deconnexionBD %>