<%@ LANGUAGE=VBScript %> <% 'IF Session("LoginPostCode") = "TAKEAWAY" then ' if Session("MENU") = "FALSE" THEN ' response.redirect "TakeAway.asp" ' end if 'END IF response.buffer = true Response.CacheControl = "PRIVATE" Response.Expires = 0 %> Bengal Cuisine - Menu <% ' session("postcode") = request.form("postcode") 'Set CnTandoori = Server.CreateObject( "ADODB.Connection" ) 'path = Server.Mappath("../data/Tandoori.mdb") 'CnTandoori.open "driver={Microsoft Access Driver (*.mdb)};dbq="& path IF Request.QueryString("MODE") = "EDITORDER" then session("InstructionsToShef") = Request.Form("txtInstructionsToShef") End if set CnlTandoori = session("CnTandoori") strlSQL = "SELECT Item.*,CATDescription,CATColor FROM Item, category WHERE Item.ITMCategoryID = Category.CATCategoryID " strlSQL =strlSQL & "order by ITMCategoryID,ITMItemNo" Set rstlItemList = Server.CreateObject("ADODB.Recordset") rstlItemList.open strlSQL,CnlTandoori,1,2 ' Open Categories table to display on top strlSQL = "SELECT * FROM Category Order by CATCategoryID" Set rstlCategoryList = Server.CreateObject("ADODB.Recordset") rstlCategoryList.open strlSQL,CnlTandoori,1,2 %>

Click on Information for instructions on placing On-line Orders.

Menu Listing (Place Your Order)
<% do while not rstlCategoryList.eof %> <% rstlCategoryList.MoveNext loop %>
<% if not rstlCategoryList.EOF then %> "> <%= rstlCategoryList("CATDescription") %> <% rstlCategoryList.MoveNext end if %> <% if not rstlCategoryList.EOF then %> "> <%= rstlCategoryList("CATDescription") %> <% rstlCategoryList.MoveNext end if %> <% if not rstlCategoryList.EOF then %> "> <%= rstlCategoryList("CATDescription") %> <% rstlCategoryList.MoveNext end if %> <% if not rstlCategoryList.EOF then %> "> <%= rstlCategoryList("CATDescription") %> <% rstlCategoryList.MoveNext end if %> <% if not rstlCategoryList.EOF then %> "> <%= rstlCategoryList("CATDescription") %> <% end if %>
<% strlPrevCategoryID="" strlCATColor="" intlCounter = 1 Do Until rstlItemList.EOF if strlPrevCategoryID <> rstlItemList("ITMCategoryID") then strlPrevCategoryID = rstlItemList("ITMCategoryID") strlCATColor = rstlItemList("CATColor") if trim(strlCATColor) = "" then strlCATColor = "#E0D5A4s" end if %> <%end if%> <% intlCounter = intlCounter + 1 rstlItemList.MoveNext Loop %>
Item Description  Price  Quantity
   "> <%= rstlItemList("CATDescription") %>    <% if intlCounter > 1 then %> <% end if %>
  <%= rstlItemList("ITMItemNo")%>   <%= rstlItemList("ITMDescription")%>  <%= formatnumber(rstlItemList("ITMUnitPrice"),2)%> <% 'here get the quantity from array if mode is EDITORDER. strlStyle = "background-color: white" IF Request.QueryString("MODE") = "EDITORDER" then strlItemArray = Session("strgItemArray") intlArrayUbound = Session("intgItemCount") strlQtyValue="" for i = 0 to intlArrayUbound-1 if strlItemArray(0,i) = rstlItemList("ITMItemNo") then strlQtyValue = strlItemArray(1,i) strlStyle = "background-color: yellow" exit for end if next ELSE strlQtyValue = "" END IF %> " size="4" value = "<%= strlQtyValue %>" onblur="CheckforDigit(this)" onfocus="QtyFocus(<%=rstlItemList("ITMItemNo")%>)"> )" >" src="../images/PlusQty1.jpg" width="21" height="20" alt="Press here " border="0"> )" >" src="../images/MinusQty1.jpg" width="21" height="20" alt="Press here " border="0">