function
CreateHtml(mCode,mFilePath)
dim objFSO,objFile
set objFSO = server.CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.CreateTextFile(mFilePath,true)
objFile.WriteLine mCode
objFile.close
set objFile = nothing
set objFSO = nothing
end function
dim objFSO,objFile
set objFSO = server.CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.CreateTextFile(mFilePath,true)
objFile.WriteLine mCode
objFile.close
set objFile = nothing
set objFSO = nothing
end function