I have create vb script, and schedule a job using activex script for sending mail using following script. Can anyone suggest me this is not working ?

'*****************************************************************
set rsMember = CreateObject("ADODB.Recordset")
rsMember.ActiveConnection = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=mydb;Data Source=devp-server"
rsMember.Source = "SELECT * FROM dbo.Participants ORDER BY LastName,FirstName"
rsMember.CursorType = 1
rsMember.CursorLocation = 3
rsMember.LockType = 3
rsMember.Open
'******* Email Agenda to every member through CDONTS **********
while NOT (rsMember.EOF)
strTitle = CStr(Session("Title"))
strStartDate = CStr(Session("StartDate"))
strEndDate = CStr(Session("EndDate"))
Dim objCDOMail 'The CDO object
MemberName = rsMember.Fields.Item("FirstName").Value & " " & rsMember.Fields.Item("LastName").Value
Response.Write("Sending Email To :" & MemberName)
strTo = rsMember.Fields.Item("Email").Value
strBody = "Dear " & MemberName & vbCrLf
strBody = strBody & vbCrLf & "Forum Title : " & strTitle
strBody = strBody & vbCrLf & "Forum Start Date Time : " & strStartDate
strBody = strBody & vbCrLf & "Forum End Date Time : " & strEndDate
strBody = strBody & vbCrLf & "Forum Agenda: " & strAgendaDescription & vbCrLf
Set objCDOMail = CreateObject("CDONTS.NewMail")
objCDOMail.From = "temp@temp.com"
objCDOMail.To = strTo
objCDOMail.Subject = "Forum Agenda"
objCDOMail.MailFormat=CdoMailFormatMIME
objCDOMail.BodyFormat=CdoBodyFormatHTML
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing
wend
'************** End Emailing ***********************************