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

<%=(Temporada.Fields.Item("Temporada_promocio_eng").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_eng").Value)%>   <% If Promocions.Fields.Item("Descripcio_eng").Value <> "" then %><%=Replace(Promocions.Fields.Item("Descripcio_eng").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_eng").Value,Chr(13)," ")%>

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