<% Option Explicit '########################################################### '## COPYRIGHT (C) 2002-2005, Brinkster Site Statistics Corp. '## '## For licensing details, lease read the license.txt file '## included with MetaTraffic or located at: '## http://www.metasun.com/products/metatraffic/license.asp '## '## All copyright notices regarding MetaTraffic '## must remain intact in the scripts and in the '## outputted HTML. All text and logos with '## references to Metasun or MetaTraffic must '## remain visible when the pages are viewed on '## the internet or intranet. '## '## For support, please visit http://www.metasun.com '## and use the support forum. '########################################################### %> <% Server.ScriptTimeout = 900 Dim strScriptName, datScriptStart, datScriptEnd, datExecutionTime Dim datStart : datStart = Request.Querystring("sd") Dim datEnd : datEnd = Request.Querystring("ed") Dim intReport : intReport = Request.Querystring("r") Dim intDetail : intDetail = Request.Querystring("d") Dim strExtra : strExtra = Request.Querystring("e") Dim intExtraType : intExtraType = Request.Querystring("et") Dim strExtra2 : strExtra2 = Request.Querystring("e2") Dim intExtraType2 : intExtraType2 = Request.Querystring("et2") Dim intItems : intItems = Request.Querystring("i") Dim intGroup : intGroup = Request.Querystring("g") ' SET REPORTING DEFAULTS If datStart = "" Then datStart = Request.Cookies("report")("start") If datStart = "" Then datStart = FormatDateTime(DateAdd("h", aryMTConfig(intMTTimeOffset), Now()), 2) End If Else Response.Cookies("report")("start") = datStart End If If datEnd = "" Then datEnd = Request.Cookies("report")("end") If datEnd = "" Then datEnd = FormatDateTime(DateAdd("h", aryMTConfig(intMTTimeOffset), Now()), 2) End If Else Response.Cookies("report")("end") = datEnd End If If intReport = "" Then intReport = 1 intGroup = 1 End If If intItems = "" Then intItems = Request.Cookies("report")("items") If intItems = "" Then intItems = 100 End If Else Response.Cookies("report")("items") = intItems End If If intExtraType = "" Then intExtraType = 0 End If Dim objReport : Set objReport = New MTReport With ObjReport .Database = aryMTDB .Config = aryMTConfig .Report = intReport .StartDate = datStart .EndDate = datEnd .Items = intItems .Detail = intDetail .Extra = strExtra .ExtraType = intExtraType .Extra2 = strExtra2 .ExtraType2 = intExtraType2 End With Call CreateDatabaseConnection(1) Dim blnAdmin : blnAdmin = Authenticate(False, aryMTDB(5)) %>

<% If blnAdmin = True Then %><% End If %>
<% Response.Write objReport.SiteName %> <% Response.Write objReport.Version %>
Report Period Custom Today Yesterday Last 7 Days Current Month Last Month Last Month (Rolling) Start: <% Call objReport.DisplayDateChooser(datStart, "start") %> End: <% Call objReport.DisplayDateChooser(datEnd, "end") %> Report Type <% Call objReport.DisplayReportList(intReport) %> Options Show  <% Call objReport.DisplayItemsChooser(intItems) %>	<% ' GENERATE REPORT AND CALCULATE EXECUTION TIME datScriptStart = Now() Call objReport.GenerateReport datScriptEnd = Now() datExecutionTime = DateDiff("s", datScriptStart, datScriptEnd) %>
	© Copyright 2007, Brinkster Site Statistics, powered by MetaTraffic

<% Set objReport = Nothing Call CloseDatabaseConnection() %>