/* ************************************* */ /* Input from a form comes in the form: */ /* name1=value1&name2=value2 */ /* Here we decode the input into an */ /* array of names and values. */ /* ************************************* */ DO I=1 BY 1 UNTIL Input='' PARSE VAR Input Name.I'='Value.I'&'Input Name.I=DeWeb(Name.I); Value.I=DeWeb(Value.I) END I