'**********  Send email with old data record  ************

' do not forget to setup email parameters like From, SMTP server etc

' on 'Security->User login settings' dialog

dim tmpDict, msg, rsOld, i

set tmpDict = CreateObject("Scripting.Dictionary")

tmpDict("to")="--rbegin--test@test.com--rend--"

tmpDict("subject")="--rbegin--Sample subject--rend--"

msg=""

' modify the following SQL query to select fields you like to send

set rsOld = dal.Table(strTableName).Query(where,"")

if not rsOld.eof then

    for i=0 to rsOld.Fields.Count-1

        if not IsBinaryType(rsOld.Fields(i).Type) then _

            msg = msg & rsOld.Fields(i).Name & " : " & _

              rsOld(rsOld.Fields(i).Name) & vbcrlf

    next

end if

rsOld.Close:set rsOld = Nothing

tmpDict("body")=msg

set ret=runner_mail(tmpDict)

if not ret("mailed") then

    response.write ret("message")

end if