<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %> <%Option Explicit%> <%Response.Buffer = True%> <% '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** '** PREVENT PAGE FROM BEING CACHED Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" '** CHECK LOGIN If Request.Cookies("firsttime") = "yes" Then Response.Cookies("firsttime") = "" 'nothing Elseif Request.Cookies("login") = "" Then Response.Cookies("action") = "error" Response.Write("") Elseif Request.Cookies("login") = "2" Then Response.Redirect"default.asp" Elseif Request.Cookies = "3" Then Response.Redirect"sendemail.asp" End If If Session("Start") = "" Then Response.Cookies("a") = "ended" Response.Redirect"login.asp?logoff=1" End If %> <% '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** Dim strascriptpath Dim strasiteurl Dim strascripturl Dim strafromip '** COLLECT SERVER VARIABLES strascriptpath = Request.ServerVariables("PATH_TRANSLATED") strascriptpath = Replace(strascriptpath, "\registration.asp", "") If Request.ServerVariables("HTTPS") = "off" Then strasiteurl = "http://" & Request.ServerVariables("HTTP_HOST") Else strasiteurl = "https://" & Request.ServerVariables("HTTP_HOST") End If strascripturl = strasiteurl & Request.ServerVariables("PATH_INFO") strascripturl = Replace(strascripturl, "/registration.asp", "") strafromip = Request.ServerVariables("REMOTE_ADDR") %> <%=Session("SiteName")%> - Registration
  MailerPro Administration   
  Home     List Options     Send Email Options     Setup Options     Tracking Options   >  Support     Online Help      Log Off  
<%If DataBaseType = "access" Then%> <%Elseif DataBaseType = "mssql" Then%> <%Elseif DataBaseType = "mysql" Then%> <%End If%>
  Registration     MailerPro Setup    Access Maintenance    MSSQL Maintenance    MYSQL Maintenance    Users  
<%Response.Write"
"%> <%Response.Write""%> <%Response.Write""%> <%Response.Write""%> <%Response.Write""%>
License ID ">  

  User [<%=Request.Cookies("user")%>] Powered by <%=version%>