VHstats

User cache %CSP.Page 1 code %Status 1 code %Boolean " Write !,"

" // Open instance of ResultSet for runtime mode of DISPLAY. Set queryHPM = ##class(%ResultSet).%New("DW.WWW.Log"_":"_"HitPMaand") Set queryHPM.RuntimeMode=2 Set %sc = queryHPM.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } // Open instance of ResultSet for runtime mode of DISPLAY. Set queryHPP = ##class(%ResultSet).%New("DW.WWW.Log"_":"_"HitPProductgroep") Set queryHPP.RuntimeMode=2 Set %sc = queryHPP.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } // Open instance of ResultSet for runtime mode of DISPLAY. Set queryHPT = ##class(%ResultSet).%New("DW.WWW.Log"_":"_"HitPTaal") Set queryHPT.RuntimeMode=2 Set %sc = queryHPT.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write " " // Open instance of ResultSet for runtime mode of DISPLAY. Set queryHPD = ##class(%ResultSet).%New("DW.WWW.Log"_":"_"HitPDomein") Set queryHPD.RuntimeMode=2 Set %sc = queryHPD.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write "

",! Write "",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write "" Write !,!," ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " "_$c(9)_"",! Write " ",! Write " ",! Write !,"" Write !,! If '(site="Van Hoecke") Goto %csp00009 ;{ Write ! ///Set QryHPP=queryHPP.Next() Write !,"" Write ! %csp00011 If '(queryHPP.Next()) Goto %csp00010 ;{ Write " ",! Write "" Write !,"",! Write " ",! Write " ",! Write " ",! Write "",! Write " ",! Write "" Write ! %csp00009 ;} Write !," ",! Write "" Write $c(9)_" ",! Write !," ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write !,"" Write $c(9),! Write $c(9),! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write "

" Write "

" Write "" Write "" Write "" Write "Statistieken "_(site)_" Website" Write "" Write "" Write "" Write "

" Write "

" Write "" Write "" Write "

",! Write $c(9),! Write "" Write $c(9),! Write !," ",! Write " ",! Write " ",! Write " ",! Write "

" Write "" Write "Hits per maand " Write "" Write "

",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write $c(9,9) %csp00002 If '(queryHPM.Next()) Goto %csp00001 ;{ Write !,$c(9,9) Set Totaal=$G(Totaal)+queryHPM.Get("Hits") Set HitPSession=$J(queryHPM.Get("Hits")/queryHPM.Get("Sessies"),0,2) Set TotaalSession=$G(TotaalSession)+queryHPM.Get("Sessies") Write !," ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write $c(9,9),! Write $c(9,9) Goto %csp00002 %csp00001 ;} Write !," ",! Write " ",! Write " ",! Write $c(9,9)_" " Set TotaalHitPSession=$J($G(Totaal)/$G(TotaalSession),0,2) Write !," ",! Write " ",! Write " ",! Write "

" Write "" Write "Maand" Write "" Write "	" Write " " Write "" Write "Hits" Write "" Write " " Write "	" Write " " Write "" Write "Sessie" Write "" Write " " Write "	" Write " " Write "" Write "Hit/Sessie" Write "" Write " " Write "
" Write "" Write (queryHPM.Get("Maand")),! Write " " Write "" Write "	" Write " " Write "" Write !," "_(queryHPM.Get("Hits")),! Write "" Write " " Write "	" Write " " Write "" Write (queryHPM.Get("Sessies")),! Write " " Write "" Write " " Write "	" Write " " Write "" Write (HitPSession) Write "" Write " " Write "
" Write "" Write "Eindtotaal" Write "" Write "	" Write " " Write "" Write !," "_(Totaal),! Write " " Write "" Write " " Write "	" Write " " Write "" Write (TotaalSession) Write "" Write " " Write "	" Write " " Write "" Write (TotaalHitPSession) Write "" Write " " Write "

" Write "" Write "" Write "

",! Write $c(9) Set Teller=1 d queryHPM.Execute() Write !,$c(9)_"",! Write $c(9,9) %csp00004 If '(queryHPM.Next()) Goto %csp00003 ;{ Write !,$c(9,9,9)_"",! Write $c(9,9,9) Set Teller=$I(Teller) Write !,$c(9,9) Goto %csp00004 %csp00003 ;} Write !,$c(9,9,9)_"",! Write $c(9,9,9)_"(sorry, Java is not enabled on your browser)",! Write $c(9)_"",! Write $c(9)_"

