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

 

Een team van medewerkers staat altijd tot u dienst voor deskundige hulp of advies. Zo maken ze van u de ster van de avond

Ze beantwoorden al uw vragen met een glimlach en maken van het kiezen, huren, passen of kopen reeds een begin van een feest .

 




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