<%@ 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
%>
Une équipe professionnelle est toujours à votre service pour vous donner des conseils.
Ils répondent tous vos questions avec un sourire et font du choix, location, essayage ou achat le début d'un fête.
Comme ça vous serez " LE STAR DU SOIREE ".
La fête commence déjà dans notre magasin.
<%
objConnection.Close()
set objConnection = nothing
objConnectionsub.Close()
set objConnectionsub = nothing
objConnectionart.Close()
set objConnectionart = nothing
%>
