[thelist] On Error Resume Next

[Rob Smith]

> Just out of curiosity, what language is this?

VBScript (Classic ASP)

(I should learn to explain everything at the first email. I'm getting
tired of having to go back and give the bigger picture the second time.)

I've got a query that returns all customers who have inside credit with
our company. I then do a "mail merge" on the customer's email, company
name, rep, and rep email that goes like this:

Set email_list = Server.CreateObject("ADODB.Recordset")
email_list.ActiveConnection = MM_Commerce30_STRING
email_list.CursorType = 0
email_list.CursorLocation = 2
email_list.LockType = 3
email_list.Source = "SELECT shopper.shopper_id,
 shopper.ContactFName, shopper.ContactLName,
 shopper.email, site_credit.amount / 100.00 AS amount,
 employees.employee_email, shopper.Company FROM 
 shopper INNER JOIN site_credit ON shopper.shopper_id
  = site_credit.shopper_id INNER JOIN employees ON
 shopper.commission_id = employees.employee_id WHERE
 (site_credit.amount > 0) AND (shopper.shopper_id NOT IN
 (SELECT shopper_id FROM site_credit_do_not_remind)) AND
 (shopper.email IS NOT NULL)"
email_list.open

set conn = CreateObject("ADODB.Connection")
conn.Open = "Provider=...connection info..."
while not email_list.eof
   conn.execute("declare @rc int exec @rc = master.dbo.xp_smtp_sendmail
@FROM = N'" & employee_email & "', @FROM_NAME  = N'LexJet.com', @TO =
N'" & cust_email & "', @CC = N'', @BCC = N'" & employee_email & "',
@priority   = N'', @subject    = N'LexJet Inside Credit Reminder', @type
= N'text/plain', @message    = N'Dear " & contactfname & " " &
contactlname & "," & vbcrlf & vbcrlf & "For your convenience, we are
sending you this monthly in-site credit update. Your current credit
balance is " & formatcurrency(email_list("amount").value,2) & ". You can
apply this balance to future LexJet purchases." & vbcrlf & vbcrlf &
company & vbcrlf & formatcurrency(email_list("amount").value,2) & vbcrlf
& vbcrlf & "Sincerely," & vbcrlf & vbcrlf & "LexJet" & vbcrlf & vbcrlf &
"Click or copy and past the following link into your web browser to
unsubscribe: " & vbcrlf &
"http://www.lexjet.com/lexjet/creditunsubscribe.asp?mscssid=" &
email_list("shopper_id").value & "', @server =
N'lesjetcorp01.lexjetcorp.com' select RC = @rc")

In test mode I overrode the employee_email and cust_email with my email
address and all the 370 or so emails went through just fine. However,
when I let the employee_email and cust_email default to what the
recordset values the code breaks somewhere along the way on the
conn.execute line of code. 

I could either add myself to the BCC list and see where the last email
stops, then isolate that customer. (By nature of that beast, the rest of
the list doesn't get notified because the code just stops to a grinding
hault. 

The second preferred choice is to do some kind of On Error Resume Next
and just flag those failed emails for further investigation and send the
remainder of the record set onwards.

That's the whole picture,

Rob Smith
LexJet
rob.smith at lexjet.com
http://www.lexjet.com
(800)453-9538
(941)330-1210 Int'l
(941)330-1220 Fax
1680 Fruitville Road, 3rd Floor
Sarasota, FL 34236