function createfile(sfilename,scontent) set fso=server.CreateObject("scripting.filesystemobject") set f1=fso.opentextfile(sfilename,2,true,-1) f1.write(scontent) f1.close set fso=nothing end function
Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Open .Charset = "utf-8" .Position = objStream.Size .WriteText=str .SaveToFile server.mappath("/sitemap.xml"),2 .Close End With Set objStream = Nothing