'********** 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
|
Note