TEXTAREA Example (RealWeb)

SUBROUTINE TEXTAREA1
* Create a simple form containing 2 edit boxes, 2 text areas
* 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", "", "", "", "")

* Start the HTML form, specifying that this subroutine should be run
* again when the submit button is clicked
CALL RW_START_HTML_FORM("TEXTAREA1","FORM4","")

CALL RW_PUT("To:")
CALL RW_EDIT_BOX("TO",30,"")
CALL RW_NEWLINE
CALL RW_PUT("Subject:")
CALL RW_EDIT_BOX("SUBJECT",30,"")
CALL RW_NEWLINE

* Set up the size and initial content of the text area
ROWS=12
COLS=40
CLASS=""
CONTENT="Type your message here"

* Display the text area
CALL RW_TEXT_AREA("MESSAGE",ROWS,COLS,CONTENT,CLASS)

* Create the submit button
CALL RW_SUBMIT_BUTTON("SEND","")

* Complete the form
CALL RW_END_FORM

* Complete the page.
CALL RW_END_PAGE
RETURN

HTML

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML>
<HEAD>
<META NAME="Generator" CONTENT="Reality">
<TITLE>Send a Message</TITLE>


</HEAD>
<BODY>
<FORM ACTION="TEXTAREA1" NAME="FORM4" METHOD="POST">

To:
<INPUT NAME="TO" SIZE="30" TYPE="TEXT">
<BR>

Subject:
<INPUT NAME="SUBJECT" SIZE="30" TYPE="TEXT">
<BR>
<TEXTAREA NAME="MESSAGE" COLS="40" ROWS="12">Type your message here</TEXTAREA>
<INPUT TYPE="submit" VALUE="SEND">
</FORM>
</BODY>
</HTML>