%
FileName= FileNameNoticeboard
Function ReadFile(FileContent, FileName)
set objFs = server.createobject("Scripting.FileSystemObject")
set objTextFile = objFs.OpenTextFile(FileName, 1)
set objFS = nothing
Do Until objTextFile.AtEndOfStream
FileContent = FileContent + objTextFile.ReadLine + "
"
Loop
End function
ReadFile FileContent, FileName
On error resume next
%>



The Purse Museum |
||
| See 350 purses and handbags dating from 1650 | THE PURSE MUSEUM IS NO LONGER OPERATING | Katoomba beautiful Blue Mountains |
|
As recently on radio, seen in the press and featured on "Sydney Weekender" Channel 7. |