CC staff on order-received confirmation email

SendOrderDetailsEmail now CCs natascham, erickaw, danielc, and
katelyne @kentcommunications.com on the 'order received' email sent
to the customer after they submit their order details.

app/models/OrderMailer.asp

@@ -35,6 +35,13 @@ Class OrderMailer_Class
         mail.IsBodyHTML = True
         mail.Body       = BuildOrderDetailsEmailBody(order, model)
         mail.AddRecipient "To", order("Email")
+
+        Dim ccAddress, ccAddresses
+        ccAddresses = OrderReceivedCcAddresses()
+        For Each ccAddress In ccAddresses
+            mail.AddRecipient "Cc", ccAddress
+        Next
+
         mail.Send
 
         Err.Clear
@@ -44,6 +51,15 @@ Class OrderMailer_Class
     '-------------------------------------------------------------------------------------------------------------------
     ' Private helpers
     '-------------------------------------------------------------------------------------------------------------------
+    ' Staff addresses CC'd on every "order received" confirmation email.
+    Private Function OrderReceivedCcAddresses()
+        OrderReceivedCcAddresses = Array( _
+            "natascham@kentcommunications.com", _
+            "erickaw@kentcommunications.com", _
+            "danielc@kentcommunications.com", _
+            "katelyne@kentcommunications.com")
+    End Function
+
     Private Function NewConfiguredMail()
         Dim smtpPort : smtpPort = GetAppSetting("SmtpPort")
         If Not IsNumeric(smtpPort) Then smtpPort = 25