<% 'koppla databas Set conn = Server.CreateObject("ADODB.Connection") ' response.write(server.mappath("\db\ratter.mdb")) conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="+server.mappath("\db\meny.mdb") 'hämta veckomenynummer datum = Date offset = -1 'justerar menyn så att den stämmer med den menyn som används på restaurangen vecka = DatePart("ww",datum) + offset dag = DatePart("w",datum,vbMonday) vnr = vecka - (int(vecka/4)*4) if request("dag")<>"" then dag = request("dag") end if if vnr=0 then vnr=4 end if ' response.write(vnr & " / " & vecka & " / " & dag) 'hämta rätter SQL = "select * from ratter where ratter_vecka=" & vnr & " and ratter_dag = " & dag ' SQL = "select * from ratter where ratter_vecka=1 and ratter_dag = " & request("dag") set ratter = conn.execute(SQL) %> Dagens från Masala House
<% do while not ratter.eof namn = ratter("ratter_namn") beskr = ratter("ratter_beskr") styrka = ratter("ratter_styrka") no = ratter("ratter_no") %> <% ratter.movenext loop %>
           
      Lunchmeny 55:-  
      2 rätter = 1 lunch för 55:-   Naanbröd 10:-    
           
  <%=no%>.   <% for i=1 to styrka %> Chili <% next %> <%=namn%>  
      <%=beskr%>