<% if Request("page") = "" Then SQLref = "Select Manifestation.id_man From" SQL = "Select * From" SQLCont = SQLCont & " (Manifestation inner join Manifestation_Texte ON Manifestation.id_man = Manifestation_Texte.id_man)" SQLCont = SQLCont & " inner join Manifestation_Affichage ON Manifestation.id_man = Manifestation_Affichage.id_man" SQLCont = SQLCont & " where Manifestation_Affichage.cod_lan='"&Application("lanDispo")(0)&"'" SQLCont = SQLCont & " AND Manifestation_Texte.cod_lan='"&Application("lanDispo")(0)&"'" SQLCont = SQLCont & " AND DATEDIFF(day,dat_deb_aff_man,getdate())>=0" SQLCont = SQLCont & " AND DATEDIFF(day,dat_fin_aff_man,getdate())<=0" SQLref = SQLref & SQLCont SQL = SQL & SQLCont & " ORDER BY lib_man_txt" Session("SQL") = SQL Session("SQLref") = SQLref end if set rMan = Server.CreateObject("adodb.recordset") rMan.PageSize = 5 rMan.Open Session("SQL"),conn,adOpenKeyset,adLockOptimistic,adCmdText if not rMan.EOF Then sqlCt = "Select * from Manifestation_Contact Where Exists("&Session("SQLref")&" AND Manifestation.id_man = Manifestation_Contact.id_man)" set rCt = Server.CreateObject("adodb.recordset") rCt.Open sqlCt,conn,adOpenKeyset,adLockOptimistic,adCmdText sqlFo = "Select * from Manifestation_Photo Where Exists("&Session("SQLref")&" AND Manifestation.id_man = Manifestation_Photo.id_man) AND id_for=1" set rFo = Server.CreateObject("adodb.recordset") rFo.Open sqlFo,conn,adOpenKeyset,adLockOptimistic,adCmdText rMan.AbsolutePage = Session("page") end if %> Sodibel - Actualités
<%if rMan.EOF Then%> <%else for i= 1 to rMan.PageSize%> <%rMan.MoveNext if rMan.EOF Then exit for next end if if rMan.PageCount > 1 Then%> <%end if%>
aucune actualité disponible pour le moment.
<%if ""&rMan("dat_fin_aff_man") = "" OR ""&rMan("dat_fin_aff_man") = ""&rMan("dat_deb_aff_man") Then Response.Write("Le "&rMan("dat_deb_aff_man")) else Response.Write("du "&rMan("dat_deb_aff_man")&" au "&rMan("dat_fin_aff_man")) end if%>
<%=""&rMan("lib_man_txt")%>
<%if ""&rMan("acc_man_txt")<>"" Then Response.Write("
"&rMan("acc_man_txt")) end if if ""&rMan("desc_man_txt")<>"" Then Response.Write("
"&Replace(rMan("desc_man_txt"),chr(10),"
")) end if if ""&rMan("web_man")<>"" Then Response.Write("
en savoir + : "&rMan("web_man")&"") end if if ""&rMan("tgmt_man")<>"" Then Response.Write("
téléchargement : "&rMan("tgmt_man")&"") end if %> 		<%rFo.Filter = "id_man="&rMan("id_man") if not rFo.EOF Then Response.Write("") end if%>
<%rCt.Filter = "id_man="&rMan("id_man") if not rCt.EOF Then Response.Write("Contact :
") if ""&rCt("org_ct") <> "" Then Response.Write("
"&rCt("org_ct")) end if if ""&rCt("tit_ct")&rCt("pre_ct")&rCt("nom_ct") <> "" Then Response.Write("
"&rCt("tit_ct")&" "&rCt("pre_ct")&" "&rCt("nom_ct")) end if if ""&rCt("fct_ct") <> "" Then Response.Write("
"&rCt("fct_ct")) end if if ""&rCt("adr1_ct")&rCt("adr2_ct") <> "" Then Response.Write("
"&rCt("adr1_ct")&" "&rCt("adr2_ct")) end if if ""&rCt("cp_ct")&rCt("vil_ct") <> "" Then Response.Write("
"&rCt("cp_ct")&" "&rCt("vil_ct")) end if if ""&rCt("bp_ct") <> "" Then Response.Write("
"&rCt("bp_ct")) end if if ""&rCt("pays_ct") <> "" Then Response.Write("
"&rCt("pays_ct")) end if if ""&rCt("tel1_ct") <> "" Then Response.Write("
Tél . "&rCt("tel1_ct")) end if if ""&rCt("tel2_ct") <> "" Then Response.Write("
"&rCt("tel2_ct")) end if if ""&rCt("fax_ct") <> "" Then Response.Write("
Fax : "&rCt("fax_ct")) end if if ""&rCt("mail_ct") <> "" Then Response.Write("
"&rCt("mail_ct")) end if if ""&rCt("web_ct")<>"" Then Response.Write("
"&rCt("web_ct")&"") end if end if%>
<%if Session("page") > 1 Then%>page précédente <%end if%> <%if Session("page") < rMan.PageCount Then%>page suivante <%end if%>