<% '*********************************************************** '** 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 = "DROP TABLE IF EXISTS " & tbl_prefix & "set_up" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "set_up ( " sql = sql & "ID INT (11) DEFAULT '' NOT NULL auto_increment," sql = sql & "first_name VARCHAR (60) DEFAULT '' NULL," sql = sql & "last_name VARCHAR (60) DEFAULT '' NULL," sql = sql & "user_name VARCHAR (60) DEFAULT '' NULL," sql = sql & "pass_word VARCHAR (60) DEFAULT '' NULL," sql = sql & "admin_email VARCHAR (255) DEFAULT '' NULL," sql = sql & "reply_to_email VARCHAR (255) DEFAULT '' NULL," sql = sql & "test_email VARCHAR (255) DEFAULT '' NULL," sql = sql & "site_name VARCHAR (100) DEFAULT '' NULL," sql = sql & "site_url VARCHAR (255) DEFAULT '' NULL," sql = sql & "script_url VARCHAR (255) DEFAULT '' NULL," sql = sql & "script_path VARCHAR (255) DEFAULT '' NULL," sql = sql & "records int Default 50," sql = sql & "redirect VARCHAR (100) DEFAULT 'http://' NULL," sql = sql & "mail_component VARCHAR (100) DEFAULT '' NULL," sql = sql & "mail_server VARCHAR (100) DEFAULT '' NULL," sql = sql & "mail_server_port tinyint Default 25," sql = sql & "subscribe_notification smallint Default 0," sql = sql & "unsubscribe_notification smallint Default 0," sql = sql & "purge_unverified int Default 0," sql = sql & "reminders int Default 0," sql = sql & "first_time_setup varchar (6) Default ''," sql = sql & "country varchar (100) NULL ," sql = sql & "time_zone varchar (100) NULL ," sql = sql & "adjust varchar (20) NULL ," sql = sql & "daylight_savings tinyint Default 0 ," sql = sql & "licenseid varchar (12) NULL ," sql = sql & "version varchar (5) NULL," sql = sql & "PRIMARY KEY (ID) )" conn.Execute(sql),,adCmdText + adExecuteNoRecords 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING DEFAULTS TO SETUP TABLE '------------------------------------------------------------------------------------------------------------------------------ sql = "Select * From " & tbl_prefix & "set_up" Set rs = conn.execute(sql) If rs.BOF Then sql = "Insert Into " & tbl_prefix & "set_up " sql = sql & "(mail_server_port,first_time_setup,version) " sql = sql & "Values(" sql = sql & "25," sql = sql & "'YES'," sql = sql & "'2.02')" conn.Execute(sql),,adCmdText + adExecuteNoRecords '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 = "DROP TABLE IF EXISTS " & tbl_prefix & "users" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "users (" sql = sql & "ID INT (11) DEFAULT '' NOT NULL auto_increment, " sql = sql & "name varchar (120) NULL ," sql = sql & "username varchar (60) NULL ," sql = sql & "pass_word varchar (60) NULL ," sql = sql & "securitylevel tinyint Default 0," sql = sql & "main tinyint Default 0," sql = sql & "lastaccessed datetime, " sql = sql & "PRIMARY KEY (ID) )" conn.Execute(sql),,adCmdText + adExecuteNoRecords 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING BANNED TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "banned" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "banned (" sql = sql & "ID INT (11) DEFAULT '' NOT NULL auto_increment, " sql = sql & "listID varchar (10) NULL ," sql = sql & "banned varchar (100) NULL ," sql = sql & "type tinyint, " sql = sql & "PRIMARY KEY (ID) )" conn.Execute(sql),,adCmdText + adExecuteNoRecords 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING LISTNAMES TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "listnames" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "listnames (" sql = sql & "ID INT (11) DEFAULT '' NOT NULL auto_increment, " sql = sql & "list_name varchar (255)," sql = sql & "email varchar (255)," sql = sql & "description varchar (255)," sql = sql & "field_1 varchar (255) NULL ," sql = sql & "type_1 tinyint Default 1," sql = sql & "field_2 varchar (255) NULL ," sql = sql & "type_2 tinyint Default 1," sql = sql & "field_3 varchar (255) NULL ," sql = sql & "type_3 tinyint Default 1," sql = sql & "field_4 varchar (255) NULL ," sql = sql & "type_4 tinyint Default 1," sql = sql & "field_5 varchar (255) NULL ," sql = sql & "type_5 tinyint Default 1," sql = sql & "field_6 varchar (255) NULL ," sql = sql & "type_6 tinyint Default 1," sql = sql & "field_7 varchar (255) NULL ," sql = sql & "type_7 tinyint Default 1," sql = sql & "field_8 varchar (255) NULL ," sql = sql & "type_8 tinyint Default 1," sql = sql & "field_9 varchar (255) NULL ," sql = sql & "type_9 tinyint Default 1," sql = sql & "field_10 varchar (255) NULL ," sql = sql & "type_10 tinyint Default 1," sql = sql & "field_count tinyint Default 1 ," sql = sql & "PRIMARY KEY (ID) )" conn.Execute(sql),,adCmdText + adExecuteNoRecords 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING SAVED MESSAGES TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "saved_messages" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "saved_messages (" sql = sql & "ID INT (11) DEFAULT '' NOT NULL auto_increment, " sql = sql & "save_name varchar (100) NULL ," sql = sql & "format varchar (4) NULL ," sql = sql & "subject varchar (255) NULL ," sql = sql & "message text ," sql = sql & "PRIMARY KEY (ID) )" conn.Execute(sql),,adCmdText + adExecuteNoRecords 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING SAVED DETAILS TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "save_details" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "save_details (" sql = sql & "listname varchar (255) NULL ," sql = sql & "format varchar (4) NULL ," sql = sql & "subject varchar (255) NULL," sql = sql & "attachment varchar (255) NULL ," sql = sql & "message text," sql = sql & "tracking_name varchar (255) NULL ," sql = sql & "track tinyint)" conn.Execute(sql),,adCmdText + adExecuteNoRecords 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING TEMP SEND TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "temp_send" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "temp_send (" sql = sql & "email varchar (255) NULL ," sql = sql & "field_1 varchar (255) NULL ," sql = sql & "field_2 varchar (255) NULL ," sql = sql & "field_3 varchar (255) NULL ," sql = sql & "field_4 varchar (255) NULL ," sql = sql & "field_5 varchar (255) NULL ," sql = sql & "field_6 varchar (255) NULL ," sql = sql & "field_7 varchar (255) NULL ," sql = sql & "field_8 varchar (255) NULL ," sql = sql & "field_9 varchar (255) NULL ," sql = sql & "field_10 varchar (255) NULL ," sql = sql & "edate varchar (30) NULL ," sql = sql & "fromip varchar (16) NULL)" conn.Execute(sql),,adCmdText + adExecuteNoRecords 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING TEMP SEND TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "tracking" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "tracking (" sql = sql & "ID INT (11) DEFAULT '' NOT NULL auto_increment, " sql = sql & "listID int (11) DEFAULT '0'," sql = sql & "email VARCHAR (100) DEFAULT '' NULL," sql = sql & "opened VARCHAR (30) DEFAULT '' NULL," sql = sql & "tracking_name VARCHAR (255) DEFAULT '' NULL," sql = sql & "PRIMARY KEY (ID) )" conn.Execute(sql),,adCmdText + adExecuteNoRecords 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If '** WRITING TRACKING LISTS TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "tracking_lists" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If sql = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "tracking_lists (" sql = sql & "ID INT (11) DEFAULT '' NOT NULL auto_increment, " sql = sql & "listID int ," sql = sql & "sent_date varchar (30) NULL ," sql = sql & "tracking_name varchar (255) NULL ," sql = sql & "emails_sent int Default 0 ," sql = sql & "PRIMARY KEY (ID) )" conn.Execute(sql),,adCmdText + adExecuteNoRecords 'Writing to database If err <> 0 Then Response.Write"" err.clear Response.End End If %>