parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

Pomogite s zapis`ju v fajl!

Beckett 04.09.2002 08:17

Est` kod:

<form method="post">
<font size="5"><center> Add yourself!</font><br><br><br>
<font size="2">Full name:</font><br><input tabindex="1" maxlength="25" name="edFIO" size="50%" value=""><br><br>
<font size="2">Birthdate:</font><br><input tabindex="2" maxlength="25" name="edBD" size="50%" value=""><br><br>
<font size="2">Status (grad/nongrad):</font><br><input tabindex="3" maxlength="25" name="edSTAT" size="50%" value=""><br><br>
<font size="2">Major:</font><br><input tabindex="4" maxlength="25" name="edMAJ" size="50%" value=""><br><br>
<font size="2">UNI Address + Phone:</font><br><input tabindex="5" maxlength="50" name="edHAD" size="50%" value=""><br><br>
<font size="2">Work Address + Phone:</font><br><input tabindex="6" maxlength="50" name="edWAD" size="50%" value=""><br><br>
<font size="2">Motherland Address:</font><br><input tabindex="7" maxlength="50" name="edMLAD" size="50%" value=""><br><br>
<font size="2">Alma Mater:</font><br><input tabindex="8" maxlength="25" name="edAM" size="50%" value=""><br><br>
<font size="2">E-m@il:</font><br><input tabindex="9" maxlength="25" name="edEMAIL" size="50%" value=""><br><br>
<input name="posted" type="submit" value="Submit form" tabindex="10">
<input name="reset" type="reset" value="Reset form" tabindex="11">
</form>
^if(def $form:edFIO && def $form:edBD && def $form:edSTAT && def $form:edMAJ && def $form:edHAD && def $form:edWAD && def $form:edMLAD && def $form:edAM && def $form:EMAIL){
$db[^table::load[records.dat]]
^db.append{$form:edFIO $form:edBD $form:edSTAT $form:edMAJ $form:edHAD $form:edWAD $form:edMLAD $form:edAM $form:EMAIL}
^db.save[records.dat]
$response:refresh[
$.value[0]
$.url[/survey/]
]

}


...a v records.dat nichego ne pishetsia... :((( Help!!!!