%@ language="VBScript" codepage="1255"%> <% '########################################################### '## 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 %>
|
||||||||
| ||||||||
<%
' 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