% 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 %>
|
||
| ||
<% 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