<% '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** '** DO NOT CHANGE ANYTHING HERE '** WRITING SETUP TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "set_up ( " sql = sql & "ID INT (11) 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 (150) DEFAULT '' NULL," sql = sql & "reply_to_email VARCHAR (150) DEFAULT '' NULL," sql = sql & "test_email VARCHAR (150) DEFAULT '' NULL," sql = sql & "site_name VARCHAR (255) 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 (255) DEFAULT 'http://' NULL," sql = sql & "mail_component VARCHAR (100) DEFAULT '' NULL," sql = sql & "mail_server VARCHAR (255) 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.04')" 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 = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "users (" sql = sql & "ID INT (11) NOT NULL auto_increment, " sql = sql & "name varchar (121) 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 = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "banned (" sql = sql & "ID INT (11) NOT NULL auto_increment, " sql = sql & "listID varchar (10) NULL ," sql = sql & "banned varchar (255) 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 LISTS TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "listnames (" sql = sql & "ID INT (11) NOT NULL auto_increment, " sql = sql & "list_name varchar (255)," sql = sql & "email varchar (255)," sql = sql & "description varchar (255)," sql = sql & "field_1 TEXT NULL ," sql = sql & "type_1 tinyint Default 1," sql = sql & "field_2 TEXT NULL ," sql = sql & "type_2 tinyint Default 1," sql = sql & "field_3 TEXT NULL ," sql = sql & "type_3 tinyint Default 1," sql = sql & "field_4 TEXT NULL ," sql = sql & "type_4 tinyint Default 1," sql = sql & "field_5 TEXT NULL ," sql = sql & "type_5 tinyint Default 1," sql = sql & "field_6 TEXT NULL ," sql = sql & "type_6 tinyint Default 1," sql = sql & "field_7 TEXT NULL ," sql = sql & "type_7 tinyint Default 1," sql = sql & "field_8 TEXT NULL ," sql = sql & "type_8 tinyint Default 1," sql = sql & "field_9 TEXT NULL ," sql = sql & "type_9 tinyint Default 1," sql = sql & "field_10 TEXT 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 DETAILS TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ 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 text 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 SAVED MESSAGES TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "saved_messages (" sql = sql & "ID INT (11) NOT NULL auto_increment, " sql = sql & "save_name varchar (255) 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 TEMP SEND TABLE TO DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "temp_send (" sql = sql & "email varchar (150) NULL ," sql = sql & "field_1 text NULL ," sql = sql & "field_2 text NULL ," sql = sql & "field_3 text NULL ," sql = sql & "field_4 text NULL ," sql = sql & "field_5 text NULL ," sql = sql & "field_6 text NULL ," sql = sql & "field_7 text NULL ," sql = sql & "field_8 text NULL ," sql = sql & "field_9 text NULL ," sql = sql & "field_10 text 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 = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "tracking (" sql = sql & "ID INT (11) NOT NULL auto_increment, " sql = sql & "listID int (11) DEFAULT '0'," sql = sql & "email VARCHAR (150) 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 = "CREATE TABLE IF NOT EXISTS " & tbl_prefix & "tracking_lists (" sql = sql & "ID INT (11) 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 %>