<%@LANGUAGE="VBSCRIPT"%> <% if (request("codepartenaire")<>"") then Session("partenaire")=request("codepartenaire") on error resume next session("cookies")="ok" Dim rstPacks Dim rstPacks_numRows Set rstPacks = Server.CreateObject("ADODB.Recordset") rstPacks.ActiveConnection = MM_connPacks_STRING rstPacks.Source = "SELECT packs.packID,packs.nomPackAN, [gammes_ch]![prix_1]+[gammes_skis]![prix_1] AS prix1, [gammes_ch]![prix_6]+[gammes_skis]![prix_6] AS prix6 FROM gammes_skis RIGHT JOIN (gammes_ch RIGHT JOIN packs ON gammes_ch.gammeChaussureID = packs.chaussure) ON gammes_skis.gammeSkisID = packs.ski WHERE (((packs.snowboard)=False)) ORDER BY packs.rang;" rstPacks.CursorType = 0 rstPacks.CursorLocation = 2 rstPacks.LockType = 1 rstPacks.Open() rstPacks_numRows = 0 %> <% Dim rstAccomptesMini__MMColParam rstAccomptesMini__MMColParam = "0" If (Request("MM_EmptyValue") <> "") Then rstAccomptesMini__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rstAccomptesMini Dim rstAccomptesMini_numRows Set rstAccomptesMini = Server.CreateObject("ADODB.Recordset") rstAccomptesMini.ActiveConnection = MM_connPacks_STRING rstAccomptesMini.Source = "SELECT accompte FROM accomptes WHERE prix_mini = " + Replace(rstAccomptesMini__MMColParam, "'", "''") + "" rstAccomptesMini.CursorType = 0 rstAccomptesMini.CursorLocation = 2 rstAccomptesMini.LockType = 1 rstAccomptesMini.Open() rstAccomptesMini_numRows = 0 %> <% Dim rstAccompteMaxi__accompt rstAccompteMaxi__accompt = 1000 %> <% Dim rstAccompteMaxi Dim rstAccompteMaxi_numRows Set rstAccompteMaxi = Server.CreateObject("ADODB.Recordset") rstAccompteMaxi.ActiveConnection = MM_connPacks_STRING rstAccompteMaxi.Source = "SELECT accompte FROM accomptes WHERE " + Replace(rstAccompteMaxi__accompt, "'", "''") + "< prix_maxi;" rstAccompteMaxi.CursorType = 0 rstAccompteMaxi.CursorLocation = 2 rstAccompteMaxi.LockType = 1 rstAccompteMaxi.Open() rstAccompteMaxi_numRows = 0 %> <% Dim rstPacksSnow Dim rstPacksSnow_numRows Set rstPacksSnow = Server.CreateObject("ADODB.Recordset") rstPacksSnow.ActiveConnection = MM_connPacks_STRING rstPacksSnow.Source = "SELECT packs.packID,packs.nomPackAN, [gammes_ch]![prix_1]+[gammes_skis]![prix_1] AS prix1, [gammes_ch]![prix_6]+[gammes_skis]![prix_6] AS prix6 FROM gammes_skis RIGHT JOIN (gammes_ch RIGHT JOIN packs ON gammes_ch.gammeChaussureID = packs.chaussure) ON gammes_skis.gammeSkisID = packs.ski WHERE (((packs.snowboard)=True)) ORDER BY packs.rang;" rstPacksSnow.CursorType = 0 rstPacksSnow.CursorLocation = 2 rstPacksSnow.LockType = 1 rstPacksSnow.Open() rstPacksSnow_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rstPacks_numRows = rstPacks_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rstPacksSnow_numRows = rstPacksSnow_numRows + Repeat2__numRows %> Book your skiing or snowboarding equipment on-line in Chamonix valley
Version française
Home
Ski shop Summer activities Winter activities Ski rental : on-line booking Pictures gallery Access Links Contact

Save time and book your skiing or snowboarding equipment on-line !

you can book for one to 14 days only with a deposit of <%=(rstAccomptesMini.Fields.Item("accompte").Value)%> to <%=(rstAccompteMaxi.Fields.Item("accompte").Value)%> euros.
  <% if (Request("cookies")="no") then response.Write("
Pour réserver en ligne, votre navigateur doit accepter les cookies de sessions.")%>  
<% While ((Repeat1__numRows <> 0) AND (NOT rstPacks.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rstPacks.MoveNext() Wend %> <% While ((Repeat2__numRows <> 0) AND (NOT rstPacksSnow.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rstPacksSnow.MoveNext() Wend %>
Our packs
(click on the pack for more details)		 Price in euros
inclusive of tax
1 day 6 days
skis + shoes + sticks packs
&type=ski','pack','scrollbars=yes,resizable=yes,width=620,height=500')"><%=(rstPacks.Fields.Item("nomPackAN").Value)%>   <% if (rstPacks.Fields.Item("prix1").Value) then response.Write(Round(rstPacks.Fields.Item("prix1").Value,2)) else response.Write(" ")%>     <% if (rstPacks.Fields.Item("prix6").Value) then response.Write(Round(rstPacks.Fields.Item("prix6").Value,2)) else response.Write(" ")%>
Packs snowboards + chaussures
&type=snow','pack','scrollbars=yes,resizable=yes,width=620,height=500')"><%=(rstPacksSnow.Fields.Item("nomPackAN").Value)%>   <% if (rstPacksSnow.Fields.Item("prix1").Value) then response.Write(Round(rstPacksSnow.Fields.Item("prix1").Value,2)) else response.Write(" ")%>     <% if (rstPacksSnow.Fields.Item("prix6").Value) then response.Write(Round(rstPacksSnow.Fields.Item("prix6").Value,2)) else response.Write(" ")%>  

You can also rent without booking the following :

  • Snowscoots
  • Snowskates
  • Luges adultes et enfants
  • Skis de randonnés
  • Télémark
  • ARVA (appareil de recherche des victimes en avalanches)
Book now !
Dates and number > your choice of equipment > address and payment
<% if(Request("erreur")="packnotnum") then response.Write("Number not valid.") %> <% if(Request("erreur")="nom") then response.Write("Thank you to give a name for the booking.") %> 
Reservation in the name of :  " size="20">
How many people ? " size="8">
<% if(Request("erreur")="dates") then response.Write("Date error. Thank you to rectify it.")%> <% if(Request("erreur")="dureenotnum") then response.Write("Number of days not valid. ") %>  
When will the rental start (mm/dd/yyyy) ?  
" size="10">  Calendar
How many days ? 
Stage 1/3
 
<% if(Request("erreur")="partenaire") then response.Write( " Attention le code partenaire que vous avez entré n'est pas valable.") %>  
Partner code
(if you have one)		 " size="8">
   

Should you have a problem while booking on-line, please contact us at +33 4 50 54 41 02.

Paiement par carte bancaire accepté

On-line booking system developped by La Face nord du net.

<% rstPacks.Close() Set rstPacks = Nothing %> <% rstAccomptesMini.Close() Set rstAccomptesMini = Nothing %> <% rstAccompteMaxi.Close() Set rstAccompteMaxi = Nothing %> <% rstPacksSnow.Close() Set rstPacksSnow = Nothing %>