Kod:
yetiskin=rs("yetiskin")
cocuk=rs("cocuk")
bebek=rs("bebek")
If RS.EOF Then
Response.Write ""
end if
Do while not rs.eof
kodunu
Kod:
If RS.EOF Then
Response.Write ""
end if
Do while not rs.eof
yetiskin=rs("yetiskin")
cocuk=rs("cocuk")
bebek=rs("bebek")
haline getirirseniz probleminizin çözülmüş olacağını düşünüyorum. açıklamak gerekirse, değişkenleriniz ilk kaydın değerlerini alıp if'leri buna göre değerlendiriyor. ancak olması gereken, döngünün her çevriminde, ilgili kaydın değerlerini değişkenlere atamak gerekmektedir.
ayrıca çok fazla else if yerine select case daha performanslı olacaktır.