01.Function WriteToFile(FileName, FileContent)
02.
03.
04.
05.
06. If FileName <> "" Then
07.
08. Dim FileObj
09. Set FileObj = Server.CreateObject("Scripting.FileSystemObject")
10. Dim MyFile
11.
12. Set MyFile = FileObj.CreateTextFile(FileName)
13. Dim I
14. For I = 1 To LenB(FileContent)
15. MyFile.Write Chr(AscB(MidB(FileContent, I, 1)))
16. Next
17. MyFile.Close
18. WriteToFile = True
19. Else
20. WriteToFile = False
21. End If
22.End Function
