function update_html_files(HTMLDATA,COMLETE_HTML_FILE)
on error resume next
set FileObject = server.createobject("Scripting.FileSystemObject")
Set fText = FileObject.Createtextfile(COMLETE_HTML_FILE,true)
fText.writeline HTMLDATA
fText.close
Set fText = nothing
set FileObject = nothing
if err.number<>0 then
update_html_files = false
err.Clear
else
update_html_files = true
end if
end function