<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% SUB PrintBezetting BGimg = "" iDatum = DateAdd("d", i, EersteDatum) If DatePart("m", iDatum) <> DezeMaand then BGCode = "bgcolor=#CCCCCC" Else BGCode = "" End if iDatYMD = ( Year(iDatum)*100 + Month(iDatum) )*100 + Day(iDatum) idag = Datepart("d", iDatum) If not ObjRS.EOF = true then If OBJRS("datum") = iDatYMD then BGCode = "bgcolor=#993300" if DatePart("m", iDatum) <> DezeMaand then BGCode = "bgcolor=#666666" End if ObjRS.MoveNext End if End if IF iDatYMD = Vandaag then BGimg = "background='images\vandaag.gif'" End if Response.Write("" & iDag & "") END SUB SUB PrintPrijzen Weeknummer = Weeknummer + 1 if Weeknummer > 52 then if not ditjaar = 2014 or weeknummer > 53 then Weeknummer = 1 DitJaar = DitJaar + 1 end if End if strSQL2 = "SELECT * FROM prijzen WHERE jaar =" & DitJaar strSQL2 = strSQL2 + " AND weeknr = " & WeekNummer PrijsRS.Open strSQL2, dbConn, adOpenKeyset, adCmdTable If not PrijsRS.EOF or not PrijsRS.BOF then WeekPrijs = PrijsRS("WeekPrijs") WkndPrijs = PrijsRS("WkndPrijs") MidwkPrijs = PrijsRS("MidwkPrijs") DagPrijs = PrijsRS("DagPrijs") Else WeekPrijs = "nb" WkndPrijs = "nb" MidwkPrijs = "nb" DagPrijs = "nb" End if PrijsRS.Close END SUB set objRS = Server.CreateObject ("ADODB.Recordset") set PrijsRS = Server.CreateObject ("ADODB.Recordset") WeekPrijs = "nb" WkndPrijs = "nb" MidwkPrijs = "nb" DagPrijs = "nb" EerstevandeMaand = CDate(request.QueryString("maand")) DezeMaand = DatePart("m", EerstevandeMaand) if DezeMaand = 1 then strMaand = "Januari" elseif DezeMaand = 2 then strMaand = "Februari" elseif DezeMaand = 3 then strMaand = "Maart" elseif DezeMaand = 4 then strMaand = "April" elseif DezeMaand = 5 then strMaand = "Mei" elseif DezeMaand = 6 then strMaand = "Juni" elseif DezeMaand = 7 then strMaand = "Juli" elseif DezeMaand = 8 then strMaand = "Augustus" elseif DezeMaand = 9 then strMaand = "September" elseif DezeMaand = 10 then strMaand = "Oktober" elseif DezeMaand = 11 then strMaand = "November" elseif DezeMaand = 12 then strMaand = "December" end if DitJaar = DatePart("yyyy", eerstevandeMaand) EersteWeekdag = DatePart("w", EerstevandeMaand) EersteDatum = DateAdd("d", -EersteWeekdag, EerstevandeMaand) EersteWeekNummer = DatePart("ww", EerstevandeMaand) sqlED = ( Year(EersteDatum)*100 + Month(EersteDatum) )*100 + Day(EersteDatum) LaatsteDatum = DateAdd("d", 42, EersteDatum) sqlLD = ( Year(LaatsteDatum)*100 + Month(LaatsteDatum) )*100 + Day(LaatsteDatum) VorigeMaand = DateAdd("m", -1, EerstevandeMaand) VolgendeMaand = DateAdd ("m", 1, EerstevandeMaand) Vandaag = ( Year(Date)*100 + Month(Date) )*100 + Day(Date) if DitJaar = 2016 then Weeknummer = EersteWeeknummer -2 else Weeknummer = EersteWeeknummer -1 End if strSQL = "SELECT * FROM bezetting WHERE datum BETWEEN " & sqlED +1 strSQL = strSQL + " AND " & sqlLD & " ORDER BY datum" ObjRS.Open strSQL, dbConn, adOpenKeyset, adCmdTable %> Bezetting C7

Bezetting C7

<% CALL PrintPrijzen %> <% If not (ObjRS.BOF = true) or not (ObjRS.EOF = true) then ObjRS.MoveFirst End if For i = 1 to 7 CALL PrintBezetting Next CALL PrintPrijzen %> <% For i = 8 to 14 CALL PrintBezetting Next CALL PrintPrijzen %> <% For i = 15 to 21 CALL PrintBezetting Next CALL PrintPrijzen %> <% For i = 22 to 28 CALL PrintBezetting Next CALL PrintPrijzen %> <% For i = 29 to 35 CALL PrintBezetting Next CALL PrintPrijzen %> <% For i = 36 to 42 CALL PrintBezetting Next %>
<%=strMaand%> <%=DitJaar%>
 
