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 >
Text File  |  2017-09-21  |  2KB  |  76 lines
  1. <HTML><HEAD><TITLE>Virtual Riviera - Geoffrey's of London
  2. </TITLE></HEAD><BODY bgcolor=#FFFFCC Text=#190000>
  3. <CENTER><TABLE BORDER=2>
  4. <TR ALIGN=CENTER><TD><FONT SIZE=6>Welcome to
  5. <BR>Geoffrey's of London
  6. </FONT></TD></TR>
  7. </TABLE><P><FONT SIZE=4><B>The English & American Grocer in Antibes
  8. </CENTER>
  9. </B></FONT>
  10.  
  11. <! msql connect > 
  12. <! msql database  shopping >
  13. <! msql set $tst0 = "" >
  14. <! msql set $tst1 = "" >
  15. <! msql query " select distinct descript,code from div_codes where descript like '%$descript%' " result >
  16. <! msql set $tst0 = @result.0 >
  17. <! msql print_rows result 
  18.    "<img src=/shop/folder.gif align=middle> 
  19.    <A href=\"/cgi-bin/w3-msql/shop/geofgrp.htm?div_code=@result.1&cust_id=$cust_id\">@result.0</a><br>">
  20. <! msql free result>
  21.  
  22. <! msql query " select distinct descript,div_code,code from group_codes where descript like '%$descript%' " result >
  23. <! msql set $tst1 = @result.0 >
  24. <! msql print_rows result 
  25.    "<img src=/shop/folder.gif align=middle> 
  26.    <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>">
  27. <! msql free result>
  28.  
  29. <! msql query " select  products.desc_EN,products.productid,
  30.   group_codes.descript from  products,group_codes 
  31.  where products.desc_EN like '%$descript%'  and products.group_code=group_codes.code
  32. and products.div_code=group_codes.div_code " result>
  33. <! msql if ($tst0 == "")> 
  34. <! msql if ($tst1 == "")> 
  35. <! msql if ($cust_id == 0 ) > 
  36. <FONT SIZE = 4>
  37. Before you can order
  38. <A HREF="/shop/geoform.htm"><blink> you have to register as client. </A></blink> 
  39. </FONT>
  40. <UL>
  41. <TABLE>
  42. <TH>Product name <TH>Aisle  <TR>
  43. <! msql print_rows result 
  44. "<TD>@result.0 <TD>@result.2  <TR>">
  45. </UL>
  46. </TABLE>
  47. <! msql else>
  48. <FORM ACTION="http://www.riviera.fr/cgi-bin/geofbask.pl" METHOD="POST">
  49. <UL>
  50. <! msql print 
  51. "<INPUT TYPE=HIDDEN NAME=cust_id VALUE=$cust_id>">
  52. <TABLE>
  53. <TH>NR <TH>Product name <TH>Aisle  <TR>
  54. <! msql print_rows result 
  55. "<TD><INPUT NAME=@result.1 INPUT TYPE='text' SIZE=2><TD>@result.0 <TD>@result.2 <TR>">
  56. </TABLE>
  57. <CENTER>
  58. <INPUT TYPE="Submit" VALUE="Please Send "><INPUT TYPE="Reset">
  59. <! msql fi>
  60. <! msql fi>
  61. <! msql fi>
  62. <! msql print 
  63. "<BR><FONT SIZE=4><A HREF =shop/geoffrey.htm> Back to Welcome Page </A>
  64. <BR><A HREF =/cgi-bin/w3-msql/shop/geofdiv.htm?cust_id=$cust_id> Browse the aisles </A>
  65. <BR><A HREF=/cgi-bin/w3-msql/shop/geofmas.htm?cust_id=$cust_id> Call the Shop Assistant </A>">
  66. <! msql free result>
  67. <! msql close>
  68. </FONT>
  69. </CENTER>
  70. </FORM>
  71. </BODY>
  72. </HTML>
  73.  
  74.  
  75.  
  76.