<% Option Explicit '########################################################### '## COPYRIGHT (C) 2002-2008, Metasun Software 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, strAboutClass Dim datStart : datStart = Request.Querystring("sd") Dim datEnd : datEnd = Request.Querystring("ed") Dim intReport : intReport = Request.Querystring("r") 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 Request.Cookies("about") = "HIDE" Then strAboutClass = "Display: none;" End If Dim objReport : Set objReport = New MTReport With ObjReport .Database = aryMTDB .Config = aryMTConfig .Report = intReport .StartDate = datStart .EndDate = datEnd .Items = intItems End With Call CreateDatabaseConnection(1) Dim blnAdmin : blnAdmin = Authenticate(False, aryMTDB(5)) %> MetaTraffic
<% Response.Write objReport.SiteName %> <% Response.Write objReport.Version %>
Report Period
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) %>
<% Response.Write ShowProductInfo() %>
© Copyright 2008, Metasun Software
 
<% Set objReport = Nothing Call CloseDatabaseConnection() %>