<%
baslik="Besteciler"
%>
<%
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
%>