can you help me in this code

Hi All
i create this code in list page before record is processed :
If CDate(data("monitordate"))> Now() then

dim tmpDict

set tmpDict = CreateObject("Scripting.Dictionary")

tmpDict("to")="k.shaffei@alahli.com"

tmpDict("subject")="Hi dear"

tmpDict("body")="Hello there" & vbcrlf & "Best regards"

set ret=runner_mail(tmpDict)

if not ret("mailed") then

response.write ret("message")

end if

end if
it's work fine but i need this code like send email with a new data in list page before record is processed
regards,