<% 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 = 9000 Dim intSetting : intSetting = Request.Querystring("s") Dim strAboutClass If Request.Cookies("about") = "HIDE" Then strAboutClass = "Display: none;" End If Dim objConfig : Set objConfig = New MTConfig With objConfig .Database = aryMTDB .Setting = intSetting .Config = aryMTConfig End With Call CreateDatabaseConnection(1) Dim blnAdmin : blnAdmin = Authenticate(True, aryMTDB(5)) %> MetaTraffic
<% If blnAdmin = True Then %><% End If %>
<% Response.Write objConfig.SiteName %> <% Response.Write objConfig.Version %>
Options
General
Configuration
Users
Maintenance
<% ' GENERATE REPORT AND CALCULATE EXECUTION TIME Call objConfig.GenerateSettings(intSetting) %>
<% Response.Write ShowProductInfo() %>
© Copyright 2008, Metasun Software
 
<% Set objConfig = Nothing Call CloseDatabaseConnection() %>