<!--#include file="config.asp" -->
<!--#include file="inc_setup.asp" -->
<%
'on error goto 0
on error resume next


mlConn.Execute("UPDATE ML_Broadcast SET msgBroadcastedDate = 0 WHERE msgBroadcastedDate IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgLowClicksF = 0 WHERE msgLowClicksF IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgHighClicksF = 9999 WHERE msgHighClicksF IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgLowReadsF = 0 WHERE msgLowReadsF IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgHighReadsF = 9999 WHERE msgHighReadsF IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgSinceDateF = 0 WHERE msgSinceDateF IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgToDateF = 978264000 WHERE msgToDateF IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgArchivable = 0 WHERE msgArchivable IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgSourceTextTimes = 1 WHERE msgSourceTextTimes IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgSourceHTMLTimes = 1 WHERE msgSourceHTMLTimes IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgIncludeTemplateText = 1 WHERE msgIncludeTemplateText IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgIncludeTemplateHTML = 01 WHERE msgIncludeTemplateHTML IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgSource = 1 WHERE msgSource IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgIncludeTemplateText = 1 WHERE msgIncludeTemplateText IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgIncludeTemplateHTML = 1 WHERE msgIncludeTemplateHTML IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgUseSQL = 1 WHERE msgUseSQL IS NULL")
mlConn.Execute("UPDATE ML_Broadcast SET msgSource = 1 WHERE msgSource IS NULL")
mlConn.Execute("UPDATE ML_Subscribers SET subRemoved = 0 WHERE subRemoved IS NULL")
mlConn.Execute("UPDATE ML_Users SET LastLoginDate = 0 WHERE LastLoginDate IS NULL")
mlConn.Execute("UPDATE ML_Users SET allowedLists = '|0|' WHERE allowedLists IS NULL")
mlConn.Execute("UPDATE ML_Users SET showTips = 1 WHERE showTips IS NULL")
mlConn.Execute("UPDATE ML_Prefs SET prefHexEmail = 0 WHERE prefHexEmail IS NULL")
mlConn.Execute("UPDATE ML_URLs SET urlSends = 0 WHERE urlSends IS NULL")

snipCode1 = "List_Text_Footer"
snipCode2 = "List_HTML_Footer"
snipCode3 = "Opt_In_Message"
snipCode4 = "Opt_Out_Message"
snipCode5 = "Subscribe_Subject"
snipCode6 = "Subscribe_Text"
snipCode7 = "Subscribe_HTML"
snipCode8 = "Unsubscribe_Subject"
snipCode9 = "Unsubscribe_Text"
snipCode10 = "Unsubscribe_HTML"


snipName1 = "Text Footer for Lists"
snipName2 = "HTML Footer for Lists"
snipName3 = "Opt-in Message"
snipName4 = "Opt Out Message"
snipName5 = "Subscribe Subject"
snipName6 = "Subscribe Text"
snipName7 = "Subscribe HTML"
snipName8 = "Unsubscribe Subject"
snipName9 = "Unsubscribe Text"
snipName10 = "Unsubscribe HTML"

snipDescription1 = "Footer for all Text Messages Broadcasted to this list (part of the template). Also known as a signature file."
snipDescription2 = "Footer for all HTML Messages Broadcasted to this list (part of the template). Also known as a signature file."
snipDescription3 = "Response to request to signup for the list. Sent in plain text only if Double Opt-in is enabled."
snipDescription4 = "Response to request to be removed from the list. Sent in plain text only if Double Opt-out is enabled."
snipDescription5 = "Subject to all successful subscriptions. Only sent if ""Send Welcome Email"" is enabled."
snipDescription6 = "Message sent to all confirmed subscriptions in Text format. Only sent if ""Send Welcome Email"" is enabled."
snipDescription7 = "Message sent to all confirmed subscriptions in HTML format. Only sent if ""Send Welcome Email"" is enabled. "
snipDescription8 = "Subject to all successful removals. Only sent if ""Send Unsubscribe Email"" is enabled."
snipDescription9 = "Message sent to all confirmed removals in Text format. Only sent if ""Send Unsubscribe Email"" is enabled."
snipDescription10 = "Message sent to all confirmed removals in HTML format. Only sent if ""Send Unsubscribe Email"" is enabled."

