SUBROUTINE FIELDSET
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
CALL RW_START_HTML_PAGE("Name and Address Details", "", "", "", "")
CALL RW_START_HTML_FORM("FORMHF2", "NAMEFORM", "")
CALL RW_PUT("Enter your name and address, then click Submit to continue")
CALL RW_NEWLINES(2)
BUF="Name: "
CALL RWA_EDIT_BOX(BUF,"NAME", 30,"")
CALL RWA_NEWLINES(BUF,1)
BUF=BUF:"Address: "
CALL RWA_EDIT_BOX(BUF,"ADD1", 30,"")
CALL RWA_NEWLINES(BUF,1)
BUF=BUF:" "
BUF=BUF:" "
CALL RWA_EDIT_BOX(BUF,"ADD2", 30,"")
CALL RWA_NEWLINES(BUF,1)
BUF=BUF:" "
BUF=BUF:" "
CALL RWA_EDIT_BOX(BUF,"ADD3", 30,"")
CALL RWA_NEWLINES(BUF,1)
BUF=BUF:"Postcode: "
CALL RWA_EDIT_BOX(BUF, "PCODE", 7, "")
CALL RWA_NEWLINES(BUF,2)
CALL RWS_FIELDSET(BUF, "")
CALL RW_PUT(BUF)
CALL RW_SUBMIT_BUTTON("Submit","")
CALL RW_END_FORM
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>Name and Address Details</TITLE>
</HEAD>
<BODY>
<FORM ACTION="FORMHF2A" NAME="NAMEFORM" METHOD="POST">
Enter your name and address, then click Submit to continue
<BR>
<BR>
<FIELDSET>
Name: <INPUT NAME="NAME" SIZE="30" TYPE="TEXT">
<BR>
Address: <INPUT NAME="ADD1" SIZE="30" TYPE="TEXT">
<BR>
<INPUT NAME="ADD2" SIZE="30" TYPE="TEXT">
<BR>
<INPUT NAME="ADD3" SIZE="30" TYPE="TEXT">
<BR>
Postcode: <INPUT NAME="PCODE" SIZE="7" TYPE="TEXT">
<BR>
<BR>
</FIELDSET>
<INPUT TYPE="submit" VALUE="Submit">
</FORM>
</BODY>
</HTML>