home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Internet 1996 World Exposition
/
park.org.s3.amazonaws.com.7z
/
park.org.s3.amazonaws.com
/
Events
/
Cannes
/
geofmas.tst
< prev
next >
Wrap
Text File
|
2017-09-21
|
2KB
|
76 lines
<HTML><HEAD><TITLE>Virtual Riviera - Geoffrey's of London
</TITLE></HEAD><BODY bgcolor=#FFFFCC Text=#190000>
<CENTER><TABLE BORDER=2>
<TR ALIGN=CENTER><TD><FONT SIZE=6>Welcome to
<BR>Geoffrey's of London
</FONT></TD></TR>
</TABLE><P><FONT SIZE=4><B>The English & American Grocer in Antibes
</CENTER>
</B></FONT>
<! msql connect >
<! msql database shopping >
<! msql set $tst0 = "" >
<! msql set $tst1 = "" >
<! msql query " select distinct descript,code from div_codes where descript like '%$descript%' " result >
<! msql set $tst0 = @result.0 >
<! msql print_rows result
"<img src=/shop/folder.gif align=middle>
<A href=\"/cgi-bin/w3-msql/shop/geofgrp.htm?div_code=@result.1&cust_id=$cust_id\">@result.0</a><br>">
<! msql free result>
<! msql query " select distinct descript,div_code,code from group_codes where descript like '%$descript%' " result >
<! msql set $tst1 = @result.0 >
<! msql print_rows result
"<img src=/shop/folder.gif align=middle>
<A href=\"/cgi-bin/w3-msql/shop/geofprod.htm?div_code=@result.1&group_code=@result.2&cust_id=$cust_id\">@result.0</a><br>">
<! msql free result>
<! msql query " select products.desc_EN,products.productid,
group_codes.descript from products,group_codes
where products.desc_EN like '%$descript%' and products.group_code=group_codes.code
and products.div_code=group_codes.div_code " result>
<! msql if ($tst0 == "")>
<! msql if ($tst1 == "")>
<! msql if ($cust_id == 0 ) >
<FONT SIZE = 4>
Before you can order
<A HREF="/shop/geoform.htm"><blink> you have to register as client. </A></blink>
</FONT>
<UL>
<TABLE>
<TH>Product name <TH>Aisle <TR>
<! msql print_rows result
"<TD>@result.0 <TD>@result.2 <TR>">
</UL>
</TABLE>
<! msql else>
<FORM ACTION="http://www.riviera.fr/cgi-bin/geofbask.pl" METHOD="POST">
<UL>
<! msql print
"<INPUT TYPE=HIDDEN NAME=cust_id VALUE=$cust_id>">
<TABLE>
<TH>NR <TH>Product name <TH>Aisle <TR>
<! msql print_rows result
"<TD><INPUT NAME=@result.1 INPUT TYPE='text' SIZE=2><TD>@result.0 <TD>@result.2 <TR>">
</TABLE>
<CENTER>
<INPUT TYPE="Submit" VALUE="Please Send "><INPUT TYPE="Reset">
<! msql fi>
<! msql fi>
<! msql fi>
<! msql print
"<BR><FONT SIZE=4><A HREF =shop/geoffrey.htm> Back to Welcome Page </A>
<BR><A HREF =/cgi-bin/w3-msql/shop/geofdiv.htm?cust_id=$cust_id> Browse the aisles </A>
<BR><A HREF=/cgi-bin/w3-msql/shop/geofmas.htm?cust_id=$cust_id> Call the Shop Assistant </A>">
<! msql free result>
<! msql close>
</FONT>
</CENTER>
</FORM>
</BODY>
</HTML>