SQL = "SELECT attendee_name, attendee_email " & _
"FROM meetings_attendees " & _
"WHERE meeting_id = '" & intMtgID & "' AND (invited = '0' OR invited IS NULL) " & _
"AND (emailed = '0' OR emailed IS NULL)"
Set objRSAtt = objConn.Execute(SQL)
Do Until objRSAtt.EOF
strAttName = objRSAtt.Fields.Item("attendee_name").Value
strAttEmail = objRSAtt.Fields.Item("attendee_email").Value
Response.Write(strAttName) & "<br />"
Response.Write(strAttEmail) & "<br />"
objRSAtt.MoveNext
Loop
|