<% '########################################################### '## COPYRIGHT (C) 2003, Metasun Software '## '## 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. '########################################################### %> <% Option Explicit %> <% Server.ScriptTimeout = 900 Dim strScriptName Dim objReport, strReport, strPresetDate, intReportItems, datStartDate, datEndDate Dim datScriptStart, datScriptEnd, datExecutionTime strScriptName = Request.Servervariables("SCRIPT_NAME") strReport = Request.Form("Report") strPresetDate = Request.Form("PresetDate") intReportItems = Request.Form("ReportItems") datStartDate = Request.Form("StartDate") datEndDate = Request.Form("EndDate") If Isdate(datStartDate) = False Then datStartDate = Date() End If If Isdate(datEndDate) = False Then datEndDate = Date() End If Set objReport = New clsMetaTraffic With ObjReport .CreateDatabaseConnection strDatabaseType, strDatabaseLocation, strDatabaseName, _ strDatabaseUsername, strDatabasePassword .DatabaseType = strDatabaseType .ReportType = strReport .ReportItems = intReportItems .StartDate = datStartDate .EndDate = datEndDate .SessionDuration = intSessionDuration .SiteAliases = strSiteAliases .analyzeData = intAnalyzeData .ShowGraph = blnShowGraph .Instance = strInstance .ExcludeRobots = blnExcludeRobots End With %> MetaTraffic Administration - Reports
MetaTraffic

<% Response.Write objReport.ShowVersionInfo() %>
[SETUP]

Report Date
<% Response.Write objReport.GeneratePresetDates(strPresetDate) %>
From:
To:
Reports
<% Response.Write objReport.GenerateReportChooser(strReport, intReportChooserSize) %>
Options
Show <% Response.Write objReport.GenerateItemsChooser(intReportItems) %>
 
<% ' GENERATE REPORT AND CALCULATE EXECUTION TIME datScriptStart = Now() Call objReport.GenerateReport datScriptEnd = Now() datExecutionTime = DateDiff("s", datScriptStart, datScriptEnd) %>
 

<% ' DISPLAY LOGIN INFORMATION AND REPORT GENERATION TIME If strUsername <> "" Then Response.Write "Logged in as: " & Request.Cookies("metatraffic")("username") & "" Response.Write " (Logout)
" End If Response.Write "Execution Time: " & datExecutionTime & " Seconds
" %>

Copyright ©2003, Metasun Software

<% ' CLEAN UP Call ObjReport.CloseDatabaseConnection Set objReport = Nothing %>