Feestwinkel - carnavalkostuums - Feestartikelen - articles de carnaval

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

Général

Histoire

Conditions de vente et paiement

Conditions pour la location

Nos factures sont payables au comptant à notre siége .

En cas de non-paiement à l'échéance , il sera dû un intérêt de 2% par mois avec une minimum de 15 euro de plein droit et sans mise en demeure .

Si les marchandises ont été vendues , toutes les réclamations doivent, pour être recevables , nous parvenir au plus tard dans les 8 jours de la réception des marchandises. S'il s'agit de vices cachés ? Les réclamations afférentes aux vices doivent être introduites dans les 8 jours après leur découverte.

Tous les envois , même franco, se font aux risques et périls de l'acheteur . En cas de non-paiement de la facture à 30 jours après la date d'échéance ,un montant de 20% du total de la facture sera dû , à titre d'indemnité et clause pénale, pour le simple fait du retard , ceci de plein droit et sans mise en demeure .

En cas de non-paiement d'une traite , la somme intégrale devient de nouveau exigible . Toutes contestations ou recouvrements des factures peuvent être soumis , au choix du louer ou vendeur , au Juge de Paix du canton de Menin . Si le litige est de la compétence du Tribunal de commerce ou du Tribunal de Première instance , le loueur ou vendeur aura le choix de porter le litige devant le Tribunal de Commerce de Courtrai . L'établissement de la facture ou des rappel peut entrainer des frais d'administration.

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