<%
' generic function for writing a file
function writeWholeFile(ptf, txt)
	Dim FileSystemObject, wf
	debug("ptf: " & ptf)
	' debug("txt: " & txt)
	Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
	On Error Resume Next
		Set wf = FileSystemObject.OpenTextFile (ptf, 2, True)
		wf.Write(txt)
	wf.Close
	Set wf = Nothing
	debug("file writing error? " & err.description)
	Set wfso = Nothing
end function
%>