Online Ziyaretçi Kodu
birde bunu dene.
<font face="Arial"><b>
Şu Anda Sitemizde
<%
Sub LogActiveUser
Dim strActiveUserList
Dim intUserStart, intUserEnd
Dim strUser
Dim strDate
strActiveUserList = Application("ActiveUserList")
If Instr(1, strActiveUserList, Session.SessionID) > 0 Then...