snipData1 = vbcrlf & "You have been subscribed to this mailinglist as #Email#. If you wish to unsubscribe, please click on the following link or copy and paste it into your browser. Be careful of line wrapping: " & vbcrlf & vbcrlf & "#UnSubscribe#" & vbcrlf
snipData2 = "<br><br>You have been subscribed to this mailinglist as <b>#Email#</b>. If you wish to unsubscribe, please click on the following link or copy and paste it into your browser. Be careful of line wrapping: <a href=""#UnSubscribe#"">#UnSubscribe#</a><br>"
snipData3 = "We have received a request to add the email address #Email# to the #ListName# at our website. To help deter spam, we need you to confirm this request. This email address has not been subscribed yet and will not receive any emails until this request has been confirmed. Please click on the following URL or copy and paste it into your browser. Watch line wrapping. If the URL is wrapped to the next line, please copy and paste the full URL string into your browser."
snipData4 = "We have received a request to remove the email address #Email# from the #ListName# at our website. We would just like to confirm that you did request this. You are currently still subscribed to this list and will continue to receive emails until this request has been confirmed. Please click on the following URL or copy and paste it into your browser. Watch line wrapping. If the URL is wrapped to the next line, please copy and paste the full URL string into your browser."
snipData5 = "Your #ListName# Subscription"
snipData6 = "Welcome to the #ListName# Mailinglist. You have been subscribed as #Email#. If you did not authorize this subscription, please click on the following link or copy and paste the full URL into any browser." & vbcrlf & vbcrlf & "#UnSubscribe#" & vbcrlf
snipData7 = "Welcome to the <b>#ListName#</b> Mailinglist. You have been subscribed as #Email#. If you did not authorize this subscription, please click on the following link or copy and paste the full URL into any browser.<a href=""#UnSubscribe#"">#UnSubscribe#</a>"
snipData8 = "Your #ListName# Subscription"
snipData9 = "We are sorry to see that you wish to unsubscribe the email address #Email# from the #ListName# Mailing List. This email address has been removed from our database and will not receive any more emails in regards to the above mentioned list." & vbcrlf
snipData10 = "We are sorry to see that you wish to unsubscribe the email address <b>#Email#</b> from the <b>#ListName#</b> Mailing List. This email address has been removed from our database and will not receive any more emails in regards to the above mentioned list."

set snipCheck = dbConn.Execute("SELECT * FROM ML_SNippets WHERE snipCode = '" & snipCode1 & "'")
	if snipCheck.EOF then
		mlConn.Execute("INSERT INTO ML_Snippets (snipCreated, snipCreatedBy, snipName, snipCode, snipData, snipDescription) VALUES (" & cfgDate & ",'admin','" & snipName1 & "','" & snipCode1 & "','" & snipData1 & "','" & snipDescription1 & "')")
		mlConn.Execute("INSERT INTO ML_Snippets (snipCreated, snipCreatedBy, snipName, snipCode, snipData, snipDescription) VALUES (" & cfgDate & ",'admin','" & snipName2 & "','" & snipCode2 & "','" & snipData2 & "','" & snipDescription2 & "')")
		mlConn.Execute("INSERT INTO ML_Snippets (snipCreated, snipCreatedBy, snipName, snipCode, snipData, snipDescription) VALUES (" & cfgDate & ",'admin','" & snipName3 & "','" & snipCode3 & "','" & snipData3 & "','" & snipDescription3 & "')")
		mlConn.Execute("INSERT INTO ML_Snippets (snipCreated, snipCreatedBy, snipName, snipCode, snipData, snipDescription) VALUES (" & cfgDate & ",'admin','" & snipName4 & "','" & snipCode4 & "','" & snipData4 & "','" & snipDescription4 & "')")
		mlConn.Execute("INSERT INTO ML_Snippets (snipCreated, snipCreatedBy, snipName, snipCode, snipData, snipDescription) VALUES (" & cfgDate & ",'admin','" & snipName5 & "','" & snipCode5 & "','" & snipData5 & "','" & snipDescription5 & "')")
		mlConn.Execute("INSERT INTO ML_Snippets (snipCreated, snipCreatedBy, snipName, snipCode, snipData, snipDescription) VALUES (" & cfgDate & ",'admin','" & snipName6 & "','" & snipCode6 & "','" & snipData6 & "','" & snipDescription6 & "')")
		mlConn.Execute("INSERT INTO ML_Snippets (snipCreated, snipCreatedBy, snipName, snipCode, snipData, snipDescription) VALUES (" & cfgDate & ",'admin','" & snipName7 & "','" & snipCode7 & "','" & snipData7 & "','" & snipDescription7 & "')")
		mlConn.Execute("INSERT INTO ML_Snippets (snipCreated, snipCreatedBy, snipName, snipCode, snipData, snipDescription) VALUES (" & cfgDate & ",'admin','" & snipName8 & "','" & snipCode8 & "','" & snipData8 & "','" & snipDescription8 & "')")
		mlConn.Execute("INSERT INTO ML_Snippets (snipCreated, snipCreatedBy, snipName, snipCode, snipData, snipDescription) VALUES (" & cfgDate & ",'admin','" & snipName9 & "','" & snipCode9 & "','" & snipData9 & "','" & snipDescription9 & "')")
		mlConn.Execute("INSERT INTO ML_Snippets (snipCreated, snipCreatedBy, snipName, snipCode, snipData, snipDescription) VALUES (" & cfgDate & ",'admin','" & snipName10 & "','" & snipCode10 & "','" & snipData10 & "','" & snipDescription10 & "')")
	end if
	set snipCheck = nothing

Results = Create_Access_ML_Temp()
err.clear()
Results = Create_SQL_ML_Temp()
err.clear()

response.redirect "default.asp"
%>