<% baslik="Besteciler" %>

<%=baslik%>

<% harfarray = Array("A","B","C","Ç","D","E","F","G","H","I","İ","J","K","L","M","N","O","Ö","P","Q","R","S","Ş","T","U","Ü","V","W","X","Y","Z") for i = 0 to Ubound(harfarray) %> <%=harfarray(i)%>  <% next for i = 0 to ubound(harfarray) %>

<%=harfarray(i)%>

<% ssql = "select DISTINCT ISIM FROM BESTECILER WHERE ISIM LIKE '" & harfarray(i) & "%' order by ISIM ASC" set rs = dbconnection.execute(ssql) while not rs.eof ssql2 = "select * FROM BESTECILER WHERE ISIM='" & rs("ISIM") & "'" set rs2 = dbconnection.execute(ssql2) var = 0 while not rs2.eof bestid = rs2("ID") bestadi = rs2("ISIM") ssql3 = "select * from ESERLER WHERE AKTIF=0 AND BESTECI=" & bestid set rs3 = dbconnection.execute(ssql3) if not rs3.eof then var = 1 end if rs2.movenext wend if var = 1 then %>  <%=bestadi%>
<% end if rs.movenext wend next %>