<% @Language=VBSCRIPT %> <% ON ERROR RESUME NEXT %> Lütten - Ihre Feinkost-Küche
Lütten - Ihre Feinkost-Küche
Partyservice Firmenbeköstigung Präsentkörbe
Anlässe Catering Firmendetails
  <% 'Datenbank öffnen Dim Connection, RS, Page, Body Set Connection=Server.Createobject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/database/luetten.mdb") Set RS = Connection.Execute("SELECT * FROM plan WHERE kw=" & Datepart("Ww", Date) & " AND jahr=" & Year(Date)) If RS.EOF = TRUE Then %> Für die aktuelle Woche (KW<% =Datepart("Ww", Date) & " " & Year(Date)%>) gibt es leider noch keinen Speisenplan. <% Else %> Speisenplan <% =Datepart("Ww", Date) %>. Kalenderwoche <% =Year(Date) %>

Montag
<% Response.Write CStr(date() - weekday(date()) + 2) %>
Dienstag
<% Response.Write CStr(date() - weekday(date()) + 3) %>
Mittwoch
<% Response.Write CStr(date() - weekday(date()) + 4) %>
Donnerstag
<% Response.Write CStr(date() - weekday(date()) + 5) %>
Freitag
<% Response.Write CStr(date() - weekday(date()) + 6) %>
<% =Replace(RS("mo1"), vbcrlf, "
") %>  
<% =Replace(RS("di1"), vbcrlf, "
") %>  
<% =Replace(RS("mi1"), vbcrlf, "
") %>  
<% =Replace(RS("do1"), vbcrlf, "
") %>  
<% =Replace(RS("fr1"), vbcrlf, "
") %>  
<% =Replace(RS("mo2"), vbcrlf, "
") %>  
<% =Replace(RS("di2"), vbcrlf, "
") %>  
<% =Replace(RS("mi2"), vbcrlf, "
") %>  
<% =Replace(RS("do2"), vbcrlf, "
") %>  
<% =Replace(RS("fr2"), vbcrlf, "
") %>  
<% =Replace(RS("mo3"), vbcrlf, "
") %>  
<% =Replace(RS("di3"), vbcrlf, "
") %>  
<% =Replace(RS("mi3"), vbcrlf, "
") %>  
<% =Replace(RS("do3"), vbcrlf, "
") %>  
<% =Replace(RS("fr3"), vbcrlf, "
") %>  
<% =Replace(RS("mo4"), vbcrlf, "
") %>  
<% =Replace(RS("di4"), vbcrlf, "
") %>  
<% =Replace(RS("mi4"), vbcrlf, "
") %>  
<% =Replace(RS("do4"), vbcrlf, "
") %>  
<% =Replace(RS("fr4"), vbcrlf, "
") %>  
Sonderessen
<% =Replace(RS("mos"), vbcrlf, "
") %>  
<% =Replace(RS("dis"), vbcrlf, "
") %>  
<% =Replace(RS("mis"), vbcrlf, "
") %>  
<% =Replace(RS("dos"), vbcrlf, "
") %>  
<% =Replace(RS("frs"), vbcrlf, "
") %>  

Ab 5 Menüs Lieferung frei Haus.
Bestellung für Mittagstisch bis 10.00 Uhr.
Bankverbindung: Feinkost Lütten / Aachener Bank / BLZ 391 614 90 / Konto-Nr. 2100152013

Seite ausdrucken <% End If %> <% 'Zumachen Connection.Close %>

 
Trierer Straße 713 (Eingang Nordstraße) | 52078 Aachen-Brand
Telefon: 0241/526217 | Mobil: 0173/5389137 | Telefax: 0241/562714

E-Mail:
info@feinkost-luetten.de