GNTOS NEWSLETTERS
You need Adobe Acrobat Reader. Don't have it? Click here to Download it for free!
CLICK ON ANY OF THE MONTHS BELOW TO SEE THE NEWSLETTERS.
We started publishing the newsletter online since MARCH 2006.
2008
May 2008
April 2008
March 2008
February 2008
January 2008
2007
December 2007
November 2007
October 2007
September 2007
August 2007
July 2007
June 2007
May 2007
April 2007
March 2007
February 2007
January 2007
2006
%
Dim strPath 'Path of directory to show
Dim objFSO 'FileSystemObject variable
Dim objFolder 'Folder variable
Dim objItem 'Variable used to loop through the folder contents
' Relative path to directory:
strPath = "./Newsletters/"
' Create our FSO and get a handle on our folder
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
' Just list files:
For Each objItem In objFolder.Files
Response.Write "" _
& objItem.Name & "
" & vbCrLf
Next 'objItem
' Done! Kill off our object variables.
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>