CDONTS and Recordsets

I am loading the following CDONTS code into version 5.0 "events/table events/add page/after record added" and everytime the add page loads it shoots off a blank email. How can I correct this?

Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

objCDOMail.From = "forms@.com"

objCDOMail.To = "name@.com"
objCDOMail.Subject = "Contact Form"

strBody = strBody & "Sender Name: " & GetRequestForm("YourName") & vbcrlf

strBody = strBody & "Hire Status: " & GetRequestForm("HireStatus") & vbcrlf

strBody = strBody & "Employee Name: " & GetRequestForm("EmployeeName") & vbcrlf

strBody = strBody & "Class Title: " & GetRequestForm("ClassTitle") & vbcrlf

strBody = strBody & "Department: " & GetRequestForm("Department") & vbcrlf

objCDOMail.Body = strBody

objCDOMail.Send

Set objCDOMail = Nothing

Here is my corrected CDONTS code that finally worked for me:
Sub AfterAdd()
Dim MyBody

Dim MyCDONTSMail

Set MyCDONTSMail = CreateObject("CDONTS.NewMail")

MyCDONTSMail.From= "FromName@.com"

MyCDONTSMail.To= "YourEmail@.com"

MyCDONTSMail.Subject="Your subject line"

MyCDONTSMail.BodyFormat = 0

MyCDONTSMail.MailFormat=0

MyCDONTSMail.Importance = 1

MyBody = "<font face=verdana size=3><b>"

MyBody = MyBody & "Something here"

MyBody = MyBody & "</b></font>"

MyBody = MyBody & "<p><font face=verdana size=2>"

MyBody = MyBody & "FieldName: " & rs("FieldName") & "
"

MyBody = MyBody & "FieldName: " & rs("FieldName") & "
"

MyBody = MyBody & "FieldName: " & rs("FieldName") & "
"

MyBody = MyBody & "FieldName: " & rs("FieldName") & "
"

MyBody = MyBody & "FieldName: " & rs("FieldName") & "
"

MyBody = MyBody & "</font></p>"

MyCDONTSMail.Body= MyBody

MyCDONTSMail.Send

set MyCDONTSMail=nothing
End Sub 'AfterAdd