Set conn = Server.CreateObject("ADODB.Connection") conn.Open "1dec2010" requete = "SELECT * FROM manifestations WHERE validation = true;" Set rs = Server.CreateObject ("ADODB.Recordset") rs.Open requete, conn, 3, 3 total_manif = rs.RecordCount rs.close set rs = nothing requete_aquitaine = "SELECT * FROM manifestations WHERE validation = true AND (departements LIKE '%"& "24" &"%' OR departements LIKE '%"& "33" &"%' OR departements LIKE '%"& "40" &"%' OR departements LIKE '%"& "47" &"%' OR departements LIKE '%"& "64" &"%') ;" Set rs_aquitaine = Server.CreateObject ("ADODB.Recordset") rs_aquitaine.Open requete_aquitaine, conn, 3, 3 total_aquitaine = rs_aquitaine.RecordCount rs_aquitaine.close set rs_aquitaine = nothing requete_auvergne = "SELECT * FROM manifestations WHERE validation = true AND (departements LIKE '%"& "03" &"%' OR departements LIKE '%"& "15" &"%' OR departements LIKE '%"& "43" &"%' OR departements LIKE '%"& "63" &"%') ;" Set rs_auvergne = Server.CreateObject ("ADODB.Recordset") rs_auvergne.Open requete_auvergne, conn, 3, 3 total_auvergne = rs_auvergne.RecordCount rs_auvergne.close set rs_auvergne = nothing requete_guyane = "SELECT * FROM manifestations WHERE validation = true AND (departements LIKE '%"& "973" &"%');" Set rs_guyane = Server.CreateObject ("ADODB.Recordset") rs_guyane.Open requete_guyane, conn, 3, 3 total_guyane = rs_guyane.RecordCount rs_guyane.close set rs_guyane = nothing requete_iledefrance = "SELECT * FROM manifestations WHERE validation = true AND (departements LIKE '%"& "75" &"%' OR departements LIKE '%"& "77" &"%' OR departements LIKE '%"& "78" &"%' OR departements LIKE '%"& "91" &"%' OR departements LIKE '%"& "92" &"%' OR departements LIKE '%"& "93" &"%' OR departements LIKE '%"& "94" &"%' OR departements LIKE '%"& "95" &"%') AND (departements NOT LIKE '%"& "975" &"%' OR departements NOT LIKE '%"& "977" &"%' OR departements NOT LIKE '%"& "978" &"%');" Set rs_iledefrance = Server.CreateObject ("ADODB.Recordset") rs_iledefrance.Open requete_iledefrance, conn, 3, 3 total_iledefrance = rs_iledefrance.RecordCount rs_iledefrance.close set rs_iledefrance = nothing requete_nordpasdecalais = "SELECT * FROM manifestations WHERE validation = true AND (departements LIKE '%"& "59" &"%' OR departements LIKE '%"& "62" &"%') ;" Set rs_nordpasdecalais = Server.CreateObject ("ADODB.Recordset") rs_nordpasdecalais.Open requete_nordpasdecalais, conn, 3, 3 total_nordpasdecalais = rs_nordpasdecalais.RecordCount rs_nordpasdecalais.close set rs_nordpasdecalais = nothing requete_paca = "SELECT * FROM manifestations WHERE validation = true AND (departements LIKE '%"& "04" &"%' OR departements LIKE '%"& "05" &"%' OR departements LIKE '%"& "06" &"%' OR departements LIKE '%"& "13" &"%' OR departements LIKE '%"& "83" &"%' OR departements LIKE '%"& "84" &"%') ;" Set rs_paca = Server.CreateObject ("ADODB.Recordset") rs_paca.Open requete_paca, conn, 3, 3 total_paca = rs_paca.RecordCount rs_paca.close set rs_paca = nothing requete_paysdelaloire = "SELECT * FROM manifestations WHERE validation = true AND (departements LIKE '%"& "44" &"%' OR departements LIKE '%"& "49" &"%' OR departements LIKE '%"& "53" &"%' OR departements LIKE '%"& "72" &"%' OR departements LIKE '%"& "85" &"%') AND (departements NOT LIKE '%"& "972" &"%') ;" Set rs_paysdelaloire = Server.CreateObject ("ADODB.Recordset") rs_paysdelaloire.Open requete_paysdelaloire, conn, 3, 3 total_paysdelaloire = rs_paysdelaloire.RecordCount rs_paysdelaloire.close set rs_paysdelaloire = nothing requete_picardie = "SELECT * FROM manifestations WHERE validation = true AND (departements LIKE '%"& "02" &"%' OR departements LIKE '%"& "60" &"%' OR departements LIKE '%"& "80" &"%') ;" Set rs_picardie = Server.CreateObject ("ADODB.Recordset") rs_picardie.Open requete_picardie, conn, 3, 3 total_picardie = rs_picardie.RecordCount rs_picardie.close set rs_picardie = nothing requete_rhonealpes = "SELECT * FROM manifestations WHERE validation = true AND (departements LIKE '%"& "01" &"%' OR departements LIKE '%"& "07" &"%' OR departements LIKE '%"& "26" &"%' OR departements LIKE '%"& "38" &"%' OR departements LIKE '%"& "42" &"%' OR departements LIKE '%"& "69" &"%' OR departements LIKE '%"& "73" &"%' OR departements LIKE '%"& "74" &"%') AND (departements NOT LIKE '%"& "973" &"%' OR departements NOT LIKE '%"& "974" &"%');" Set rs_rhonealpes = Server.CreateObject ("ADODB.Recordset") rs_rhonealpes.Open requete_rhonealpes, conn, 3, 3 total_rhonealpes = rs_rhonealpes.RecordCount rs_rhonealpes.close set rs_rhonealpes = nothing requete_autres_regions = "SELECT * FROM manifestations WHERE validation = true AND (departements LIKE '%"& "67" &"%' OR departements LIKE '%"& "68" &"%' OR departements LIKE '%"& "14" &"%' OR departements LIKE '%"& "50" &"%' OR departements LIKE '%"& "61" &"%' OR departements LIKE '%"& "21" &"%' OR departements LIKE '%"& "58" &"%' OR departements LIKE '%"& "71" &"%' OR departements LIKE '%"& "89" &"%' OR departements LIKE '%"& "22" &"%' OR departements LIKE '%"& "29" &"%' OR departements LIKE '%"& "35" &"%' OR departements LIKE '%"& "56" &"%' OR departements LIKE '%"& "18" &"%' OR departements LIKE '%"& "28" &"%' OR departements LIKE '%"& "36" &"%' OR departements LIKE '%"& "37" &"%' OR departements LIKE '%"& "41" &"%' OR departements LIKE '%"& "45" &"%' OR departements LIKE '%"& "08" &"%' OR departements LIKE '%"& "10" &"%' OR departements LIKE '%"& "51" &"%' OR departements LIKE '%"& "52" &"%' OR departements LIKE '%"& "2A" &"%' OR departements LIKE '%"& "2B" &"%' OR departements LIKE '%"& "25" &"%' OR departements LIKE '%"& "39" &"%' OR departements LIKE '%"& "70" &"%' OR departements LIKE '%"& "90" &"%' OR departements LIKE '%"& "27" &"%' OR departements LIKE '%"& "76" &"%' OR departements LIKE '%"& "09" &"%' OR departements LIKE '%"& "12" &"%' OR departements LIKE '%"& "31" &"%' OR departements LIKE '%"& "32" &"%' OR departements LIKE '%"& "46" &"%' OR departements LIKE '%"& "65" &"%' OR departements LIKE '%"& "81" &"%' OR departements LIKE '%"& "82" &"%' OR departements LIKE '%"& "11" &"%' OR departements LIKE '%"& "30" &"%' OR departements LIKE '%"& "34" &"%' OR departements LIKE '%"& "48" &"%' OR departements LIKE '%"& "66" &"%' OR departements LIKE '%"& "19" &"%' OR departements LIKE '%"& "23" &"%' OR departements LIKE '%"& "87" &"%' OR departements LIKE '%"& "54" &"%' OR departements LIKE '%"& "55" &"%' OR departements LIKE '%"& "57" &"%' OR departements LIKE '%"& "88" &"%' OR departements LIKE '%"& "16" &"%' OR departements LIKE '%"& "17" &"%' OR departements LIKE '%"& "79" &"%' OR departements LIKE '%"& "86" &"%' OR departements LIKE '%"& "977" &"%' OR departements LIKE '%"& "978" &"%') ;" Set rs_autres_regions = Server.CreateObject ("ADODB.Recordset") rs_autres_regions.Open requete_autres_regions, conn, 3, 3 total_autres_regions = rs_autres_regions.RecordCount rs_autres_regions.close set rs_autres_regions = nothing requete_national = "SELECT * FROM manifestations WHERE validation = true AND (departements LIKE '%"& "action nationale" &"%') ;" Set rs_national = Server.CreateObject ("ADODB.Recordset") rs_national.Open requete_national, conn, 3, 3 total_national = rs_national.RecordCount rs_national.close set rs_national = nothing requete_dom = "SELECT * FROM manifestations WHERE validation = true AND (departements LIKE '%"& "971" &"%' OR departements LIKE '%"& "972" &"%' OR departements LIKE '%"& "973" &"%' OR departements LIKE '%"& "974" &"%' OR departements LIKE '%"& "975" &"%' OR departements LIKE '%"& "976" &"%' ) ;" Set rs_dom = Server.CreateObject ("ADODB.Recordset") rs_dom.Open requete_dom, conn, 3, 3 total_dom = rs_dom.RecordCount rs_dom.close set rs_dom = nothing conn.close set conn = nothing %>



