File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/onderhoud/grafiek.asp
<%
Option Explicit
%>
<!-- #INCLUDE VIRTUAL="/includes/inc_default.asp" -->
<!-- #INCLUDE VIRTUAL="/includes/inc_auth.asp" -->
<!-- #include VIRTUAL="/includes/chartfx/CfxIE.inc" -->
<%
Const c_datStartSite = #9/6/2003#
Dim blnError, intPageId, strGraphDesc, intNoColumns, strSQL, Rs, intRecordCount, blnEOF, intWeek, blnFramePage, _
Ar(), blnStop, datLoop, intHits, blnSameWeek, intYearOrg, intMonthOrg, intDayOrg, intYear, intMonth, intDay, datCur, Chart, _
i, j, strPage, intMinValue, intMaxValue, strType, intClubId, strClub, blnShowViewAndClick
blnError = False
intPageId = FormToInt(Request.QueryString("page_id"))
If Not IsNull(intPageId) Then
strPage = PaginaNaam(intPageId)
Else
strPage = "www.duitsedog.tk"
End If
strGraphDesc = "Hits op """ & strPage & """"
If Not IsNull(intPageId) Then
strSQL = "SELECT * FROM rpt_statistieken WHERE pagn_id = " & IntToSQL(intPageId) & " ORDER BY JAAR, MAAND, DAG"
Else
strSQL = "SELECT * FROM rpt_statistieken ORDER BY JAAR, MAAND, DAG"
End If
intNoColumns = 1
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../../css/default.css">
<title><%=strGraphDesc%></title>
</head>
<body>
<%
Set Rs = GetRS(strSQL)
intRecordCount = Rs.RecordCount
If intRecordCount = 0 Then
Response.Write("No Data Available.")
Else
Set Chart = Server.CreateObject("ChartFX.WebServer")
i = 0
intHits = 0
intMaxValue = 0
intMinValue = Null
datLoop = c_datStartSite
While datLoop <= date
intYear = ISOYear(datLoop)
intWeek = ISOWeek(datLoop)
ReDim Preserve Ar(2+intNoColumns,i+1)
For j = 2 To 2+intNoColumns-1
Ar(j,i) = 0
Next
Ar(0,i) = intYear
Ar(1,i) = intWeek
If Rs.EOF Then
blnStop = True
Else
blnStop = intYear < ISOYear(DateSerial(Rs("jaar"),Rs("maand"),Rs("dag"))) Or (intYear = ISOYear(DateSerial(Rs("jaar"),Rs("maand"),Rs("dag"))) And intWeek < ISOWeek(DateSerial(Rs("jaar"),Rs("maand"),Rs("dag"))))
End If
While Not blnStop
If intNoColumns = 2 Then
If Rs("pagn_acti_id") = 1 Then
Ar(2,i) = Ar(2,i) + Rs("hits")
Else
Ar(3,i) = Ar(3,i) + Rs("hits")
End If
Else
Ar(2,i) = Ar(2,i) + Rs("hits")
End If
If Ar(2,i) > intMaxValue Then intMaxValue = Ar(2,i)
Rs.MoveNext
If Rs.EOF Then
blnStop = True
Else
blnStop = intYear < ISOYear(DateSerial(Rs("jaar"),Rs("maand"),Rs("dag"))) Or (intYear = ISOYear(DateSerial(Rs("jaar"),Rs("maand"),Rs("dag"))) And intWeek < ISOWeek(DateSerial(Rs("jaar"),Rs("maand"),Rs("dag"))))
End If
Wend
datLoop = datLoop + 7
If IsNull(intMinValue) Or Ar(2,i) < intMinValue Then intMinValue = Ar(2,i)
i = i + 1
Wend
Chart.Gallery = CURVE
Chart.BorderStyle = BORDER_FLAT
Chart.Title(CHART_TOPTIT) = strGraphDesc
Chart.Fonts(CHART_TOPFT) = 14
Chart.Chart3D = False
Chart.MarkerShape = MK_RECT
Chart.Border = False
Chart.MarkerSize = 4
Chart.Stacked = CHART_NOSTACKED
chart.RgbBk = RGB(200,200,200)
Chart.Volume = Int(100 - 100/(intNoColumns+1))
Chart.WallWidth = 2
Chart.View3DDepth = 70
'Chart.Axis(AXIS_Y).AutoScale = False
'Chart.Axis(AXIS_Y).ResetScale
Chart.Axis(AXIS_Y).Grid = True
Chart.Axis(AXIS_Y).Format = "#"
Chart.Axis(AXIS_Y).Title = "Hits"
Chart.Axis(AXIS_Y).TitleFontMask = 14
Chart.Axis(AXIS_Y).Min = 0 'Round(0.75 * intMinValue)
Chart.Axis(AXIS_Y).Max = Round(1.15 * intMaxValue)
'Chart.Axis(AXIS_Y).AdjustScale
Chart.Axis(AXIS_X).Title = "Jaar / Week"
Chart.Axis(AXIS_X).TitleFontMask = 14
Chart.Axis(AXIS_X).Style = Chart.Axis(AXIS_X).Style AND Not AS_2LEVELS
Chart.OpenDataEx COD_VALUES, i, UBound(Ar,2)
Chart.Color(0) = &H1000007&
Chart.CloseData COD_VALUES
Chart.OpenDataEX COD_VALUES, intNoColumns, i-1
If intNoColumns = 2 Then
Chart.Series(0).Legend = "Views"
Chart.Series(1).Legend = "Clicks"
Chart.SerLegBox = True
Else
Chart.SerLegBox = False
End If
Chart.Grid = CHART_HORZGRID
Chart.CloseData COD_VALUES
Chart.ImgQuality = 100
For i = 0 To UBound(Ar,2)-1
For j = 0 To intNoColumns-1
Chart.Series(j).YValue(i) = Ar(2+j,i)
Next
Next
For i = 0 To UBound(Ar,2)-1
Chart.Axis(AXIS_X).Label(i) = Ar(0,i) & "/" & Ar(1,i)
Chart.Axis(AXIS_X).LabelAngle = 90
Next
'Chart.RecalcScale
Response.Write(Chart.GetHtmlTag(750, 400 ,"auto"))
%>
</p>
<%
End If
Set Rs = Nothing
%>
</body>
</html>