<$RSET.base='"http://www.raz.co.il"'> <$RTEMPLATE> <$RIF.'"<$RVAR.mod>" eq "UPDATE"'> <$RQ='SELECT * FROM guests WHERE rid=<$RVAR.rid>'> <$REND_IF>
<$RPERL.B> if('<$RVAR.mod>' eq 'UPDATE') { print'';; } elsif('<$RVAR.mod>' eq 'SEARCH') { print''; } else { print''; }
<$RVAR.name> Update
<$RVAR.name> Search
<$RVAR.name> Add
Exit Cancel Add record Update record Search Print Back Forward Help
  Exit Cancel Add record Update record Search Print Back Forward Help
Guest Book - Merge Demo Application
Last name
First name
Grade
<$R[1].Q='SELECT code,number FROM tbl WHERE tbl="MRKTBL" and LANGUG_CODE='en' ORDER BY number'>
Areas of interest
<$R[1].Q='SELECT code,LEFT(name,14) name FROM tbl WHERE tbl="INTRST" and LANGUG_CODE='en' order by name'>
Comments
Contact details - for your eyes only
City
Street
Num
Zipcode
E-mail
Phone
Cellular
Purpose of contact