email code

[vertical]

Hello,

I am new to VB script and I need to modify some code.
Can anyone tell me what the following code is doing?

Thanks,
vert

iMsg.From = from

if(subject <> "")then
iMsg.Subject = subject
end if

Dim str
output = 0
str = "TestAccount@admin.ca"
while not rsResults.eof
str = rsResults(0)& ";" & str
output = output + 1
rsResults.movenext
wend
iMsg.To = str
iMsg.Subject = subject
iMsg.Body = content

iMsg.Send

Set iMsg = Nothing
Set iConf = Nothing
set rsResults = nothing

SendEmailsToCurrentUsers = output