<%@ 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") = "3" Then Response.Write("") End If If Session("Start") = "" Then Response.Cookies("a") = "ended" Response.Redirect"login.asp?logoff=1" End If %> <% '** SETTING VARIABLES Dim rs, sql, strlistname '** CHECKING TO SEE IF LIST NAME NOT ALREADY IN USE Set rs = conn.execute("Select * From " & tbl_prefix & "listnames Where list_name = " & FormatDatabaseString(Trim(Request("list_name")), Len(Trim(Request("list_name")))), adOpenForwardOnly, adLockReadOnly) If err <> 0 Then Response.Write"" err.clear Response.End End If If Not rs.EOF Then Response.Cookies("list")("listname") = Trim(Request("list_name")) Response.Cookies("list")("description") = Trim(Request("description")) Response.Cookies("list")("field_1") = Trim(Request("field_1")) Response.Cookies("list")("field_2") = Trim(Request("field_2")) Response.Cookies("list")("field_3") = Trim(Request("field_3")) Response.Cookies("list")("field_4") = Trim(Request("field_4")) Response.Cookies("list")("field_5") = Trim(Request("field_5")) Response.Cookies("list")("field_6") = Trim(Request("field_6")) Response.Cookies("list")("field_7") = Trim(Request("field_7")) Response.Cookies("list")("field_8") = Trim(Request("field_8")) Response.Cookies("list")("field_9") = Trim(Request("field_9")) Response.Cookies("list")("field_10") = Trim(Request("field_10")) Response.Cookies("list")("error") = "List Name already in use, please choose another!" Response.Redirect"create_lists.asp" rs.Close Set rs = nothing Response.End End If '** ENTERING INFORMATION INTO LISTNAMES TABLE FOR YOUR NEW LIST sql = "Insert Into " & tbl_prefix & "listnames (list_name,email,description,field_1,type_1,field_2,type_2,field_3,type_3,field_4,type_4,field_5,type_5,field_6,type_6,field_7,type_7,field_8,type_8,field_9,type_9,field_10,type_10,field_count) " sql = sql & "Values(" sql = sql & FormatDatabaseString(Trim(Request("list_name")), Len(Trim(Request("list_name")))) & "," sql = sql & "'Email'," sql = sql & FormatDatabaseString(Trim(Request("description")), Len(Trim(Request("description")))) & "," If Trim(Request("field_1")) <> "" Then sql = sql & FormatDatabaseString(Trim(Request("field_1")), Len(Trim(Request("field_1")))) & "," Else sql = sql & "''," End If sql = sql & Request("type_1") & "," If Trim(Request("field_2")) <> "" Then sql = sql & FormatDatabaseString(Trim(Request("field_2")), Len(Trim(Request("field_2")))) & "," Else sql = sql & "''," End If sql = sql & Request("type_2") & "," If Trim(Request("field_3")) <> "" Then sql = sql & FormatDatabaseString(Trim(Request("field_3")), Len(Trim(Request("field_3")))) & "," Else sql = sql & "''," End If sql = sql & Request("type_3") & "," If Trim(Request("field_4")) <> "" Then sql = sql & FormatDatabaseString(Trim(Request("field_4")), Len(Trim(Request("field_4")))) & "," Else sql = sql & "''," End If sql = sql & Request("type_4") & "," If Trim(Request("field_5")) <> "" Then sql = sql & FormatDatabaseString(Trim(Request("field_5")), Len(Trim(Request("field_5")))) & "," Else sql = sql & "''," End If sql = sql & Request("type_5") & "," If Trim(Request("field_6")) <> "" Then sql = sql & FormatDatabaseString(Trim(Request("field_6")), Len(Trim(Request("field_6")))) & "," Else sql = sql & "''," End If sql = sql & Request("type_6") & "," If Trim(Request("field_7")) <> "" Then sql = sql & FormatDatabaseString(Trim(Request("field_7")), Len(Trim(Request("field_7")))) & "," Else sql = sql & "''," End If sql = sql & Request("type_7") & "," If Trim(Request("field_8")) <> "" Then sql = sql & FormatDatabaseString(Trim(Request("field_8")), Len(Trim(Request("field_8")))) & "," Else sql = sql & "''," End If sql = sql & Request("type_8") & "," If Trim(Request("field_9")) <> "" Then sql = sql & FormatDatabaseString(Trim(Request("field_9")), Len(Trim(Request("field_9")))) & "," Else sql = sql & "''," End If sql = sql & Request("type_9") & "," If Trim(Request("field_10")) <> "" Then sql = sql & FormatDatabaseString(Trim(Request("field_10")), Len(Trim(Request("field_10")))) & "," Else sql = sql & "''," End If sql = sql & Request("type_10") & "," sql = sql & "'" & Request("field_count") & "')" conn.execute sql, , adExecuteNoRecords If err <> 0 Then Response.Write"" err.clear Response.End End If '** RETEIVING ID FOR NEW LIST, THIS IS USED AS THE NAME OF THE NEW TABLE AVOIDING PROBLEMS WITH RESERVED WORDS Set rs = conn.execute("Select ID AS blnlistname From " & tbl_prefix & "listnames Where list_name = " & FormatDatabaseString(Trim(Request("list_name")), Len(Trim(Request("list_name")))), adOpenForwardOnly, adLockReadOnly) If err <> 0 Then Response.Write"" err.clear Response.End End If strlistname = rs("blnlistname") rs.Close Set rs = nothing '** CREATING TABLE FOR NEW LIST If DataBaseType = "access" Then sql = "CREATE TABLE " & tbl_prefix & strlistname & " (ID AUTOINCREMENT, email TEXT(150) WITH COMP, field_1 TEXT WITH COMP, field_2 TEXT WITH COMP, field_3 TEXT WITH COMP, field_4 TEXT WITH COMP, field_5 TEXT WITH COMP, field_6 TEXT WITH COMP, field_7 TEXT WITH COMP, field_8 TEXT WITH COMP, field_9 TEXT WITH COMP, field_10 TEXT WITH COMP, edate DATETIME, fromip TEXT(20) WITH COMP, verified BYTE Default 0, reminder_sent BYTE Default 0, admin_entry BYTE Default 0)" Elseif DataBaseType = "mssql" Then sql = "CREATE TABLE [dbo].[" & tbl_prefix & strlistname & "] (" sql = sql & "[ID] [numeric] IDENTITY (1, 1) PRIMARY KEY CLUSTERED NOT NULL ," sql = sql & "[email] [nvarchar] (150)," sql = sql & "[field_1] [nvarchar] (2000) NULL ," sql = sql & "[field_2] [nvarchar] (2000) NULL ," sql = sql & "[field_3] [nvarchar] (2000) NULL ," sql = sql & "[field_4] [nvarchar] (2000) NULL ," sql = sql & "[field_5] [nvarchar] (2000) NULL ," sql = sql & "[field_6] [nvarchar] (2000) NULL ," sql = sql & "[field_7] [nvarchar] (2000) NULL ," sql = sql & "[field_8] [nvarchar] (2000) NULL ," sql = sql & "[field_9] [nvarchar] (2000) NULL ," sql = sql & "[field_10] [nvarchar] (2000) NULL ," sql = sql & "[edate] [datetime] ," sql = sql & "[fromip] [nvarchar] (20) NULL ," sql = sql & "[verified] [bit] Default 0 ," sql = sql & "[reminder_sent] [bit] Default 0 ," sql = sql & "[admin_entry] [bit] Default 0 )" Elseif DataBaseType = "mysql" Then sql = "CREATE TABLE " & tbl_prefix & strlistname & " (" sql = sql & "ID INT (11) NOT NULL auto_increment," sql = sql & "email varchar (150)," 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 datetime ," sql = sql & "fromip varchar (20) NULL ," sql = sql & "verified smallint Default 0 ," sql = sql & "reminder_sent smallint Default 0 ," sql = sql & "admin_entry smallint Default 0 ," sql = sql & "PRIMARY KEY (ID) )" End If conn.execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If Response.Cookies("a") = "List Created and Saved" Response.Redirect"view_lists.asp" %> <% '** 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 %>