$result = "<select name=\"ryear".$ext."\">";
////////
$result .= "<option>---</option>";
////////////
for ($i = 1965; $i<2050; $i++)
{
$selected = ($i==$s_year) ? "selected=\"selected\"" : '';
$result .= "<option value=\"$i\" $selected>$i</option>";
}
$result .= ($utime==0) ? "<option value=\"0\" selected=\"selected\">---</option>" : "<option
value=\"0\">---</option>";
$result .= "</select>";
$result .= "<select name=\"rmonth".$ext."\">";
////////
$result .= "<option>---</option>";
////////////
reset($p_monthes);
foreach ($p_monthes as $k => $line)
{
$selected = ($line[1]==$s_month) ? "selected=\"selected\"" : '';
$result .= "<option value=\"".$line[0]."\" $selected>".$line[1]."</option>";
}
$result .= ($utime==0) ? "<option value=\"0\" selected=\"selected\">---</option>" : "<option
value=\"0\">---</option>";
$result .= "</select>";

$result = "<select name=\"ryear".$ext."\">";
////////
$result .= "<option>---</option>";
////////////
for ($i = 1965; $i<2050; $i++)
{
$selected = ($i==$s_year) ? "selected=\"selected\"" : '';
$result .= "<option value=\"$i\" $selected>$i</option>";
}
$result .= ($utime==0) ? "<option value=\"0\" selected=\"selected\">---</option>" : "<option
value=\"0\">---</option>";
$result .= "</select>";
$result .= "<select name=\"rmonth".$ext."\">";
////////
$result .= "<option>---</option>";
////////////
reset($p_monthes);
foreach ($p_monthes as $k => $line)
{
$selected = ($line[1]==$s_month) ? "selected=\"selected\"" : '';
$result .= "<option value=\"".$line[0]."\" $selected>".$line[1]."</option>";
}
$result .= ($utime==0) ? "<option value=\"0\" selected=\"selected\">---</option>" : "<option
value=\"0\">---</option>";
$result .= "</select>";

$result = "<select name=\"rday".$ext."\">";
////////
$result .= "<option>---</option>";
////////////
for ($i = 1; $i<31; $i++)
{
$selected = ($i==$s_day) ? "selected=\"selected\"" : '';
$result .= "<option value=\"$i\" $selected>$i</option>";
}
$result .= ($utime==0) ? "<option value=\"0\" selected=\"selected\">---</option>" :