<% sontarih = left(AspSitemzaman,8) Set kackisii = Connect.Execute("select Count(id) as Coudnt from uyeler where son_tarih like '%"&sontarih&"%'") onuyekacc=kackisii("Coudnt") kackisii.Close Set kackisii = Nothing %> Bugün <%=onuyekacc%> Üye Girdi <% Set songiris = Member.Execute("select kulladi,unvan from uyeler where left(son_tarih,8) like '"&sontarih&"' order by son_tarih desc") if songiris.eof Then Else Do While Not songiris.Eof girisrenk = songiris("unvan") If girisrenk=1 Then renkgiris="" renkgirisk="" Elseif girisrenk=2 Then renkgiris="" renkgirisk="" Elseif girisrenk=6 Then renkgiris="" renkgirisk="" Elseif girisrenk=0 Then renkgiris="" renkgirisk="" Else renkgiris="" renkgirisk="" End if %> » "><%=renkgiris%><%=songiris("kulladi")%><%=renkgirisk%> |  <% songiris.MoveNext Loop End if songiris.Close Set songiris = Nothing %>