Windows Script Host для Windows 2000/XP

 objListPersons.SaveData;
}
// Обработчики нажатий на кнопки в форме
//Функция-обработчик нажатия на кнопку "Сохранить"
function btnSave_OnClick {
 //Сохраняем данные из формы в XML-файле
 objListPersons.SaveData;
}
//Функция-обработчик нажатия на кнопку "Отменить"
function btnCancel_OnClick {
//Заново загружаем данные из текущего элемента массива
 //в форму
 objListPersons.LoadDialog;
 //Выводим сообщение в заголовке окна
 doc.title = "Данные восстановлены";
}
//Функция-обработчик нажатия на кнопку "<<"
function btnFirst_OnClick {
 //Проверяем, были ли сделаны изменения в форме
 if (objListPersons.IsChanged) { //Изменения были сделаны
 //Сохраняем данные в XML-файле
 objListPersons.SaveData;
 //Заново загружаем данные из XML-файла в массив PersonArr
 objListPersons.FileToArray;
 }
 //Переходим к первой записи в массиве
 objListPersons.FirstRecord;
 //Загружаем в форму данные из массива PersonArr
 //для первой записи
 objListPersons.LoadDialog;
 //Выводим сообщение в заголовке окна
 doc.title = "Запись N " + (objListPersons.CurRecord + 1);
}
//Функция-обработчик нажатия на кнопку "<"
function btnPrevious_OnClick {
 //Проверяем, были ли сделаны изменения в форме
 if (objListPersons.IsChanged) { //Изменения были сделаны
 //Сохраняем данные в XML-файле
 objListPersons.SaveData;
 //Заново загружаем данные из XML-файла в массив PersonArr
 objListPersons.FileToArray;
 }
 //Переходим к предыдущей записи в массиве
 objListPersons.PreviousRecord;
 //Загружаем в форму данные из массива PersonArr
 //для текущей записи
 objListPersons.LoadDialog;
 //Выводим сообщение в заголовке окна
 doc.title = "Запись N " + (objListPersons.CurRecord + 1);
}
//Функция-обработчик нажатия на кнопку "Новая запись"
function btnNew_OnClick {
 //Проверяем, были ли сделаны изменения в форме
 if (objListPersons.IsChanged) { //Изменения были сделаны
 //Сохраняем данные в XML-файле
 objListPersons.SaveData;
//Заново загружаем данные из XML-файла в массив PersonArr
 objListPersons.FileToArray;
 }
 //Добавляем новую запись в XML-файл
 objListPersons.NewRecord;
 //Загружаем в форму данные из массива PersonArr
 //для добавленной записи
 objListPersons.LoadDialog;
 //Выводим сообщение в заголовке окна
 doc.title = "Добавлена новая запись";
}
//Функция-обработчик нажатия на кнопку "Удалить"
function btnDelete_OnClick {
 //Удаляем текущую запись из XML-файла
 objListPersons.DelRecord;
 //Загружаем в форму данные из массива PersonArr
 //для первой записи
 objListPersons.LoadDialog;
 //Выводим сообщение в заголовке окна
 doc.title = "Запись удалена";
}
//Функция-обработчик нажатия на кнопку ">"
function btnNext_OnClick {
 //Проверяем, были ли сделаны изменения в форме
 if (objListPersons.IsChanged) { //Изменения были сделаны
 //Сохраняем данные в XML-файле
 objListPersons.SaveData;
 //Заново загружаем данные из XML-файла в массив PersonArr
 objListPersons.FileToArray;
 }
 //Переходим к следующей записи в массиве
 objListPersons.NextRecord;
 //Загружаем в форму данные из массива PersonArr
 //для текущей записи
 objListPersons.LoadDialog;
 //Выводим сообщение в заголовке окна
 doc.title = "Запись N " + (objListPersons.CurRecord + 1);
}
//Функция-обработчик нажатия на кнопку ">>"
function btnFinal_OnClick {
 //Проверяем, были ли сделаны изменения в форме
 if (objListPersons.IsChanged) { //Изменения были сделаны
 //Сохраняем данные в XML-файле
 objListPersons.SaveData;
 //Заново загружаем данные из XML-файла в массив PersonArr
 objListPersons.FileToArray;
 }
 //Переходим к последней записи в массиве
 objListPersons.FinalRecord;
 //Загружаем в форму данные из массива PersonArr