<%=Session("SiteName")%>

<%@ 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.Cookies("login") = "" Then Response.Cookies("action") = "error" Response.Write("") Response.End Elseif Request.Cookies("login") = "2" Then Response.Redirect"default.asp" Elseif Request.Cookies("login") = "3" Then Response.Redirect"sendemail.asp" End If If Session("Start") = "" Then Response.Cookies("a") = "ended" Response.Redirect"login.asp?logoff=1" End If %> <% If Request("action") = "delete" Then Dim rs, sql Set rs = conn.execute("Select * From " & tbl_prefix & "listnames") If err <> 0 Then Response.Write"" err.clear Response.End End If If Not rs.EOF Then Do While Not rs.EOF conn.execute("DROP TABLE " & tbl_prefix & rs("ID")) If err <> 0 Then Response.Write"" err.clear Response.End End If rs.MoveNext Loop rs.Close Set rs = nothing End If sql = "Update " & tbl_prefix & "set_up Set " sql = sql & "first_name = NULL," sql = sql & "last_name = NULL," sql = sql & "user_name = NULL," sql = sql & "pass_word = NULL," sql = sql & "admin_email = NULL," sql = sql & "reply_to_email = NULL," sql = sql & "test_email = NULL," sql = sql & "site_name = NULL," sql = sql & "site_url = NULL," sql = sql & "script_url = NULL," sql = sql & "script_path = NULL," sql = sql & "records = 50," sql = sql & "redirect = 'http://'," sql = sql & "mail_component = NULL," sql = sql & "mail_server = NULL," sql = sql & "mail_server_port = 25," sql = sql & "subscribe_notification = 0," sql = sql & "unsubscribe_notification = 0, " sql = sql & "purge_unverified = 5," sql = sql & "reminders = 2," sql = sql & "first_time_setup = 'YES'," sql = sql & "country = NULL," sql = sql & "time_zone = NULL," sql = sql & "adjust = NULL," sql = sql & "daylight_savings = 0," sql = sql & "licenseid = NULL" conn.execute sql, , adExecuteNoRecords If err <> 0 Then Response.Write"" err.clear Response.End End If conn.execute("Delete From " & tbl_prefix & "listnames") conn.execute("Delete From " & tbl_prefix & "tracking") conn.execute("Delete From " & tbl_prefix & "tracking_lists") conn.execute("Delete From " & tbl_prefix & "users") conn.execute("Delete From " & tbl_prefix & "save_details") conn.execute("Delete From " & tbl_prefix & "saved_messages") conn.execute("Delete From " & tbl_prefix & "temp_send") conn.execute("Delete From " & tbl_prefix & "banned") If err <> 0 Then Response.Write"" err.clear Response.End End If Response.Cookies("login") = "" Response.Redirect"login.asp" End If %> <%=Session("SiteName")%> - Home

MailerPro Administration

Home

List Options

','compact.asp');" CLASS="NavOff" ; nowrap> Online Help

Access Maintenance

Database Compact & Repair

You must have the correct permissions for the folder that the MailerPro Database resides in to be able to Compact & Repair it. The folder must have read/write permissions.
<%If Request.Cookies("compact") = "yes" Then%>

File Size of the MailerPro Database after Compact is <%=getfilesize()%>

<% Response.Cookies("compact") = "" Else %>

File Size of the MailerPro Database before Compact is <%=getfilesize()%>

<% End If %>

Delete all Default Table Records and List Tables

This will in effect mean that all entries in all default tables will be deleted and all list tables will be deleted meaning you will have to enter setup details and create new lists. Be WARNED that all subscribers records will be lost. You will be taken back to setup after deletion.

<% Function getfilesize() Dim fso, f, s, strdb strdb = AccessDatabasePath & "\" & AccessDatabaseName Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(strdb) If err <> 0 Then Response.Write"" err.clear Response.End End If s = "" & f.size /1024 & "kb" set f = nothing getfilesize = s End Function %>