SUBROUTINE CHECKBOX
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
CALL RW_START_HTML_PAGE("Form with Checkboxes", "", "", "", "")
CALL RW_PUT("Please check the relevant boxes to indicate which " : ...
"course modules you require")
CALL RW_START_HTML_FORM("RESPONSE","FORM5","")
CALL RW_NEWLINE
CALL RW_CHECKBOX("module","Word Processing",0,0,"")
CALL RW_PUT("Word Processing")
CALL RW_NEWLINE
CALL RW_CHECKBOX("module","Spreadsheets",0,0,"")
CALL RW_PUT("Spreadsheets")
CALL RW_NEWLINE
CALL RW_CHECKBOX("module","Databases",0,0,"")
CALL RW_PUT("Databases")
CALL RW_NEWLINE
CALL RW_CHECKBOX("module","Web Page Design",0,0,"")
CALL RW_PUT("Web Page Design")
CALL RW_NEWLINES(2)
CALL RW_RESET("CLEAR","Clear Selections","")
CALL RW_SUBMIT_BUTTON("Submit Details","")
CALL RW_END_FORM
CALL RW_END_PAGE
RETURN
SUBROUTINE RESPONSE
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
EQU VM TO CHAR(253)
CALL RW_START_HTML_PAGE("Response to Form", "", "", "", "")
CALL RW_PUT("Thank you for your selections")
CALL RW_NEWLINE
CALL RW_GET_PARAM("module", MODULES)
IF MODULES NE "" THEN
MODULES2 = CHANGE(MODULES, VM, ", ")
CALL RW_PUT('We will send you the following modules "':MODULES2:'"')
END
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>Form with Checkboxes</TITLE>
</HEAD>
<BODY>
Please check the relevant boxes to indicate which course modules you require
<FORM ACTION="RESPONSE" NAME="FORM5" METHOD="POST">
<BR>
<INPUT TYPE=CHECKBOX NAME="module" VALUE="Word Processing">
Word Processing
<BR>
<INPUT TYPE=CHECKBOX NAME="module" VALUE="Spreadsheets">
Spreadsheets
<BR>
<INPUT TYPE=CHECKBOX NAME="module" VALUE="Databases">
Databases
<BR>
<INPUT TYPE=CHECKBOX NAME="module" VALUE="Web Page Design">
Web Page Design
<BR>
<BR>
<INPUT TYPE=RESET NAME="CLEAR" VALUE="Clear Selections">
<INPUT TYPE="submit" VALUE="Submit Details">
</FORM>
</BODY>
</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>Response to Form</TITLE>
</HEAD>
<BODY>
Thank you for your selections
<BR>
We will send you the following modules "Word Processing, Web Page Design"
</BODY>
</HTML>