<%@ Language=VBScript %>
Feestwinkel - carnavalkostuums - Feestartikelen - articles de carnaval - magasin de fêteFeestwinkel - 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
%>
