<% Option Explicit '########################################################### '## 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. '########################################################### %> <% Server.ScriptTimeout = 1800 Dim objSetup, strAction strAction = Request.Form("action") Set objSetup = New clsMetaTraffic With ObjSetup .DatabaseType = strDatabaseType .DatabaseLocation = strDatabaseLocation .DatabaseName = strDatabaseName .DatabaseUsername = strDatabaseUsername .DatabasePassword = strDatabasePassword .Instance = strInstance .Action = strAction End With %> MetaTraffic Setup
MetaTraffic

<% Response.Write objSetup.ShowVersionInfo() %>
[REPORTS]

 
 
<% Call objSetup.GenerateSetup ' CLEANUP Set objSetup = Nothing %>
 
 

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

Copyright ©2003, Metasun Software