Скачивание файла

function SaveURLAsFileToDatabase(URL, Dataset, DataFieldName) {
	var Extention = ExtractFileExtension(URL);
	if (IsEmptyValue(Extention)) {
		return;
	}
	var FileName = ExtractFileName(URL);
	var xml = new ActiveXObject("Microsoft.XMLHTTP");
	xml.Open("GET", URL, false);
	xml.Send();
	var oStream = new ActiveXObject("Adodb.Stream");
	var adTypeBinary = 1;
	var adSaveCreateOverWrite = 2;
	var adSaveCreateNotExist = 1;
	oStream.Type = adTypeBinary;
	oStream.Open();
	oStream.Write(xml.responseBody);
	var NewFileName = GetTemporaryFileName(FileName, true);
	oStream.SaveToFile(NewFileName, adSaveCreateNotExist);
	oStream.Close();
	SaveFileToDataset(NewFileName, Dataset, 'FileData');
	var FileObject = GetFileSystemObject();
	FileObject.DeleteFile(NewFileName);
}