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

Algemeen

Route

Verkoops-
voorwaarden

Verhuurs-
voorwaarden

	ABC Karnaval NV. is gelegen nabij de Franse grens en vlot bereikbaar via hoofdwegen en autosnelwegen.
	Komende van richting:

	Autosnelweg A19 tot afrit Menen 2 . (2de afrit) Neem de expresweg N32 naar rechts en daarna aan de derde lichten naar rechts . En 300m verder op uw rechterkant is ABC Karnaval.

	Autosnelweg E403 richting wevelgem-kortrijk Ter hoogte van Gullegem neemt u de richting Ieper-Menen A19 . Neem de afrit Menen 2. Neem de expresweg naar links . Derde lichten naar rechts en 300 m verder op uw rechterkant is ABC Karnaval.

	Autosnelweg E17 naar Kortrijk en verder richting RIJSEL (LILLE ) Afrit Menen -Rekkem - LAR , daarna expresweg naar rechts . Einde van de baan naar links en aan volgende rondpunt naar rechts . Daarna circa 5 km de baan volgen tot aan de eerste lichten nabij een watertoren . ABC Karnaval ligt 300m verder op de rechterkant .

	Autosnelweg E17 - A 22 richting Gent . Voorbij AUCHAN RONCQ De afrit 17A Neuville en ferrain nemen . Daarna de weg links naar Halluin. Bij het eerstvolgende rondpunt de eerste weg rechts richting Menen Na circa 3 km komt u aan de lichten bij de grens ( La porte rouge nabij watertoren) Hier neemt u links . Op circa 300m op uw rechterkant ligt ABC Karnaval .
	ABC Karnaval Moeskroenstraat 170 8930 Menen

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