<% Dim strRegion(20) strRegion(0) = "l'ensemble du Québec" strRegion(1) = "Bas-Saint-Laurent" strRegion(2) = "Saguenay" strRegion(3) = "Capitale-Nationale" strRegion(4) = "Mauricie" strRegion(5) = "Estrie" strRegion(6) = "Montréal" strRegion(7) = "Outaouais" strRegion(8) = "Abitibi" strRegion(9) = "Côte-Nord" strRegion(10) = "Nord-du-Québec" strRegion(11) = "Gaspésie" strRegion(12) = "Chaudière-Appalaches" strRegion(13) = "Laval" strRegion(14) = "Lanaudière" strRegion(15) = "Laurentides" strRegion(16) = "Montérégie" strRegion(17) = "Centre-du-Québec" CouleurTableau = "#D78300" CouleurFond = "#000000" CouleurFondTableau = "#FFFFFF" CouleurFondTableauPays = "#AAAAAA" CouleurRouge = "#FF222" CouleurVerte = "#008000" LectureSeul = 1 TotalTrouvee = 0 NombreJour = 1 NombreJourGeoCacher = 2 RecordUnJour = 3 RecordUneSemaine = 4 RecordUnMois = 5 RecordUnJourDate = 6 RecordUneSemaineDate = 7 RecordUnMoisDate = 8 RecordJourCacherMois = 9 RecordJourCacherMoisDate = 10 NombreDePAT = 11 NombreProprio = 0 PremiereAnnee = 9999 DerniereAnnee = 0 NombreDeProvince = 0 Dim StatistiquesDate(3000,20) Dim TableauParType(50,26) Dim TableauParTypeQuebec(20,26) Dim TableauParTypeQuebecTotal(20,26) Dim Provinces(55) Dim NomProvinces(55) Dim Proprietaires() CacheTypeProjectAge = asc("A") %>
<% Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFichier = objFSO.OpenTextFile(Server.MapPath("Variables.txt"), LectureSeul) Do Until objFichier.AtEndOfStream Ligne = objFichier.ReadLine Separation = instr(Ligne,"|") if Separation > 0 then TypeLigne = left(lcase(Ligne), Separation-1) Donnees = mid(Ligne,Separation+1) select case TypeLigne Case "parjourparannee" 'Fait rien Case "parregions" ArrDonnees = Split(Donnees, "|") NomPays = ArrDonnees(0) NomProvince = ArrDonnees(1) NomRegion = ArrDonnees(2) NombreTrouvee = ArrDonnees(3) NombreAtrouve = ArrDonnees(4) PourcentTrouve = int((NombreTrouvee / NombreAtrouve) * 1000)/10 if (NomProvince = "QC") then NombreTrouvee = NombreTrouvee & " sur " & NombreAtrouve & " (" & PourcentTrouve & "%)" end if select case NomProvince case "AB" NomProvince = "Alberta" case "QC" NomProvince = "Québec" case "BC" NomProvince = "Colombie-Britanique" case "MB" NomProvince = "Manitoba" case "NL" NomProvince = "Terre-Neuve" case "NS" NomProvince = "Nouvelle-Écosse" case "PE" NomProvince = "Île du Prince-Édouard" case "ON" NomProvince = "Ontario" case "SK" NomProvince = "Saskatchewan" case "AB" NomProvince = "Alberta" case "NB" NomProvince = "Nouveau Brunswick" end select TableauRegions = TableauRegions + "" + NomPays + "" + NomProvince + "" + NomRegion + "" + NombreTrouvee + "" rem if (NomProvince = "QC") and (NomRegion <> "") then rem for T = 1 to 25 rem TableauParTypeQuebec(cInt(NomRegion), t) = cInt(ArrDonnees(t+2)) rem TableauParTypeQuebec(0, t) = TableauParTypeQuebec(0, t) + cInt(ArrDonnees(t+2)) rem next rem end if Case "parregionspartypetotal" ArrDonnees = Split(Donnees, ",") NomPays = ArrDonnees(0) NomProvince = ArrDonnees(1) NomRegion = ArrDonnees(2) if (NomProvince = "QC") and (NomRegion <> "") then for T = 1 to 25 TableauParTypeQuebecTotal(cInt(NomRegion), t) = cInt(ArrDonnees(t+2)) TableauParTypeQuebecTotal(0, t) = TableauParTypeQuebecTotal(0, t) + cInt(ArrDonnees(t+2)) next end if Case lcase("ParRegionsParTypeQuebec") 'Fait rien Case "pardifficulteeparterrain" 'Fait rien Case "pat" 'Fait rien Case "trouveespargeocacheurs" NombreProprio = NombreProprio + 1 redim Preserve Proprietaires(NombreProprio) Proprietaires(NombreProprio) = Donnees 'Fait rien end select end if loop objFichier.Close %>
Statistiques par régions

width="600" align=center> <%=TableauRegions%>

 

Statistiques par propriétaires

width="100%"> <% for r=1 to NombreProprio Donnees = split(Proprietaires(r), chr(254)) NombreTrouvee = cInt(Donnees(1)) NombreATrouvee = cInt(Donnees(2)) Proprietaire = Donnees(0) if (NombreTrouvee <> NombreATrouvee) and (NombreTrouvee <> 0) then Pourcent1 = int((NombreTrouvee / NombreATrouvee) * 100) Pourcent2 = 100-Pourcent1 %> <% end if next %>

Trouvées - Propriétaires
(Inclus seulement les caches du Québec)

Nom Nombre trouvée / cachée % Trouvée - <%=NombreProprio%>
<%=Proprietaire%> <%=NombreTrouvee%> / <%=NombreATrouvee%>
<%=Pourcent1%>
> > width="396"> <% for r=1 to NombreProprio Donnees = split(Proprietaires(r), chr(254)) NombreTrouvee = cInt(Donnees(1)) NombreATrouvee = cInt(Donnees(2)) Proprietaire = Donnees(0) if (NombreTrouvee = NombreATrouvee) and (NombreTrouvee <> 0) then Pourcent1 = int((NombreTrouvee / NombreATrouvee) * 100) Pourcent2 = 100-Pourcent1 %> <% end if next %>

100% trouvées
(Inclus seulement les caches du Québec)

Nom  
Nombre
<%=Proprietaire%> <%=NombreTrouvee%>

width="800">
width="800">
 

Les statistiques concernant les régions administratives du Québec inclues l'ensemble des caches actives du Québec en plus des caches inactives trouvées. Mise à jour d'au moins une fois par semaine.

Les statistiques concernant les propriétaires de caches inclues les caches trouvées et les caches actives placées/cachées au Québec.  Puisque certaines caches peuvent être inactives, mais trouvées, il est donc possible de voir plus de caches trouvées que de caches totale pour un propriétaire.

Les positions indiqués ont été pris sur le site
http://www.cacherstats.com
par by Grand High Pobah