We appreciate the enormous support that our ABestWeb community has experienced over the many years it has served its members and sponsors. We have decided to exit this business and have placed the property up for sale and we are actively entertaining interest.

In the meantime, community members will be able to read but not post to ABestWeb beginning on Jan. 18.

We want to thank you for your numerous contributions and your ongoing support. If you have any questions, please let us know.

'Delete (old) target file on local Hard drive
Set oFso = CreateObject("Scripting.FilesystemObject")
if oFso.Fileexists(sResultFilename) then
oFso.DeleteFile sResultFilename
end if

'Loop through Data Array and write into target file
Set oFile = oFso.CreateTextFile(sResultFilename,true,false)
for a = 0 to ubound(sResult)-1
On Error Resume Next
oFile.Writeline(sResult(a))
On Error Goto 0
next
oFile.Close
Set oFile = Nothing
Set oFso = Nothing

What it's doing is to grap the content from a dynamic ASP Page and writes it into a local file.