1er décembre 2010:
journée mondiale de lutte contre le sida
consacrée au thème:
"Arrêter le sida. Tenir la promesse."
L'accès pour tous à la prévention, au traitement, aux soins et aux services de soutien est un droit humain impératif.


manifestations en France

Comme chaque année, les Crips recensent les différentes actions et manifestations menées dans leur région à l'occasion de la journée mondiale de lutte contre le sida.
<% if total_nordpasdecalais > 0 then %><% end if %> <% if total_picardie > 0 then %><% end if %> <% if total_iledefrance > 0 then %><% end if %> <% if total_paysdelaloire > 0 then %><% end if %> <% if total_auvergne > 0 then %><% end if %> <% if total_rhonealpes > 0 then %><% end if %> <% if total_aquitaine > 0 then %><% end if %> <% if total_paca > 0 then %><% end if %> <% if total_guyane > 0 then %><% end if %>


actuellement,
<% response.write total_manif %> manifestations sont recensées:
<% response.write total_aquitaine %> en Aquitaine
<% response.write total_auvergne %> en Auvergne
<% response.write total_guyane %> en Guyane
<% response.write total_iledefrance %> en Ile-de-France
<% response.write total_nordpasdecalais %> dans le Nord - Pas-de-Calais
<% response.write total_paysdelaloire %> dans les Pays de la Loire
<% response.write total_picardie %> en Picardie
<% response.write total_paca %> en Provence-Alpes-Côte d'Azur
<% response.write total_rhonealpes %> en Rhône-Alpes

<% response.write total_dom %> dans les DOMs

<% response.write total_national %> manifestations nationales

<% response.write total_autres_regions %> dans les autres régions françaises



Vous pouvez continuer à nous signaler des actions en remplissant le formulaire en ligne.


retour au réseau des Crips