%function WriteToFile(FileName,FileContent)  
set fso=server.createobject("scripting.filesystemobject")  
set fp=fso.createtextfile(server.mappath(FileName),,True)  
fp.write(FileContent)  
end function%>  

%Function WriteToFile(FileName,FileContent)  
Set ccObjStream = Server.CreateObject("ADODB.Stream")  
With ccObjStream  
.Type = 2  
.Mode = 3  
.Open  
.Charset = "utf-8"  
.Position = ccObjStream.Size  
.WriteText FileContent  
.SaveToFile FileName,2  
.Close  
End With  
End Function%>