kytschBASIC

SELECTINPUTOPT
VALUE, LABEL, SELECTED

Create a form select box option.

Example

IFNTE _GET("input_test") THEN

	PRINT "You submitted this,"

	LINE BREAK

	PRINT _GET("input_test")

END IF

FORM "form_test"

	SWRITE

		LINE BREAK

		TABLE "table-border"

			TBODY

				TROW

					TCELL

						PRINT "Active"

					END TCELL

					TCELL

						SELECTINPUT "input_test",, "form-input", "Please select an option"

							SELECTINPUTOPT ,"No page"

							SELECTINPUTOPT "page_one","Page one"

							SELECTINPUTOPT "page_two","Page two","page_two"

							SELECTINPUTOPT "page_three","Page three"

						END SELECTINPUT

					END TCELL

				END TROW

				TROW

					TCELL

						WHITESPACE

					END TCELL

					TCELL

						BUTTONSUBMIT "btn_test",,,,"submit"

					END TCELL

				END TROW

			END TBODY

		END TABLE

	END SWRITE

END FORM

Output

See also