<%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection OpenConn() %> <%'Include Utility Scripts%> <% 'On Error Resume Next dim strDelGroupIds dim intSendToLiveSubscribers dim intLastSubscriberInPreviousRecipientList dim intPostingId dim intSubscriberCount dim strLogFileEntry 'get the number of recipients so far for the current email: 'if the sub_count querystring is equal to an empty string then... If Trim(Request.QueryString("sub_count")) = "" Then 'set the subscription counter variable to 0 intSubscriberCount = 0 'if the sub_count querystring is not equal to an empty string then... Else 'set the subscription counter variable to 0 intSubscriberCount = CInt(Request.QueryString("sub_count")) End If 'get the delimited list of contact type recipients into the strDelContactTypes variable strDelGroupIds = Request.QueryString("selectedGroups") 'get the subscriber status (live:1 / test:0) intSendToLiveSubscribers = CBool(Request.QueryString("is_live")) 'if the subscriber is a test then... If Not intSendToLiveSubscribers And strDelGroupIds = "" Then strDelGroupIds = "1" End If 'get the last subscriber's id from the recipient list of the previous batch intLastSubscriberInPreviousRecipientList = CInt(Request.QueryString("last_sub")) 'get the posting id from the posting that instigated this email campaign intPostingId = CInt(Request.QueryString("posting_id")) 'send email to subscribers Call SendPostingEmail(CInt(intSubscriberCount), strLogFileEntry, intSendToLiveSubscribers, CInt(intLastSubscriberInPreviousRecipientList), CInt(intPostingId), strDelGroupIds) 'On Error GoTo 0 'set the PostingEmailLogFileEntry variable to an empty string Session("PostingEmailLogFileEntry") = "" %> <%'Include Modal Window Fipt%>

<% 'if the email was sent to the test subscribers then... If Not CBool(intSendToLiveSubscribers) Then 'if an error occurred then... If Not (InStr(strLogFileEntry, "Mail failure occured") <> 0) Then %> The Test Email was successfully sent to the following recipient(s):

<%=strLogFileEntry%>

Once you've received the Test Email and are satisfied with it's format, click here to send the Live Email. <% Else %> An Error occurred while sending the Test Email, see the following log for details:

<%=strLogFileEntry%>

<% End If 'if the email was sent to the live subscribers then... Else 'if an error occurred then... If Not (InStr(strLogFileEntry, "Mail failure occured") <> 0) Then %> The Live Email was successfully sent to the following recipient(s):

<%=strLogFileEntry%>

<% Else %> An Error occurred while sending the Live Email, see the following log for details:

<%=strLogFileEntry%>

<% End If End If %>