<% Option Explicit %>
<%Response.AddHeader "pragma", "no-cache"
Response.Expires = -1000%>
<%
Server.ScriptTimeout = 900
Dim strScriptName
Dim objReport, strReport, strPresetDate, intReportItems, datStartDate, datEndDate
Dim datScriptStart, datScriptEnd, datExecutionTime
strScriptName = Request.Servervariables("SCRIPT_NAME")
strReport = Request.querystring("Report")
strPresetDate = Request.querystring("PresetDate")
intReportItems = Request.querystring("ReportItems")
datStartDate = Request.querystring("StartDate")
datEndDate = Request.querystring("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 - Reporte
|
Copyright © 2005
OurTamil.Com |
