I created a script to remind students to turn in their reports. Whenever I open this page, the script runs and students will receive an email to remind them to turn in their reports.
On this script, I got the emails in this format, firstname.lastname@example.org email@example.com
The strMail should store these emails in this format: firstname.lastname@example.org, email@example.com, so that when I open this page, it will send to 2 students.
Currently, the email message list only the first record even thought there are 2 records.
It should list a table with 2 records as:
ID Email Date
1 firstname.lastname@example.org 5/4/2011
2 email@example.com 5/4/2011
Can anyone please help?
Thanks very much!
Set oRs = Server.CreateObject("adodb.recordset")
strSQL = " select Student_ID, Student_Email + '@yahoo.com' AS Email from Students Where dueDate='5/4/2011'; "
oRs.Open strSQL, myConn
<br /><h2>2-Days Trip Report Reminder</h2>
Dim NewMailObj, strBody, sMail, aEmail
aEmail = ""
if not oRs.eof then
do until oRs.eof
sID = oRs("Student_ID")
sEmail = oRs("Email")
sDate = oRs("dueDate")
aEmail = aEmail & sMail & ","
Set NewMailObj = CreateObject("CDO.message")
NewMailObj.From = "Student_Report"
NewMailObj.To = aEmail
NewMailObj.Subject = "Student Report"
NewMailObj.HTMLBody = "Reminder for the following students:<br><br><table><tr><td>ID</td><td>Email</td><td>Date</td></tr><tr><td>"&sID&"</td><td>"&sEmail&"</td><td>"&sDate&"</td></tr></table>" & vbCrLf