selectTest

subroutine SelectTest

***************************************************************************

* SelectTest Test the w3HtmlSelect API call

***************************************************************************

*

* [00] 10Mar00 jr Initial creation

include wbp w3Include

call w3HtmlInit("","")

subs     = "##TITLE##":@vm:"w3HtmlSelect Test"

subs<-1> = "##HEADLINE##":@vm:"Select Test"

call w3HtmlHeader("", subs)

call w3HtmlFormBeg(w3_NP, "")

call w3Printn("Use default template<BR>")

values   = ""                           ;* value of entry

text     = ""

selected = ""

subs     = ""

for i = 1 to 20

    values<i> = i

    if not(mod(i, 3)) then selected<i> = 1

    text<i>   = "Description ":i

next i

call w3HtmlSelect("Box1", values, text, selected, "", "MULTIPLE SIZE=5", subs)

call w3Printn("<p>Use specific template<P>")

subs     = "Message":@vm:"Please select several"

call w3HtmlSelect("Box2", values, text, selected, "SelectTest", "MULTIPLE SIZE=5", subs)

call w3HtmlSubmit("Submit", "Submit2", "")

call w3htmlFormEnd

call w3htmlFooter("","")

return