15 lines
378 B
Plaintext
15 lines
378 B
Plaintext
<% USING: namespaces kernel html io sequences ; %>
|
|
|
|
<select name="<% "name" get write %>" style="width: 200px;" size="20"
|
|
onchange="JavaScript:document.getElementById('main').submit();">
|
|
|
|
<%
|
|
"options" get [
|
|
<option dup "current" get = [ "selected" =selected ] when option>
|
|
write
|
|
</option>
|
|
] each
|
|
%>
|
|
|
|
</select>
|