<? require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_before.php");?>

<?

CModule::IncludeModule('form');

if( is_writeable("3.csv")){

fclose("3.csv");

unlink("3.csv");

}

$title="id;Пол; Фамилия; Имя;\r\n";
$title2 = iconv("utf-8", "windows-1251",$title);

$fop1=fopen("3.csv","a");

fwrite($fop1,$title2);

fclose($fop1);

$FORM_ID=3;

$rsResults = CFormResult::GetList($FORM_ID);

while ($arResult = $rsResults->Fetch())

{

$arAnswer = CFormResult::GetDataByID($arResult['ID']);/* $arResult['ID'] id результата */

$RESULT_ID_F=$arAnswer['SIMPLE_QUESTION_895'][0]['RESULT_ID']; //ID
$F_Name_Latin=$arAnswer['SIMPLE_QUESTION_895'][0]['USER_TEXT']; // Фамилия
$Name_Latin=$arAnswer['SIMPLE_QUESTION_926'][0]['USER_TEXT']; // Имя

$csv_file=$RESULT_ID_F.”;”. $F_Name_Latin.”;”. $Name_Latin."\r\n";
$csv_file2 = iconv("utf-8", "windows-1251", $csv_file); // перекодируем для виндовс

$fo=fopen("3.csv","a");

fwrite($fo,$csv_file2);

fclose ("3.csv");

}?>

 <? require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/epilog_after.php");?>