<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_menu Dim rs_menu_numRows Set rs_menu = Server.CreateObject("ADODB.Recordset") rs_menu.ActiveConnection = MM_conn_hotel_kreusch_STRING rs_menu.Source = "SELECT * FROM t_kreusch_menu ORDER BY menu_id, menu_code ASC" rs_menu.CursorType = 0 rs_menu.CursorLocation = 2 rs_menu.LockType = 1 rs_menu.Open() rs_menu_numRows = 0 %> <% Dim rs_specialites Dim rs_specialites_numRows Set rs_specialites = Server.CreateObject("ADODB.Recordset") rs_specialites.ActiveConnection = MM_conn_hotel_kreusch_STRING rs_specialites.Source = "SELECT * FROM t_kreusch_specialites" rs_specialites.CursorType = 0 rs_specialites.CursorLocation = 2 rs_specialites.LockType = 1 rs_specialites.Open() rs_specialites_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_menu_numRows = rs_menu_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rs_specialites_numRows = rs_specialites_numRows + Repeat2__numRows %> Hotel Restaurant Kreusch
* Voir nos spécialités

<%=(rs_menu.Fields.Item("menu_nom_en").Value)%>
 
<% While ((Repeat1__numRows <> 0) AND (NOT rs_menu.EOF))%> <%=(rs_menu.Fields.Item("menu_l1_en").Value)%>
 <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_menu.MoveNext() Wend %>


Nos spécialités de gibier
 
<% While ((Repeat2__numRows <> 0) AND (NOT rs_specialites.EOF)) %> <%=(rs_specialites.Fields.Item("spec_nom_en").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs_specialites.MoveNext() Wend %>
 
   
Reservation
<% rs_menu.Close() Set rs_menu = Nothing %> <% rs_specialites.Close() Set rs_specialites = Nothing %>