<%@ 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 %>
 
 
Algemeen
Historiek
Werknemers
Openingsuren
Route
Foto's
Verkoops-
voorwaarden
Verhuurs-
voorwaarden

 

Onze facturen zijn contant betaalbaar op onze zetel .

Bij niet betaling op de vervaldag is van rechtswege en zonder aanmaning een interest van 2%
Per maand verschuldigd, met een minimum van 15 euro . 

Als goederen verkocht worden dan moeten alle klachten om geldig te zijn , tenzij ze betrekking hebben op verborgen gebreken , ons toekomen uiterlijk 8dagen na de ontvangst van de goederen . Deze die betrekking hebben op verborgen gebreken moeten ons toekomen 8 dagen na ontdekking. Alle verzendingen , ook zij die franco geschieden , gebeuren op risico en op kosten van de koper . 

In geval van wanbetaling van de factuur 30 dagen na de vervaldatum zal ten titel van schadevergoeding als strafbeding een bedrag van 20% van het factuurbedrag verschuldigd zijn en dit enkel om reden van deze vertraging , van rechtswege en zonder aanmaning . Bij niet betaling van een wissel wordt de volledige som ook opnieuw eisbaar . Alle betwistingen zowel als de invordering van de facturen kunnen naar keuze van de verkoper / verhuurder gebracht worden voor de Vrederechter over het kanton Menen . Zo de betwisting onder de bevoegdheid van de Rechtbank van Koophandel of de  Rechtbank van eerste aanleg valt , dan is het naar keuze van de verhuurder/verkoper  Respectievelijk de rechtbank van koophandel te Kortrijk.

Er kunnen administratiekosten aangerekend worden wegens de briefwisseling bij wanbetaling.




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