<%@ 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" '** CHECKING TO SEE IF LOGGED IN IF NOT TAKE YOU TO THE LOGIN PAGE If Request("rego") = "yes" Then Response.Cookies("firsttime") = "yes" 'nothing End If If Request("rego") = "" Then If Request.Cookies("login") = "" Then Response.Cookies("action") = "error" Response.Write("") Elseif Request.Cookies("login") = "2" Then Response.Redirect"default.asp" Elseif Request.Cookies("login") = "3" Then Response.Redirect"sendemail.asp" End If End If If Session("Start") = "" Then Response.Cookies("a") = "ended" Response.Redirect"login.asp?logoff=1" End If %> <% '** DIM VARIABLES Dim strscriptpath, strsiteurl, strscripturl '** COLLECTING SERVER VARIABLES strscriptpath = Request.ServerVariables("PATH_TRANSLATED") strscriptpath = Replace(strscriptpath, "\setup.asp", "") If Request.ServerVariables("HTTPS") = "off" Then strsiteurl = "http://" & Request.ServerVariables("HTTP_HOST") Else strsiteurl = "https://" & Request.ServerVariables("HTTP_HOST") End If strscripturl = strsiteurl & Request.ServerVariables("PATH_INFO") strscripturl = Replace(strscripturl, "/setup.asp", "") %> <%=Session("SiteName")%> - Setup
  MailerPro Administration   
  Home     List Options     Send Email     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  
<%If Request.Cookies("a") = "s" Then%>Setup as been Saved<%End If%><%Response.Cookies("a") = ""%>
"> ">
First Name ">
Last Name ">
User Name ">
Password ">
Admin Email ">
Reply to Email ">
Test Email ">
Site Name ">
Site Url
Script Url
Script Path
Records per Page
Re-direct Page ">
   
Mail Server Settings
Mail Component
Mail Server ">
Mail Server Port
   
Subscribe Notification <% If Session("SubscribeNotification") = 0 Then %> <%Else%> <%End If%>
Un-Subscribe Notification <% If Session("Un-SubscribeNotification") = 0 Then %> <%Else%> <%End If%>
Purge Unverified Emails more than or more day old.
Send Reminders to Unverified or more days old.
   
Date/Time Settings
Select Time Zone
Daylight Savings
   
MailerPro Version
Your Version <%=version%>
Latest Version [download]
  User [<%=Request.Cookies("user")%>] Powered by <%=version%>  
<% If err <> 0 Then Response.Write"" err.clear Response.End End If '** ASSURING THAT ALL DATABASE CONNECTIONS ARE CLOSED On Error Resume Next rs.close Set rs = nothing rsfun.Close Set rsfun = nothing conn.close Set conn = nothing on error goto 0 %>