<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "EPDIC"
SQ="SELECT * FROM Epdic ORDER BY Family"
Set RS=Conn.Execute(SQ)
numb=0
%>
<% Do While Not RS.EOF
idn=RS("code")
SQF="SELECT * FROM Fees WHERE (fees.id="&idn&")"
Set RSf=Conn.Execute(SQF)
numb=numb+1
if RSf("confirmed") then
%>
