<%@ 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 %>
 
 

 


La location prend cours au moment où le locataire ou son mandataire   réceptionne le matériel   loué aux magasins du loueur à la date convenue . 

La location prend fin dans tous les cas , au jour de la restitution dans les  magasins du loueur  à condition que la restitution ait lieu pendant les  heures d'ouverture .Et ça avec l'éffacement  électronique du contrat de  location. - Dés que le délai de location est expiré , le locataire est censé être mis en  demeure , sans  aucune sommation.. A partir de ce moment , le loueur se  réserve le droit de faire enlever le  matériel loué , sans y être astreint , sans  devoir faire appel au Juge. Tous les frais tels que  les frais de transport ,  rappel, les heures, … et si necessaire remplacer les costumes sont  complètement à charge du locataire . Le loueur peut en outre mettre en compte le prix de la  location et, par après , s'il le souhaite , imputer le prix de vente , sans que ceci porte  préjudice à la somme de location due jusqu'au jour de l'imputation du prix vente . Seule le  louer déterminera la date de la facturation du prix de vente et par conséquent , la fin de la  location.

 

Pendant toute la durée de la location , donc aussi lors des transports aller et retour , seul le  locataire prend à son compte tout risque de perte ou de dédommagement du matériel loué.

Le locataire est responsable de la restitution du matériel en l'état original . Sans préjudice à  son recours à des tiers , il est responsable de toute perte , dédommagement , moins value,  au sens le plus large du mot , sans pouvoir invoquer la faute ou mauvaise intention de tiers,   le hasard ou la force majeure , à l'égard du loueur .

La reprise du matériel loué par le louer n'implique pas son acceptation et n'exclut pas son  droit à des indemnités . Le loueur dispose d'un délai de 14 jours après la reprise , pour  communiquer ses résultats au sujet du dédommagement , moins-value, … Ceci se fera par la  signature par le locataire du constat , ou si celui-ci refuse , par lettre recommandée , dans  laquelle le locataire est prié d'aller constater lui-même le dédommagement dans les  magasins du loueur . Ce qui lui donne l'occasion de contester le constat , et ceci dans les 5  jours suivant . Il n'est pas besoin d'une lettre recommandée si le locataire a reçu un constat  d'accident au centre de location . Si le locataire n'y répond pas , au bout de ce délai de 14  jours. Ceci sera considérer comme une acceptation . Le loueur sera dés lors autorisé à la  réparation ou au remplacement immédiat et de mettre en compte du locataire , les frais et les  dépenses imprévues. 


Le non-enlévement du matériel à la date convenue , ne dispense pas le locataire du paiement du prix de la location pour la période convenue . Aussi si cela c'est réservé par fax ou émail sans payement.


Si l'annulation de la location s'effectu dans les 7 jours précédant la réservation, vous ne  recevez plus que la moitié de la somme versée.

Si l'annulation de la location s'effectu entre le 7ieme et 3ieme jours précédant la réservation,  vous ne recevez plus que la moitié de la somme versée et ce pour un bon pour un autre  commande valable pour des nouveau reservations.

Si l'annulation de la location s'effectu dans moins que 3 jours avant la réservation, vous payez  la totalité de la location.




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