<%@LANGUAGE="VBSCRIPT"%> <% set Temporada = Server.CreateObject("ADODB.Recordset") Temporada.ActiveConnection = MM_paris_encamp_STRING Temporada.Source = "SELECT ID, Temporada_promocio_fra, Text_aplicable_fra FROM Promocions_temporada WHERE Activa = -1 ORDER BY ID ASC;" Temporada.CursorType = 0 Temporada.CursorLocation = 2 Temporada.LockType = 3 Temporada.Open() Temporada_numRows = 0 %> HotelParisEncamp


 

 

 

 

 

<% If Not Temporada.EOF Or Not Temporada.BOF Then %>

<%=(Temporada.Fields.Item("Temporada_promocio_fra").Value)%>

<% Dim Promocions__MMColParam Promocions__MMColParam = "" if ((Temporada.Fields.Item("ID").Value) <> "") then Promocions__MMColParam = (Temporada.Fields.Item("ID").Value) %> <% set Promocions = Server.CreateObject("ADODB.Recordset") Promocions.ActiveConnection = MM_paris_encamp_STRING Promocions.Source = "SELECT * FROM Promocions WHERE ID = " + Replace(Promocions__MMColParam, "'", "''") + " ORDER BY Ident ASC;" Promocions.CursorType = 0 Promocions.CursorLocation = 2 Promocions.LockType = 3 Promocions.Open() Promocions_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Promocions_numRows = Promocions_numRows + Repeat1__numRows %> <% If Not Promocions.EOF Or Not Promocions.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT Promocions.EOF)) %>
 <%=(Promocions.Fields.Item("Ident").Value)%>. <%=(Promocions.Fields.Item("Promocio_fra").Value)%>
  <% if (Promocions.Fields.Item("Descripcio_fra").Value) <> "" then %><%=Replace(Promocions.Fields.Item("Descripcio_fra").Value,Chr(13),"
")%><% end if %>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Promocions.MoveNext() Wend %> <% End If ' end Not Promocions.EOF Or NOT Promocions.BOF %>

<%=Replace(Temporada.Fields.Item("Text_aplicable_fra").Value,Chr(13),"
")%>

<% End If ' end Not Temporada.EOF Or NOT Temporada.BOF %>

 

  Av. Co-Príncep Episcopal  2 - AD200 Encamp (Principat d'Andorra) Telf.: / Fax: (+376) 731 525 info@hotelparisencamp.com
<% Promocions.Close() %> <% Temporada.Close() %>