<% DefaultLcid = Session.LCID Session.LCID = zamandeger strdun=date()-1 strbugun=date()-0 set sonuye = Connect.execute("Select kulladi from uyeler where onay like 1 order by id desc") sonkulladi=sonuye("kulladi") sonuye.Close Set sonuye = Nothing If Session("sayacim")="" Then Set Sayc= Connect.Execute("Select Tekil,Cogul,Toplam,id from sayac order by id desc") Response.Cookies(strkimlikstr&"sayacim")("saytekil")=Sayc("Tekil") Response.Cookies(strkimlikstr&"sayacim")("saycogul")=Sayc("Cogul") Response.Cookies(strkimlikstr&"sayacim")("saytoplam")=Sayc("Toplam") sayacid=Sayc("id") Sayc.Close Set Sayc = Nothing Set Sayc2= Connect.Execute("Select Tekil,Cogul,Toplam from sayac Where id like '"&sayacid-1&"'") If not Sayc2.Eof Then Response.Cookies(strkimlikstr&"sayacim")("saytekildun")=Sayc2("Tekil") Response.Cookies(strkimlikstr&"sayacim")("saycoguldun")=Sayc2("Cogul") Response.Cookies(strkimlikstr&"sayacim")("saytoplamdun")=Sayc2("Toplam") End if Sayc2.Close Set Sayc2 = Nothing Set tekile= Connect.Execute("select SUM(Tekil) as tekile from sayac") Response.Cookies(strkimlikstr&"sayacim")("toplamtekil")=tekile("tekile") tekile.Close Set tekile = Nothing Set cogula= Connect.Execute("select SUM(Cogul) as cogula from sayac") Response.Cookies(strkimlikstr&"sayacim")("toplamcogul")=cogula("cogula") cogula.Close Set cogula = Nothing Set toplama= Connect.Execute("select SUM(Toplam) as toplama from sayac") Response.Cookies(strkimlikstr&"sayacim")("geneltoplam")=toplama("toplama") toplama.Close Set toplama = Nothing If strveriturustr = "1" Then set dun = Connect.execute("Select Count(id) AS toplamuye from uyeler WHERE kayittarih = '"&strdun&"' ") Response.Cookies(strkimlikstr&"sayacim")("tpuyedun")=dun("toplamuye") dun.Close Set dun = Nothing set bugun = Connect.execute("Select Count(id) AS toplamuye from uyeler WHERE kayittarih = '"&strbugun&"'") Response.Cookies(strkimlikstr&"sayacim")("tpuyebugun")=bugun("toplamuye") bugun.Close Set bugun = Nothing Elseif strveriturustr = "0" Then set dun = Connect.execute("Select Count(id) AS toplamuye from uyeler WHERE kayittarih=date()-1") Response.Cookies(strkimlikstr&"sayacim")("tpuyedun")=dun("toplamuye") dun.Close Set dun = Nothing set bugun = Connect.execute("Select Count(id) AS toplamuye from uyeler WHERE kayittarih=date()-0") Response.Cookies(strkimlikstr&"sayacim")("tpuyebugun")=bugun("toplamuye") bugun.Close Set bugun = Nothing End if set onaybekleyen = Connect.execute("Select Count(id) AS toplamuye from uyeler WHERE onay=0") Response.Cookies(strkimlikstr&"sayacim")("onybekleyen")=onaybekleyen("toplamuye") onaybekleyen.Close Set onaybekleyen = Nothing set rsr = Connect.execute("select count(id) as sayi from uyeler") if not rsr.eof then Response.Cookies(strkimlikstr&"sayacim")("sayi")=rsr("sayi") end if rsr.close set rsr = Nothing Session("sayacim")="ok" End if %>

	/blok_orta.gif" class="blok_baslik"> <%=blok_3%>
