<% '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** 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 '** DO NOT CHANGE ANYTHING HERE '** DELETING ALL LIST TABLE IF ANY '------------------------------------------------------------------------------------------------------------------------------ Dim rs 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 '** WRITING SETUP TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "IF EXISTS(SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = '" & tbl_prefix & "set_up') " sql = sql & "DROP TABLE " & tbl_prefix & "set_up" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE [dbo].[" & tbl_prefix & "set_up] (" sql = sql & "[ID] [numeric] IDENTITY (1, 1) PRIMARY KEY CLUSTERED NOT NULL ," sql = sql & "[first_name] [nvarchar] (60) NULL ," sql = sql & "[last_name] [nvarchar] (60) NULL ," sql = sql & "[user_name] [nvarchar] (60) NULL ," sql = sql & "[pass_word] [nvarchar] (60) NULL ," sql = sql & "[admin_email] [nvarchar] (100) NULL ," sql = sql & "[reply_to_email] [nvarchar] (100) NULL ," sql = sql & "[test_email] [nvarchar] (100) NULL ," sql = sql & "[site_name] [nvarchar] (100) NULL ," sql = sql & "[site_url] [nvarchar] (100) NULL ," sql = sql & "[script_url] [nvarchar] (100) NULL ," sql = sql & "[script_path] [nvarchar] (100) NULL ," sql = sql & "[records] [int] Default 50," sql = sql & "[redirect] [nvarchar] (255) Default 'http://' ," sql = sql & "[mail_component] [nvarchar] (100) NULL ," sql = sql & "[mail_server] [nvarchar] (100) NULL ," sql = sql & "[mail_server_port] [tinyint] Default 25," sql = sql & "[subscribe_notification] [bit] Default 0," sql = sql & "[unsubscribe_notification] [bit] Default 0," sql = sql & "[purge_unverified] [int] Default 0," sql = sql & "[reminders] [int] Default 0," sql = sql & "[first_time_setup] [nvarchar] (6) Default 'YES'," sql = sql & "[country] [nvarchar] (100) NULL ," sql = sql & "[time_zone] [nvarchar] (100) NULL ," sql = sql & "[adjust] [nvarchar] (20) NULL ," sql = sql & "[daylight_savings] [tinyint] Default 0," sql = sql & "[licenseid] [nvarchar] (12) NULL )" conn.Execute(sql) 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING DEFAULTS TO SETUP TABLE '------------------------------------------------------------------------------------------------------------------------------ sql = "IF EXISTS(SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = '" & tbl_prefix & "set_up') " sql = sql & "Select * From " & tbl_prefix & "set_up Where first_time_setup = 'YES'" Set rs = conn.execute(sql) If rs.EOF Then sql = "Insert Into " & tbl_prefix & "set_up " sql = sql & "(mail_server_port,first_time_setup) " sql = sql & "Values(" sql = sql & "25," sql = sql & "'YES')" conn.Execute(sql) 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If End If rs.Close Set rs = nothing '** WRITING USERS TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "IF EXISTS(SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = '" & tbl_prefix & "users') " sql = sql & "DROP TABLE " & tbl_prefix & "users" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE [dbo].[" & tbl_prefix & "users] (" sql = sql & "[ID] [numeric] IDENTITY (1, 1) PRIMARY KEY CLUSTERED NOT NULL ," sql = sql & "[name] [nvarchar] (120) NULL ," sql = sql & "[username] [nvarchar] (60) NULL ," sql = sql & "[pass_word] [nvarchar] (60) NULL ," sql = sql & "[securitylevel] [tinyint] Default 0," sql = sql & "[main] [tinyint] Default 0," sql = sql & "[lastaccessed] [datetime])" conn.Execute(sql) 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING BANNED TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "IF EXISTS(SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = '" & tbl_prefix & "banned') " sql = sql & "DROP TABLE " & tbl_prefix & "banned" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE [dbo].[" & tbl_prefix & "banned] (" sql = sql & "[ID] [numeric] IDENTITY (1, 1) PRIMARY KEY CLUSTERED NOT NULL ," sql = sql & "[listID] [varchar] (10) NULL ," sql = sql & "[banned] [nvarchar] (100) NULL ," sql = sql & "[type] [tinyint])" conn.Execute(sql) 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING LISTNAMES TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "IF EXISTS(SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = '" & tbl_prefix & "listnames') " sql = sql & "DROP TABLE " & tbl_prefix & "listnames" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE [dbo].[" & tbl_prefix & "listnames] (" sql = sql & "[ID] [numeric] IDENTITY (1, 1) PRIMARY KEY CLUSTERED NOT NULL ," sql = sql & "[list_name] [nvarchar] (255)," sql = sql & "[email] [nvarchar] (255)," sql = sql & "[description] [nvarchar] (255)," sql = sql & "[field_1] [nvarchar] (255) NULL ," sql = sql & "[type_1] [tinyint] Default 1," sql = sql & "[field_2] [nvarchar] (255) NULL ," sql = sql & "[type_2] [tinyint] Default 1," sql = sql & "[field_3] [nvarchar] (255) NULL ," sql = sql & "[type_3] [tinyint] Default 1," sql = sql & "[field_4] [nvarchar] (255) NULL ," sql = sql & "[type_4] [tinyint] Default 1," sql = sql & "[field_5] [nvarchar] (255) NULL ," sql = sql & "[type_5] [tinyint] Default 1," sql = sql & "[field_6] [nvarchar] (255) NULL ," sql = sql & "[type_6] [tinyint] Default 1," sql = sql & "[field_7] [nvarchar] (255) NULL ," sql = sql & "[type_7] [tinyint] Default 1," sql = sql & "[field_8] [nvarchar] (255) NULL ," sql = sql & "[type_8] [tinyint] Default 1," sql = sql & "[field_9] [nvarchar] (255) NULL ," sql = sql & "[type_9] [tinyint] Default 1," sql = sql & "[field_10] [nvarchar] (255) NULL ," sql = sql & "[type_10] [tinyint] Default 1," sql = sql & "[field_count] [tinyint] Default 1 )" conn.Execute(sql) 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING SAVED MESSAGES TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "IF EXISTS(SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = '" & tbl_prefix & "saved_messages') " sql = sql & "DROP TABLE " & tbl_prefix & "saved_messages" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE [dbo].[" & tbl_prefix & "saved_messages] (" sql = sql & "[ID] [numeric] IDENTITY (1, 1) PRIMARY KEY CLUSTERED NOT NULL ," sql = sql & "[save_name] [nvarchar] (100) NULL ," sql = sql & "[format] [nvarchar] (4) NULL ," sql = sql & "[subject] [nvarchar] (255) NULL ," sql = sql & "[message] [text] )" conn.Execute(sql) 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING SAVED DETAILS TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "IF EXISTS(SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = '" & tbl_prefix & "save_details') " sql = sql & "DROP TABLE " & tbl_prefix & "save_details" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE [dbo].[" & tbl_prefix & "save_details] (" sql = sql & "[listname] [nvarchar] (255) NULL ," sql = sql & "[format] [nvarchar] (4) NULL ," sql = sql & "[subject] [nvarchar] (255) NULL," sql = sql & "[attachment] [nvarchar] (255) NULL ," sql = sql & "[message] [text]," sql = sql & "[tracking_name] [nvarchar] (255) NULL ," sql = sql & "[track] [tinyint])" conn.Execute(sql) 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING TEMP SEND TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "IF EXISTS(SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = '" & tbl_prefix & "temp_send') " sql = sql & "DROP TABLE " & tbl_prefix & "temp_send" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE [dbo].[" & tbl_prefix & "temp_send] (" sql = sql & "[email] [varchar] (255) NULL ," sql = sql & "[field_1] [nvarchar] (255) NULL ," sql = sql & "[field_2] [nvarchar] (255) NULL ," sql = sql & "[field_3] [nvarchar] (255) NULL ," sql = sql & "[field_4] [nvarchar] (255) NULL ," sql = sql & "[field_5] [nvarchar] (255) NULL ," sql = sql & "[field_6] [nvarchar] (255) NULL ," sql = sql & "[field_7] [nvarchar] (255) NULL ," sql = sql & "[field_8] [nvarchar] (255) NULL ," sql = sql & "[field_9] [nvarchar] (255) NULL ," sql = sql & "[field_10] [nvarchar] (255) NULL ," sql = sql & "[edate] [varchar] (30) NULL ," sql = sql & "[fromip] [varchar] (16) NULL)" conn.Execute(sql) 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING TEMP SEND TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "IF EXISTS(SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = '" & tbl_prefix & "tracking') " sql = sql & "DROP TABLE " & tbl_prefix & "tracking" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE [dbo].[" & tbl_prefix & "tracking] (" sql = sql & "[ID] [numeric] IDENTITY (1, 1) PRIMARY KEY CLUSTERED NOT NULL ," sql = sql & "[listID] [int] ," sql = sql & "[email] [nvarchar] (255) NULL ," sql = sql & "[opened] [nvarchar] (30) NULL ," sql = sql & "[tracking_name] [nvarchar] (255) NULL )" conn.Execute(sql) 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING TRACKING LISTS TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "IF EXISTS(SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = '" & tbl_prefix & "tracking_lists') " sql = sql & "DROP TABLE " & tbl_prefix & "tracking_lists" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE [dbo].[" & tbl_prefix & "tracking_lists] (" sql = sql & "[ID] [numeric] IDENTITY (1, 1) PRIMARY KEY CLUSTERED NOT NULL ," sql = sql & "[listID] [int] ," sql = sql & "[sent_date] [nvarchar] (30) NULL ," sql = sql & "[tracking_name] [nvarchar] (255) NULL ," sql = sql & "[emails_sent] [int] )" conn.Execute(sql) 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING CLEAR LOG PROCEDURE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "IF EXISTS(SELECT name FROM sysobjects WHERE name = '" & sp_prefix & "clearlog') " sql = sql & "DROP PROCEDURE " & sp_prefix & "clearlog " conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE PROCEDURE " & sp_prefix & "clearlog " sql = sql & " AS " sql = sql & "DECLARE @dbid int DECLARE @dbname nvarchar(128) " sql = sql & "SET @dbid = DB_ID()" sql = sql & "Set @dbname = DB_NAME(@dbid) " sql = sql & "BACKUP LOG @dbname WITH NO_LOG " sql = sql & "DBCC SHRINKDATABASE (@dbname)" conn.execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If %>