A preview of the newsletter was sent to :
<%=pEmailSales%>
Check your Email Inbox to see if this email was delivered,
and if the content and format of the email is correct. Press
the 'BACK' button on your browser to return to the
newsletter to make changes and submit another preview, or to
submit the newsletter to all your customers (remember to
un-check the 'Preview' box first).
|
<%
'Close Database
call closedb()
'End script execution here
Response.End
end if
'Construct SQL statement
'Notes :
'1. Because the recordset is assigned to an array using getRows(), the
' position of the columns in the SQL statement is important as the
' rest of the code expects the columns to be located at pre-determined
' indexes. Email = index 0, lastName = index 1, name = index 2.
'2. The sort order is also important due to the fact that the sort
' order field (in this case Email) is used as a bookmark to restart
' from a particular position onwards.
'
'Specify columns and table
mySQL = "SELECT a.email, a.lastname, a.name " _
& "FROM customer a " _
& "WHERE 1 = 1 "
'Opt-In customers
if custType = "I" then
mySQL = mySQL & "AND a.futureMail = 'Y' "
end if
'Opt-Out customers
if custType = "O" then
mySQL = mySQL & "AND (a.futureMail = 'N' OR a.futureMail = '' OR a.futureMail IS NULL) "
end if
'Customers who have PAID orders
if custPaid = "Y" then
mySQL = mySQL & "AND EXISTS (SELECT b.idOrder FROM cartHead b WHERE b.idCust = a.idCust AND (b.orderStatus = '1' OR b.orderStatus = '2' OR b.orderStatus = '7')) "
end if
'Start from a certain email
if action = "E" and len(newsBookmark) > 0 then
mySQL = mySQL & "AND email > '" & newsBookmark & "' "
end if
'Sort the recordset
mySQL = mySQL & "ORDER BY a.email "
'Execute SQL query and assign recordset to an array
set rs = openRSexecute(mySQL)
if rs.EOF then
response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("No customers were found matching your search criteria.")
else
custList = rs.GetRows
end if
call closeRS(rs)
'If this is a newsletter, save the newsletter detail in the database
if action = "E" then
'Check if we should UPDATE or INSERT newsletter info
if len(idNews) > 0 and isNumeric(idNews) then
mySQL = "UPDATE newsletters " _
& "SET newsDate = " & addDateDel(currDateTime("DT",timeOffSet)) & ", " _
& " newsDateInt= '" & dateInt(currDateTime("DT",timeOffSet)) & "', " _
& " newsSubj = '" & replace(newsSubj,"'","''") & "', " _
& " newsBody = '" & replace(newsBody,"'","''") & "' " _
& "WHERE idNews = " & idNews
set rs = openRSexecute(mySQL)
call closeRS(rs)
else
set rs = openRSopen("newsletters",adUseServer,adOpenKeySet,adLockOptimistic,adCmdTable,0)
rs.AddNew
rs("newsDate") = currDateTime("DT",timeOffSet)
rs("newsDateInt")= dateInt(currDateTime("DT",timeOffSet))
rs("newsSubj") = newsSubj
rs("newsBody") = newsBody
rs.Update
idNews = rs("idNews") '@@identity
call closeRS(rs)
end if
end if
'Close Database
call closedb()
'DOWNLOAD customer list
if action = "F" then
'Send headers for file name and content type changes
Response.AddHeader "Content-Disposition", "attachment; filename=MailList.csv"
Response.ContentType = "application/text"
'Write results to output file
for I = 0 to ubound(custList,2)
Response.Write """" & custList(0,I) & """," & """" & custList(1,I) & "," & custList(2,I) & """" & vbCrLf
next
'End script execution
Response.End
end if
%>
Total number of emails to send : <%=ubound(custList,2)+1%>
<%
'Loop through recordset array. Emails are assigned to an email
'array (from the recordset array) so they can be sent in batches.
for I = 0 to ubound(custList,2)
'Move email address to email array
custListEmail(I2) = custList(0,I)
'Increment email array counter
I2 = I2 + 1
'Check if we need to send a batch of emails
if I2 >= ubound(custListEmail) or I >= ubound(custList,2) then
'Send a batch of emails
on error resume next
call sendmail (pCompany, pEmailSales, custListEmail, newsSubj, newsBody, contType)
if err.number <> 0 then
response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("An error occurred while sending email." & err.Description)
end if
on error goto 0
'Update checkpoint. We open and close the database
'connection before and after each update because the
'script may run for a very long time, so we need to
'ensure that other scripts also get an opportunity.
call openDb()
if I < ubound(custList,2) then
mySQL = "UPDATE newsletters " _
& "SET newsBookmark = '" & custList(0,I) & "' " _
& "WHERE idNews = " & idNews
else
mySQL = "UPDATE newsletters " _
& "SET newsBookmark = NULL " _
& "WHERE idNews = " & idNews
end if
set rs = openRSexecute(mySQL)
call closeRS(rs)
call closedb()
'Display checkpoint
Response.Write "Sent -> " & I+1 & " emails (Last email : " & custList(0,I) & ")
"
'Reset email array counter and values
I2 = 0
erase custListEmail
'Is the client still connected?
if not Response.IsClientConnected then
Response.End
end if
'Update Progress Window
if strUA = "IE" then
nPctComplete = ( (I+1) / (ubound(custList,2)+1)) * 100
Response.Write "" & vbCrLf
else
Response.Write "" & vbCrLf
end if
'Send buffered output to browser
Response.Flush
end if
next
'Close Progress Window
Response.Write "" & vbCrLf
%>
Total number of emails sent : <%=ubound(custList,2)+1%>
|
<%
'DISPLAY customer list
else
%>