<%=uyelik_23%> <%=uyelik_24%> : <%=sonkulladi%> <%=uyelik_25%> : <%=Request.Cookies(strkimlikstr&"sayacim")("tpuyebugun")%> <%=uyelik_26%> : <%=Request.Cookies(strkimlikstr&"sayacim")("tpuyedun")%> <%=uyelik_36%> : <%=Request.Cookies(strkimlikstr&"sayacim")("onybekleyen")%> <%=uyelik_27%> : <%=Request.Cookies(strkimlikstr&"sayacim")("sayi")%> <%=uyelik_21%> <% If Request.Cookies(strkimlikstr&"aktif")("uyezamani") = "" Then Response.Cookies(strkimlikstr&"aktif")("uyezamani") = DateAdd("n",10,Time()) End if cerezaktuye=Request.Cookies(strkimlikstr&"aktif")("uyezamani") aktufark = TimeValue(Time) - TimeValue(cerezaktuye) suana = DateAdd("n",-3,Now()) If strveriturustr = "1" Then If Minute(aktufark) > 2 Then Set kackisi = Connect.Execute("select Count(id) as count From uyeler Where son_tarih >= '" & suana & "'") onuyekac=kackisi("count") kackisi.Close Set kackisi = Nothing Response.Cookies(strkimlikstr&"aktif")("uyezamani") = TimeValue(Time) Response.Cookies(strkimlikstr&"aktif")("uyeler") = onuyekac End if onlinetoplam = Request.Cookies(strkimlikstr&"aktif")("uyeler") Set Listele = Connect.Execute("Select unvan,kulladi From uyeler Where son_tarih >= '" & suana & "'") Elseif strveriturustr = "0" Then If Minute(aktufark) > 2 Then Set kackisi = Connect.Execute("select Count(id) as count From uyeler Where son_tarih >= #" & suana & "#") onuyekac=kackisi("count") kackisi.Close Set kackisi = Nothing Response.Cookies(strkimlikstr&"aktif")("uyezamani") = TimeValue(Time) Response.Cookies(strkimlikstr&"aktif")("uyeler") = onuyekac End if onlinetoplam = Request.Cookies(strkimlikstr&"aktif")("uyeler") Set Listele = Connect.Execute("Select unvan,kulladi From uyeler Where son_tarih >= #" & suana & "#") End if %><% if Listele.eof Then Response.Write " "&uyelik_22&"" End if Do While Not Listele.Eof lunvanl = Listele("unvan") If lunvanl=1 Then renklendir="" renkkapa="" Elseif lunvanl=2 Then renklendir="" renkkapa="" Elseif lunvanl=3 or lunvanl=4 or lunvanl=5 or lunvanl=6 Then renklendir="" renkkapa="" Else renklendir="" renkkapa="" End if Listuye=Listele("kulladi") Response.Write "» "&renklendir&Listuye&renkkapa&" , " Listele.MoveNext Loop %><% Session.LCID = DefaultLcid Listele.Close Set Listele = Nothing %> <%=u_aktif%> <%=u_aktif_uye%> : <%=onlinetoplam%> <%=u_aktif_mis%> : <%=Aktif-onlinetoplam%> <%=u_aktif_top%> : <%=Aktif%> <%=ip_num%> : <% Response.write ""&Request.ServerVariables("REMOTE_ADDR")&"" %> <%=s_sayac%> <%=u_gtekil%> <%=u_btekil%> : <%=Request.Cookies(strkimlikstr&"sayacim")("saytekil")%> <%=u_gtekil%> <%=u_bcogul%> : <%=Request.Cookies(strkimlikstr&"sayacim")("saycogul")%> <%=u_gtekil%> <%=u_btoplam%> : <%=Request.Cookies(strkimlikstr&"sayacim")("saytoplam")%> ---------------- <%=u_gcogul%> <%=u_btekil%> : <%=Request.Cookies(strkimlikstr&"sayacim")("saytekildun")%> <%=u_gcogul%> <%=u_bcogul%> : <%=Request.Cookies(strkimlikstr&"sayacim")("saycoguldun")%> <%=u_gcogul%> <%=u_btoplam%> : <%=Request.Cookies(strkimlikstr&"sayacim")("saytoplamdun")%> ---------------- <%=u_gtoplam%> <%=u_btekil%> : <%=Request.Cookies(strkimlikstr&"sayacim")("toplamtekil")%> <%=u_gtoplam%> <%=u_bcogul%> : <%=Request.Cookies(strkimlikstr&"sayacim")("toplamcogul")%> <%=u_gtoplam%> <%=u_btoplam%> : <%=Request.Cookies(strkimlikstr&"sayacim")("geneltoplam")%>