SUBROUTINE TEXTAREA2
* Create a simple form containing 2 edit boxes, a text area
* and a submit button.
* Include the RealWeb definitions.
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
* Start the HTML page.
CALL RW_START_HTML_PAGE("Send a Message", "", "", "", "")
* Create the edit boxes.
BUF = "To:"
CALL RWA_EDIT_BOX(BUF, "TO", 30, "")
CALL RWA_NEWLINES(BUF, 1)
BUF = BUF : "Subject:"
CALL RWA_EDIT_BOX(BUF, "SUBJECT", 30, "")
CALL RWA_NEWLINES(BUF, 1)
* Set up the size and initial content of the text area.
ROWS = 12
COLS = 40
CLASS = ""
CONTENT="Type your message here"
* Create the text area.
CALL RWA_TEXT_AREA(BUF, "MESSAGE", ROWS, COLS, CONTENT, CLASS)
* Create the submit button
CALL RWA_SUBMIT_BUTTON(BUF, "SEND", "")
* Create the HTML form, specifying that this subroutine should be run
* again when the submit button is clicked.
CALL RWS_FORM(BUF, "TEXTAREA2", "FORM5", "")
* Output the HTML.
CALL RW_PUT(BUF)
* Complete the page.
CALL RW_END_PAGE
RETURN
Result