blob: 0391ea047bff1f163a2b0dc7a464ab9b0eddf355 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
table t : { N : float }
fun insert r =
dml (INSERT INTO t (N) VALUES ({[readError r.N]}));
return <xml/>
fun main () = return <xml><body>
<form>
<textbox{#N}/>
<submit action={insert}/>
</form>
</body></xml>
|