create or replace procedure testi8 is style varchar2(8); submit_test varchar2(400); begin iht2.page_start('testisivu1'); -- append javascript checks iht2.js_checksonly; htp.p('<body bgcolor="white">'); -- select style: promp and field in a new row -- in 2 successive columns style:= 'NL_COL2'; -- heading on colored background iht2.colored_text('BLUE','GRAY','Otsikko',50,+1); -- fields nro and pvm are defined as non-empty submit_test:= iht2.value_required('nro'); -- first test iht2.add_any_js(iht2.value_required('pvm'),submit_test); -- next one -- submit_test is given as a parameter for the form tag iht2.form_start('http://kontti.helsinki.fi:8889/ttst/owa/t8r','post',submit_test); -- tabular layout is started iht2.table_start; -- numeric field iht2.form_number_field('Numero', 'nro',6, NULL,style); -- range field iht2.form_range_field('Väli 10-50','vali',4,10,50,NULL,style); -- date field iht2.form_date_field('Päiväys (pp.kk.vvvv)','pvm','1.1.1999',style); -- memo field iht2.form_textarea('Selityksiä','seli',NULL,40,3,style); -- menu with delivery values iht2.form_menu('Valikko','val','Yksi#1,Kaksi#2,Kolme#3','3',style); -- stop tabular layout iht2.table_end; htp.p('<p><hr>'); -- a row of two buttons iht2.form_2_standard_buttons('Lähetä','Tyhjennä'); iht2.form_end; -- print footer and end page iht2.page_end('15.2.1999','Esimerkki: Harri Laine'); end; / show errors exit