<%@ Language=VBScript %> Feestwinkel - carnavalkostuums - Feestartikelen - articles de carnaval - magasin de fête <% Dim objConnection Dim objConnectionsub Dim objConnectionart Dim RdsArtikel Dim RdsCategorie Dim RdsCategorie2 Dim strSQL Dim teller Dim check Dim subcategorie Dim categorie teller = 0 set objConnection = server.CreateObject ("ADODB.Connection") set objConnectionsub = server.CreateObject ("ADODB.Connection") set objConnectionart = server.CreateObject ("ADODB.Connection") set RdsArtikel = server.CreateObject("ADODB.recordset") set RdsCategorie = server.CreateObject("ADODB.recordset") set RdsCategorie2 = server.CreateObject("ADODB.recordset") objConnection.Open Application("ConAbc_ConnectionString"), Application("ConAbc_RuntimeUserName"),Application("ConAbc_RuntimePassword") objConnectionsub.Open Application("ConAbc_ConnectionString"), Application("ConAbc_RuntimeUserName"),Application("ConAbc_RuntimePassword") objConnectionart.Open Application("ConAbc_ConnectionString"), Application("ConAbc_RuntimeUserName"),Application("ConAbc_RuntimePassword") strSQL = "select * from categorie where id = '" & Request.QueryString("idcat") & "'" RdsCategorie.Open strSQL, objConnection if Request.QueryString("idcat")="100" then categorie = "Promotie van de maand" else categorie = RdsCategorie.Fields("naam") end if if Request.QueryString("idsubcat")="" then strSQL = "select * from artikel where opsite = 'True' and idsubcat = 0" else if Request.QueryString("idsubcat")="eerste" then dim RdsEerste set RdsEerste = server.CreateObject("ADODB.recordset") strSQL = "select * from subcategorie where idcat = '" & Request.QueryString("idcat") & "' order by naam" RdsEerste.Open strSql,objConnectionsub subcategorie = RdsEerste.Fields("naam") strSQL = "select * from artikel where opsite = 'True' and idsubcat = '" & RdsEerste.Fields("id") & "' order by referte" else dim RdsSubcategorie set RdsSubcategorie = server.CreateObject("ADODB.recordset") strSQL = "select * from subcategorie where id = '" & Request.QueryString("idsubcat") & "'" RdsSubcategorie.Open strSql,objConnectionsub if Request.QueryString("idsubcat")="100" then subcategorie = "" else subcategorie = RdsSubcategorie.Fields("naam") end if strSQL = "select * from artikel where opsite = 'True' and idsubcat = '" & Request.QueryString("idsubcat") & "' order by referte" end if end if RdsArtikel.Open strSql,objConnectionart do while not RdsArtikel.eof teller=teller+1 RdsArtikel.movenext loop if teller = 0 then else RdsArtikel.movefirst end if if InStr(1,teller/10,",") or InStr(1,teller/10,".") then check = int(cdbl(teller/10)) else check = int(cdbl(teller/10)-1) end if %>
 
 

 


De huur gaat in op het ogenblik dat de huurder of zijn gemachtigde het gehuurde in ontvangst  neemt in de magazijnen van verhuurder op de afgesproken dag . 

De huur eindigt in alle gevallen op de dag van terugkeer in de magazijnen van verhuurder, op  voorwaarde dat dit geschiedt binnen de openingsuren . En dit met het elektronisch schrappen  van de huurovereenkomst . 

Van zodra de huurtijd beëindigd is, wordt de huurder van rechtswege en zonder enige   aanmaning geacht in gebreke te zijn. Zonder dat de verhuurder een beroep op de rechter  moet doen . Vanaf dit moment kan de verhuurder alle stappen ondernemen om het verhuurde  terug te krijgen .Alle kosten zoals briefwisseling, telefoonkosten, vervoer, opladen, loonkosten  en indien noodzakelijk het vervangen van het gehuurde, zijn volledig ten laste van de huurder  zolang het gehuurde niet terug is, kan de verhuurder verder de huurprijs aanrekenen en nadien   wanneer hij dat wenselijk acht, de verkoopprijs aanrekenen zonder dat dit afbreuk doet aan de  verschuldigde huursom tot op de dag van het aanrekenen van de verkoopprijs. De keuze van  het factureren van de verkoopprijs en dus het eindigen van de huur ligt volledig bij de  verhuurder . 

Alleen de huurder draagt gedurende de hele huurtijd, dus ook tijdens het vervoer heen en  terug, het risico voor verlies of beschadiging van het gehuurde .

De huurder is aansprakelijk voor teruggave in dezelfde staat . Onverminderd zijn verhaal op  derden voor verlies, beschadiging, minderwaarde enz.. in de ruimste zin, zonder fout of opzet  van derden, toeval of overmacht te kunnen inroepen tegenover de verhuurder .

Terugname door de verhuurder betekent anderzijds geen aanvaarding en sluit een eis tot  schadevergoeding niet uit. De verhuurder beschikt over een termijn van 14 dagen na de  terugname om aan de huurder zijn bevindingen inzake schade, minderwaarde en dergelijke  bekend te maken. Dit gebeurt door de vaststelling door de klant te laten tekenen of bij  weigering per aangetekend schrijven, waarin de huurder uitgenodigd wordt binnen de 5 dagen  de schade in de magazijnen van verhuurder tegensprekelijk te komen vaststellen. Er is echter
geen aangetekend schrijven vereist wanneer de huurder een schadeformulier heeft gekregen  in het verhuurcenter . Indien de huurder na 14 dagen niet reageert, wordt dit als aanvaarding  beschouwd . De verhuurder is dan gemachtigd tot onmiddellijke herstelling of vervanging en  de kosten evenals de bijkomende schadekosten aan de huurder aan te rekenen .


Niet afhaling van het gehuurde op de afgesproken datum, ontslaat de huurder niet van betaling van de huursom over de overeengekomen periode. Ook niet als deze per fax of e-mail gereserveerd werd zonder betaling . 


Bij annulatie van de huur tot 7 dagen voor het begin van de huur wordt de helft van de reeds  betaalde huurprijs terugbetaald .

Bij annulatie minder dan 7 dagen tot 3 dagen voor het begin van de huur krijgt men een waardebon voor de helft van de verhuurprijs en geldig bij een nieuwe huur.

Bij annulatie minder dan 3 dagen voor het begin van de huurperiode betaalt men de volledige afgesproken huurperiode .




<% objConnection.Close() set objConnection = nothing objConnectionsub.Close() set objConnectionsub = nothing objConnectionart.Close() set objConnectionart = nothing %>