$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'
<$RVAR.name> Update
';; } elsif('<$RVAR.mod>' eq 'SEARCH') { print'
<$RVAR.name> Search
'; } else { print'
<$RVAR.name> Add
'; } $RPERL>
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'>
<$R[1].LOOP>
<$RPIC.N(.0).'<$R[1].SQL.number>'>
<$R[1].END>
Areas of interest
<$R[1].Q='SELECT code,LEFT(name,14) name FROM tbl WHERE tbl="INTRST" and LANGUG_CODE='en' order by name'>
<$R[1].LOOP>
<$R[1].SQL.name>
<$R[1].END>
Comments
Contact details - for your eyes only
City
Street
Num
Zipcode
E-mail
Phone
Cellular
Purpose of contact