Hello there! I hope that this will help you!
procedure MYPROC is
- Declare a cursor C1 with your select statement ***
begin
htp.formOpen(curl=>'http://mywebsite/mysite',cmethod=>'POST');
htp.tableOpen;
htp.tableRowOpen;
htp.tableData(cvalue=>htf.bold(ctext=>'Prompt1:'));
htp.print(cbuf=>'<TD>');
htp.formSelectOpen(cname=>'Prompt2',nsize=>'1');
begin
for C1REC in C1 loop
htp.print(cbuf=>'<OPTION
value="'||C1REC.column_name1||
'">'||C1REC.column_name2||'</OPTION>');
end loop;
exception
when others then
begin
ERROR_CODE := SQLCODE;
htp.print('ERROR: '||to_char(error_code)||'
'||SQLERRM(error_code));
end;
end;
htp.formSelectClose;
htp.print(cbuf=>'</TD>');
htp.tableRowClose;
htp.tableRowOpen;
htp.tableData(cvalue=>htf.formSubmit||'
'||htf.formReset,calign=>'center',ccolspan=>'2');
htp.tableRowClose;
htp.tableClose;
htp.formClose;
end MYPROC;
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
Received on Thu Apr 23 1998 - 10:02:54 CDT
