<%@LANGUAGE="VBSCRIPT"%> <% option explicit Session.LCID = 1036 response.expires = 0 response.buffer = true dim MM_paris_encamp_STRING, tarifes, tarifes_numRows %> <% set tarifes = Server.CreateObject("ADODB.Recordset") tarifes.ActiveConnection = MM_paris_encamp_STRING tarifes.Source = "SELECT * FROM Tarifes" tarifes.CursorType = 0 tarifes.CursorLocation = 2 tarifes.LockType = 3 tarifes.Open() tarifes_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 tarifes_numRows = tarifes_numRows + Repeat1__numRows %> HotelParisEncamp


 
 
<% While ((Repeat1__numRows <> 0) AND (NOT tarifes.EOF)) %> bgcolor="#EDB1B1" <% else if tarifes.Fields.Item("Temporada").Value = "Mitja" then %>bgcolor="#FFE2A6" <% else if tarifes.Fields.Item("Temporada").Value = "Baixa" then %>bgcolor="#C1D1DB" <% end if %><% end if %><% end if %>> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 tarifes.MoveNext() Wend %>
Saison Pension Complète Demi-Pension Petit déjeuner
<%=(tarifes.Fields.Item("Temporada_fra").Value)%> <%=FormatNumber(tarifes.Fields.Item("PC").Value,2)%> € <%=FormatNumber(tarifes.Fields.Item("MP").Value,2)%> € <%=FormatNumber(tarifes.Fields.Item("AD").Value,2)%> €
 - Prix par personne / jour
 - Ces prix N'incluent PAS l'ISI (+4%)
 - Fermé: du 1/11 au 30/11
<% dim cal set cal = new calendar if Request.QueryString("mode") = "month" then cal.FullYearLink = "tarifas.asp?mode=month" Response.Write( Cal.MonthCal ) else cal.yr = Request.QueryString("year") Response.Write( Cal.YearCal ) end if set cal = nothing %>
  Av. Co-Príncep Episcopal  2 - AD200 Encamp (Principat d'Andorra) Telf.: / Fax: (+376) 731 525 info@hotelparisencamp.com
<% tarifes.Close() %>