" Write "" Write "" Write "

",! Write $c(9,9)_"",! Write " ",! Write " ",! Write " ",! Write "

" Write "" Write "Hits per hoofdgroep " Write "" Write "

",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write $c(9,9) %csp00006 If '(queryHPH.Next()) Goto %csp00005 ;{ Write !,$c(9,9) Set TotaalHoofdGroep=$G(TotaalHoofdGroep)+queryHPH.Get("Aantal") Write !," ",! Write " ",! Write " ",! Write " ",! Write $c(9,9) Goto %csp00006 %csp00005 ;} Write !," ",! Write " ",! Write " ",! Write " ",! Write "

" Write " " Write "" Write "Hoofdgroepen" Write "" Write " " Write "	" Write " " Write "" Write "Hits" Write "" Write " " Write "
" Write "" Write !," "_(queryHPH.Get("Categorie")),! Write " " Write "" Write "	" Write " " Write !," "_(queryHPH.Get("Aantal")),! Write " " Write " " Write "
" Write "" Write "Eindtotaal" Write "" Write "	" Write " " Write (TotaalHoofdGroep) Write " " Write "

",! Write " " Write "" Write "" Write "

",! Write $c(9) Set Teller=1 d queryHPH.Execute(site) Write !,$c(9)_"",! Write $c(9,9) %csp00008 If '(queryHPH.Next()) Goto %csp00007 ;{ Write !,$c(9,9,9)_"",! Write $c(9,9,9) Set Teller=$I(Teller) Write !,$c(9,9) Goto %csp00008 %csp00007 ;} Write !,$c(9,9,9)_"",! Write $c(9,9,9)_"(sorry, Java is not enabled on your browser)",! Write $c(9)_" ",! Write "

" Write "" Write "" Write "

",! Write $c(9,9)_"",! Write " ",! Write " ",! Write " ",! Write "

" Write "" Write "Hits per productgroep (alleen PDF's)" Write "" Write "

",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Goto %csp00011 %csp00010 ;} Write !,!,"" Write !,$c(9,9) Set TotaalProductGroep=$G(TotaalProductGroep)+queryHPP.Get("Aantal") Write !," ",! Write " ",! Write " ",! Write " ",! Write $c(9,9) ///Set QryHPP=queryHPP.Next() Write !,!,$c(9),! Write " ",! Write " ",! Write " ",! Write " ",! Write "

" Write " " Write "" Write "Cataloog" Write "" Write " " Write "	" Write " " Write "" Write "Hits" Write "" Write " " Write "
" Write "" Write !," "_(queryHPP.Get("Cataloog")) Write "" Write "	" Write " " Write !," "_(queryHPP.Get("Aantal")),! Write " " Write " " Write "
" Write "" Write "Eindtotaal" Write "" Write "	" Write " " Write (TotaalProductGroep) Write " " Write "

",! Write " " Write "" Write "" Write "

",! Write $c(9),! Write $c(9) Set Teller=1 d queryHPP.Execute() Write !,$c(9)_"",! Write $c(9,9) %csp00013 If '(queryHPP.Next()) Goto %csp00012 ;{ Write !,$c(9,9,9)_"",! Write $c(9,9,9) Set Teller=$I(Teller) Write !,$c(9,9) Goto %csp00013 %csp00012 ;} Write !,$c(9,9,9)_"",! Write $c(9,9,9)_"(sorry, Java is not enabled on your browser)",! Write $c(9)_" ",! Write "

" Write "" Write "" Write "

",! Write $c(9)_" ",! Write " ",! Write " ",! Write " ",! Write "

" Write "" Write "Hits per taalkeuze" Write "" Write "

",! Write $c(9)_" ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " " %csp00015 If '(queryHPT.Next()) Goto %csp00014 ;{ Write !," " Set TotaalTaal=$G(TotaalTaal)+queryHPT.Get("Aggregate_2") Write !," ",! Write " ",! Write " ",! Write " ",! Write " " Goto %csp00015 %csp00014 ;} Write !," ",! Write " ",! Write " ",! Write " ",! Write "

" Write " " Write "" Write "Taal" Write "" Write " " Write "	" Write " " Write "" Write "Hits" Write "" Write " " Write "
" Write "" Write !," "_(queryHPT.Get("Taal")),! Write " " Write "" Write "	" Write " " Write !," "_(queryHPT.Get("Aggregate_2")),! Write " " Write "
" Write "" Write "Eindtotaal" Write "" Write "	" Write " " Write !," "_(TotaalTaal),! Write " " Write " " Write "

",! Write $c(9) Set Teller=1 d queryHPT.Execute() Write !,$c(9)_"",! Write $c(9,9) %csp00017 If '(queryHPT.Next()) Goto %csp00016 ;{ Write !,$c(9,9,9)_"",! Write $c(9,9,9) Set Teller=$I(Teller) Write !,$c(9,9) Goto %csp00017 %csp00016 ;} Write !,$c(9,9,9)_"",! Write $c(9,9,9)_"(sorry, Java is not enabled on your browser)",! Write $c(9)_""_$c(9)_"

",! Write $c(9)_" ",! Write " ",! Write " ",! Write " ",! Write "

" Write "" Write "Hits per land/domein " Write "" Write "

",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " " %csp00019 If '(queryHPD.Next()) Goto %csp00018 ;{ Write !," " Set TotaalDomein=$G(TotaalDomein)+queryHPD.Get("Hits") Set HitPSession=$J(queryHPD.Get("Hits")/queryHPD.Get("Sessies"),0,2) Set TotaalSessiesDomein=$G(TotaalSessiesDomein)+queryHPD.Get("Sessies") Write !," ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " " Goto %csp00019 %csp00018 ;} Write !," ",! Write " ",! Write " ",! Write " " Set TotaalHitPSessionDomein=$J($G(TotaalDomein)/$G(TotaalSessiesDomein),0,2) Write !," ",! Write " ",! Write " ",! Write "

