Set Word = CreateObject(“Word.Application”)
Set Tasks = Word.Tasks
For Each Task in Tasks
If Task.Visible Then response.Write Task.Name &"
"
Next
Word.Quit
Set word=nothing
set tasks=nothing
Set Word = CreateObject(“Word.Application”)
Set Tasks = Word.Tasks
For Each Task in Tasks
If Task.Visible Then response.Write Task.Name &"
"
Next
Word.Quit
Set word=nothing
set tasks=nothing