çözümledim en sonunda döngü içerisine yerleştirmediğimden kaynaklanıyormuş yani şu şekilde sonYazıOku değişkeni

<%
while NOT yazarOku.eof
set sonYaziOku = kayitSeti("SELECT * from koseyazilari WHERE yazarId LIKE '"&yazarOku("id")&"' ORDER BY id DESC;")
%>