" Write "" Write "Land/domein" Write "" Write "	" Write " " Write "" Write "Hits" Write "" Write " " Write "	" Write " " Write "" Write "Sessie" Write "" Write " " Write "	" Write " " Write "" Write "Hit/Sessie" Write "" Write " " Write "
" Write "" Write !," "_(queryHPD.Get("Domein")),! Write " " Write "" Write "	" Write " " Write "" Write !," "_(queryHPD.Get("Hits")),! Write " " Write "" Write " " Write "	" Write " " Write "" Write !," "_(queryHPD.Get("Sessies")),! Write " " Write "" Write " " Write "	" Write " " Write "" Write !," "_(HitPSession),! Write " " Write "" Write " " Write "
" Write "" Write "Eindtotaal" Write "" Write "	" Write " " Write "" Write !," "_(Totaal),! Write " " Write "" Write " " Write "	" Write " " Write "" Write !," "_(TotaalSessiesDomein),! Write " " Write "" Write " " Write "	" Write " " Write "" Write !," "_(TotaalHitPSessionDomein),! Write " " Write "" Write " " Write "

",! Write " " Write "" Write "" Write "

",! Write $c(9) Set Teller=1 d queryHPD.Execute() Write !,$c(9)_"",! Write $c(9,9) %csp00021 If '(queryHPD.Next()) Goto %csp00020 ;{ Write !,$c(9,9,9)_"",! Write $c(9,9,9) Set Teller=$I(Teller) Write !,$c(9,9) Goto %csp00021 %csp00020 ;} Write !,$c(9,9,9)_"",! Write $c(9,9,9)_"(sorry, Java is not enabled on your browser)",! Write $c(9)_"",! Write $c(9)_"

" Write "" Write "" Write "

",! Write !,"" ]]> 1 code %Boolean " Write ! Do ..OnPageHTML() ]]> 1 code %Boolean " Write !,"VHstats",! Write "" Write !,"" Write !,"" ]]> 1 code %Boolean " Write ! Set %session.AppTimeout = 905 Write ! Do ..OnPageHEAD() Write ! New site Set site=$Get(%request.Data("site",1)) New queryHPH ///Set queryHPH=##class(DW.WWW.Log).RunQuery(site) Set queryHPH=##class(%ResultSet).%New("DW.WWW.Log:GetStuff") Do queryHPH.Execute(site) ///If site="Van Hoecke" Do ///. New Query ///. Set Query="DW.WWW.Log:HitPProductgroep" ///. New queryHPP ///. Set queryHPP=##class(%ResultSet).%New(Query) ///. New Status ///. Set Status=queryHPP.Execute() Write ! Do ..OnPageBODY() Write !,"" ]]> 1 code %Boolean 1 code %Boolean iso-8859-1 text/html c:\cachesys\csp\httplog\statvh.csp /csp/httplog/statvh.csp 59554,55455