<% '########################################################### '## 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 %> <% Dim strLoginUsername, strLoginPassword, blnRemember Dim strChecked, strError, strAction, strReportPage strLoginUsername = Request.Form("username") strLoginPassword = Request.Form("password") blnRemember = Request.Form("remember") strAction = Request("action") strReportPage = "default.asp" If blnRemember = "ON" Then blnRemember = True strChecked = " checked" Else blnRemember = False End If Select Case strAction Case "Login" If strLoginUsername <> "" Then If StrComp(strLoginUsername, strUsername, 1) = 0 And strLoginPassword = strPassword Then ' WRITE COOKIE If blnRemember = True Then Response.Cookies("metatraffic").expires = dateadd("d", 365, date()) End If Response.Cookies("metatraffic")("username") = strLoginUsername Response.Cookies("metatraffic")("password") = strLoginPassword ' REDIRECT Response.Redirect strReportPage Else strError = "

Invalid username or password

" End If Else ' RETRIEVE USERNAME / PASSWORD FROM COOKIES strLoginUsername = Request.Cookies("metatraffic")("username") strLoginPassword = Request.Cookies("metatraffic")("password") End If Case "Logout" Response.Cookies("metatraffic").expires = Now() Case Else ' RETRIEVE USERNAME / PASSWORD FROM COOKIES strLoginUsername = Request.Cookies("metatraffic")("username") strLoginPassword = Request.Cookies("metatraffic")("password") End Select %> MetaTraffic Administration - Login
<% ' DISPLAY LOGIN FORM IF USERNAME IS NOT EMPTY If strUsername <> "" Then %> <% If strError <> "" Then %> <% End If %> <% ' DISPLAY LINK TO REPORT GENERATOR IF USERNAME IS EMPTY Else Response.Write "" End If %>
MetaTraffic Login
<% = strError %>
Username:
Password:
> Remember login information


Authentication has been disabled.

" Response.Write "

Proceed to MetaTraffic


Copyright ©2003, Metasun Software