Send email (and include all records, not just one)

I'm using Events to send an email. I would like all the records displayed to be sent. As my code is now... I just get two rows of data sent. How can I add some sort of Loop to my code? Thanks!
Sub ExportOnLoad(strSQL)
Dim objCDOSYSCon

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver";) = "server"

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport";) = 25

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing";) = 2

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout";) = 60

objCDOSYSCon.Fields.Update

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = "Webmaster@company.com"

objCDOSYSMail.To = "user@company.com"

objCDOSYSMail.Bcc = ""

objCDOSYSMail.ReplyTo = ""

objCDOSYSMail.Subject = "Backup Status for " & FormatDateTime(rs("BackupDate"),1)

objCDOSYSMail.HTMLBody =

"<table cellpadding=6 border=1 bordercolor=black>

<tr><td>Server</td>

<td>Result</td>

<td>Posted By</td>

<td>Backup Date</td>

<td>FFB</td>

<td>Error Cause</td>

<td>Errors</td>

<td>Warnings</td>

<td>JobNo</td>

<td>Comments</td>

</tr><tr><td>" & rs("ServerName") & "</td>

<td>" & rs("Result") & "</td>

<td>" & rs("PostedBy") & "</td>

<td>" & rs("BackupDate") & "</td>

<td>" & rs("FFB") & "</td>

<td>" & rs("ErrorCause") & "</td>

<td>" & rs("Errors") & "</td>

<td>" & rs("Warnings") & "</td>

<td>" & rs("JobNo") & "</td>

<td>" & rs("Comments") & "</td></tr>

<tr><td>&nbsp;</td>

<td>" & rs("FollowupResult") & "</td>

<td>" & rs("FollowupPostedBy") & "</td>

<td>" & rs("FollowupBackupDate") & "</td>

<td>" & rs("FollowupFFB") & "</td>

<td>" & rs("FollowupErrorCause") & "</td>

<td>" & rs("FollowupErrors") & "</td>

<td>" & rs("FollowupWarnings") & "</td>

<td>" & rs("FollowupJobNo") & "</td>

<td>" & rs("FollowupComments") & "</td>

</tr></table>"

objCDOSYSMail.Send

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing
End Sub