teşekkürler, +rep

ben bu kodu çalıştıramadım koddamı sorun var bende mi

o kod çalışıyormu ben test etmedim ama dilersen aşağıdaki sayfadan scripti indirebilir ve kullanabilirsin. http://www.aspindir.com/Goster/3133

http://www.myonlineusers.com/index-tr. php bu adreste işine yarayabilir

&lt;% Sub LogActiveUser dim strActiveUserList, intUserStart, intUserEnd, strUser, strDate strActiveUserList = Application If Instr(1, strActiveUserList, Session. SessionID) &gt; 0 Then Application. Lock intUserStart = Instr(1, strActiveUserList, Session. SessionID) intUserEnd = Instr strUser = Mid strActiveUserList = Replace(strActiveUserList, strUser, Session. SessionID &amp; &quot;:&quot; &amp; Now Application = strActiveUserList Application. UnLock Else Application. Lock Application = CInt(Application + 1 Application = Application &amp; Session. SessionID &amp; &quot;:&quot; &amp; Now &amp; &quot;|&quot; Application. UnLock End If End Sub Sub ActiveUserCleanup Dim ix, intUsers, strActiveUserList, aActiveUsers, intActiveUserCleanupTime, intActiveUserTimeout intActiveUserCleanupTime = 90 intActiveUserTimeout = 180 If Application = &quot;&quot; Then Exit Sub If DateDiff(&quot;s&quot;, Application , Now &gt; intActiveUserCleanupTime Then Application. Lock Application = Now Application. Unlock intUsers = 0 strActiveUserList = Application strActiveUserList = Left(strActiveUserList, Len - 1) aActiveUsers = Split For ix = 0 To UBound If DateDiff(&quot;s&quot;, Mid(aActiveUsers , Instr(1, aActiveUsers , &quot;:&quot;) + 1, Len(aActiveUsers , Now &gt; intActiveUserTimeout Then aActiveUsers = &quot;XXXX&quot; Else intUsers = intUsers + 1 End If Next strActiveUserList = Join &amp; &quot;|&quot; strActiveUserList = Replace Application. Lock Application = strActiveUserList Application = intUsers Application. UnLock End If End Sub Call LogActiveUser Call ActiveUserCleanup online=Application % ' online değişkenine atıyoruz %&gt; &lt;%=online%&gt; böylede istediğin yere yazdırırsın

Arkadaşlar bana onlineziyaretçi sayısını gösteren bir asp yada flash lazım yanlız dbsiz olmasını istiyorum. Elinizde ücretsiz bir tane varsa lütfen paylaşın.