Prijs in Euro
              
WK wk wknd mdw dag zo ma di wo do vrij zat
<%=WeekNummer%> <%=WeekPrijs%> <%=WkndPrijs%> <%=MidwkPrijs%> <%=DagPrijs%>
<%=WeekNummer%> <%=WeekPrijs%> <%=WkndPrijs%> <%=MidwkPrijs%> <%=DagPrijs%>
<%=WeekNummer%> <%=WeekPrijs%> <%=WkndPrijs%> <%=MidwkPrijs%> <%=DagPrijs%>
<%=WeekNummer%> <%=WeekPrijs%> <%=WkndPrijs%> <%=MidwkPrijs%> <%=DagPrijs%>
<%=WeekNummer%> <%=WeekPrijs%> <%=WkndPrijs%> <%=MidwkPrijs%> <%=DagPrijs%>
<%=WeekNummer%> <%=WeekPrijs%> <%=WkndPrijs%> <%=MidwkPrijs%> <%=DagPrijs%>

Legenda

Wat betekenen de verschillende kleuren?
<%=datepart("d", date)%> Vandaag
<%=datepart("d", date)%> Vrij
<%=datepart("d", date)%> Bezet (excl. wisseldag)
<%=datepart("d", date)%> Vorige/volgende maand vrij
<%=datepart("d", date)%> Vorige/volgende maand bezet

Informatie

Voor weekverhuur: Wisseldag op zaterdag.

Bij minimale bezetting (2 personen) gratis opgemaakte bedden!

In overleg is een weekeinde- en midweek verhuur ook mogelijk. (wisseldagen dan op vrijdag en maandag) Weekeinde en midweek prijzen zijn gebaseerd op de dagprijzen.

Dagprijs geldt uitsluitend voor min. 3 overnachtingen, in vakantieperiodes alleen als "last minute".

Last minute en vroegboeking.

De sluitingsdatum voor de vroegboekkorting is 31-1-2019.
Vroegboek: Verblijf vanaf 1 juli t/m 2 september 2019 -5%
Vroegboek: Verblijf t/m 1 juli en vanaf 2 september 2019 -10%

Last minute: 14 dagen voor de boeking 10% 7 dagen voor de boeking 15%.

Bijkomende kosten (te voldoen ter plaatse):
Verplichte eindschoonmaak € 37,50

Waarborgsom € 50 te betalen bij aankomst.

Huisdieren zijn niet toegestaan in de C 7.

Aankomsttijd: 's middags tussen 15.00 en 18.00 uur, vertrektijd 's morgens tussen 9:30 en 10.30 uur.
Voor beide dagen geldt: tenzij anders is overeengekomen.

Huurartikelen: (te verkrijgen bij de Beheerder)

  • Dekbedhoesset, € 14,00 pp, incl. opgemaakte bedden
  • Keukenpakket (2 theed., 1 keukend.) € 2,50 per boeking
  • Handdoekpakket (1badh., 2 handd., 2 wash.) € 12,- per boeking
  • Gebruik wasmachine € automaat
  • Gebruik droogtrommel € automaat

    •   Huur E Bike

    Dagprijs huur van 1 fiets € 24,-
    Weekprijs huur van 1 fiets € 98,-
    De gereserveerde fiets kun je dan de zondagochtend ophalen en vrijdag voor vertrek weer inleveren. Borg per fiets € 100,- te betalen bij afhalen fiets (contant betalen).

    Op het park is geen mogelijkheid om te pinnen.
    In het dorp Atteln zijn er mogelijkheden om te pinnen 2km van Husen.

    Er is een gescheiden afval regeling op het park.

     Reserveren kunt u als volgt:

    Telefonisch of per e-mail kunt u een optie nemen voor 2 dagen, wij nemen contact met u op en sturen u na bevestiging het reserveringsformulier, welke u binnen 5 dagen dient te retourneren. Ons telefoonnummer vindt u hier
    De aanbetaling op uw reservering bedraagt 25% van de huursom en dient binnen 10 dagen te worden voldaan.
    Het restantbedrag voldoet u uiterlijk 6 weken voorafgaand aan uw verblijf.
    Wanneer u korter dan 6 weken voorafgaand aan uw verblijf een reservering maakt, wordt de totale huursom ineens in rekening gebracht.
    Na de aanbetaling krijgt u van ons een bevestiging en na ontvangst van het restantbedrag wordt uw komst aan de beheerder doorgegeven.

    Prijzen op deze website zijn onder voorbehoud

    <% ObjRS.close %>