<% sql="Select top 8 * From producten where Passed and Elite=2 order by articleid desc"
set rstj=server.CreateObject("adodb.recordset")
rstj.open sql,conn,1,1
num=rstj.recordcount
'if num>5 then
%>
<% set rsfs=server.createobject("adodb.recordset")
sqlfs="select top 5 * from producten where Elite=0 order by articleid desc"
rsfs.open sqlfs,conn,1,1
do while not rsfs.eof
%>
<%
rsfs.movenext
loop
rsfs.close
set rsfs=nothing%>
<% sql="Select top 10 * From producten where Passed and Elite=1 order by articleid desc"
set rsti=server.CreateObject("adodb.recordset")
rsti.open sql,conn,1,1
num=rsti.recordcount
'if num>5 then
%>