Dosya kaydet

Sub SaveFile(TextToSave, PathInfo, FileIn)
	Dim FileObject, a
	Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
	Set a = FileObject.CreateTextFile(PathInfo & FileIn, True)
	a.WriteLine(TextToSave)
	a.Close
	Set a = Nothing
	Set FileObject = Nothing
End Sub

Sub WriteLine(strText)
	Response.Write strText & vbCrLf
End Sub