Welcome to Centec

This is the home of Centec, we are here to help to develop the skills and entrepreneurship of the local community...

 

<% Dim fsoObject 'FileSystemObject Dim fileObject 'File Object Dim tsObject 'TextStream Object Dim strEnding Const ForAppending = 8 Const TristateFalse = 0 strEnding = "This is the end" Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set fileObject = fsoObject.GetFile("") Set tsObject = fileObject.OpenAsTextStream(ForAppending, TristateFalse) tsObject.Write strEnding %> Back to top of page