<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Ver_Menu__MMColParam Ver_Menu__MMColParam = "ES" If (Request("MM_EmptyValue") <> "") Then Ver_Menu__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Ver_Menu Dim Ver_Menu_numRows Set Ver_Menu = Server.CreateObject("ADODB.Recordset") Ver_Menu.ActiveConnection = MM_ConnOlmoDorado_STRING Ver_Menu.Source = "SELECT * FROM menu WHERE idioma = '" + Replace(Ver_Menu__MMColParam, "'", "''") + "' ORDER BY id ASC" Ver_Menu.CursorType = 0 Ver_Menu.CursorLocation = 2 Ver_Menu.LockType = 1 Ver_Menu.Open() Ver_Menu_numRows = 0 %> <% Dim Ver_promociones__MMColParam Ver_promociones__MMColParam = "es" If (Request("MM_EmptyValue") <> "") Then Ver_promociones__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Ver_promociones__MMColParam2 Ver_promociones__MMColParam2 = "SI" If (Request("MM_EmptyValue") <> "") Then Ver_promociones__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim Ver_promociones Dim Ver_promociones_numRows Set Ver_promociones = Server.CreateObject("ADODB.Recordset") Ver_promociones.ActiveConnection = MM_ConnOlmoDorado_STRING Ver_promociones.Source = "SELECT * FROM Promociones WHERE idioma = '" + Replace(Ver_promociones__MMColParam, "'", "''") + "' and activa='" + Replace(Ver_promociones__MMColParam2, "'", "''") + "'" Ver_promociones.CursorType = 0 Ver_promociones.CursorLocation = 2 Ver_promociones.LockType = 1 Ver_promociones.Open() Ver_promociones_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Ver_Menu_numRows = Ver_Menu_numRows + Repeat1__numRows %> <% Dim HLooper1__numRows HLooper1__numRows = -3 Dim HLooper1__index HLooper1__index = 0 Ver_promociones_numRows = Ver_promociones_numRows + HLooper1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> APART HOTEL BUENOS AIRES. OLMO DORADO APART HOTEL

<% While ((Repeat1__numRows <> 0) AND (NOT Ver_Menu.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Ver_Menu.MoveNext() Wend %>


Wifi available in the entire Hotel, free of charge in Public Areas.

Rooms for disabled people available.
Bienvenido al Olmo Dorado, un magnífico multiespacio adaptado a toda clase de necesidades y requerimientos que sólo a nuestros preciados huéspedes podemos satisfacer.
En nuestro establecimiento usted solo encontrará lugar para tomarse un merecido descanso y hacer del relax su más valiosa actividad así como también tomar contacto con sus clientes y desarrollar sus negocios.
Si busca hacer de su estancia una experiencia inolvidable, relájese en nuestras modernas instalaciones hechas para personas distinguidas como usted.


Nuestras Habitaciones

Servicios
Restaurante Gimnasio Terraza
Jacuzzi Solarium Solarium

Promociones
<% If Not Ver_promociones.EOF Or Not Ver_promociones.BOF Then %> <% End If ' end Not Ver_promociones.EOF Or NOT Ver_promociones.BOF %>
 
 
<% Ver_Menu.Close() Set Ver_Menu = Nothing %> <% Ver_promociones.Close() Set Ver_promociones = Nothing %>