Online Bruger liste

prøv at rette feltet, så det bliver af typen date/time

Synes stadig ikke den udskriver det rigitg.

Bruger 1: 03-04-2005 23:42:44
Bruger 2: 01-08-2005 04:14:05
Bruger 3: Ingen Dato

Der er slet ikke en logisk gennem gang af dem?

registrere du i databsen når brugeren kommer ind på siden, og forlader siden?

hvis du bare vil have vist hvor mange brugere der er på siden, kan du bruge global.asa

tjek denne artikel: http://activedeveloper.dk/artikler/default.asp?articleid=173

Det skal være en bruger liste der viser de brugere der har været aktive på siden inden for den seneste time.
Ja jeg har et felt i databasen der hedder Sidst_set, dette bliver updateret hver gang en bruger klikker på et links. via now()

okay. så skulle det virke, hvis dine update virker som de skal

Jeg kan ikke få den til at virke. skriver dette her:

global.asa

<script language="VBScript" runat="server">
Sub Session_OnStart
Session.Timeout = 25
Application.Lock
Application("OnlineUsers") = ","
Application.UnLock
End Sub

Sub Session_OnEnd
If Len(session("brugernavn")) > 0 Then
  Application.Lock
  Application("OnlineUsers") = Replace(Application("OnlineUsers"), session("brugernavn") & ",", "")
  Application.UnLock
End If
End Sub
</script>

ASP fil.

<%
' --- procedure til at tilføje en online bruger ---
Sub AddOnlineUser()
  Application.Lock
  Application("OnlineUsers") = Application("Onlineusers") & session("brugernavn") & ","
  Application.UnLock
End Sub
' --- funktion som retunerer antallet af online brugere ---
Function CountOnLineUsers()
  Dim arrUsers
  ' --- lav et array med online brugere ---
  arrUsers = Split(Application("Onlineusers"), ",")
  ' --- antallet af online brugere er altid størrelsen på arrayet -1 ---
  CountOnLineUsers = UBound(arrUsers) - 1
End Function

' --- procedure til at udskrive online brugere ---
Sub WriteOnLineUsers()
  Dim arrUsers
  Dim n
  ' --- lav et array med online brugere ---
  arrUsers = Split(Application("Onlineusers"), ",")
  ' --- udskriv liste ---
  For n = 1 To UBound(arrUsers) -1
    Response.Write(arrUsers(n) & "<br>")
  Next
End Sub
%>

<%
Call CountOnlineUsers()
%>

Den udskriver ikke noget den er bare blank. ??

Når jeg fik det til at virke:

<%
Call AddOnlineUser()
%>
<%
' --- procedure til at tilføje en online bruger ---
Sub AddOnlineUser()
    Application.Lock
    Application("OnlineUsers") = Application("Onlineusers") & Session("brugernavn") & ","
    Application.UnLock
End Sub
' --- funktion som retunerer antallet af online brugere ---
Function CountOnLineUsers()
    Dim arrUsers
    ' --- lav et array med online brugere ---
    arrUsers = Split(Application("Onlineusers"), ",")
    ' --- antallet af online brugere er altid størrelsen på arrayet -1 ---
    CountOnLineUsers = UBound(arrUsers) - 1
End Function

' --- procedure til at udskrive online brugere ---
Sub WriteOnLineUsers()
    Dim arrUsers
    Dim n
    ' --- lav et array med online brugere ---
    arrUsers = Split(Application("Onlineusers"), ",")
    ' --- udskriv liste ---
    For n = 1 To UBound(arrUsers) -1
        Response.Write(arrUsers(n) & "<br>")
    Next
End Sub
%>

<%
Response.Write CountOnlineUsers()
%>

Smæk et svar

det er ikke alle webhoteller der understøtter at du kan bruge global.asa

Har fået det til a t virke. men har et problem, Mit login system, ligger i en mappe ved navn Login.
Problemet er så at hvis jeg smækker
<%
Call AddOnlineUser()
%>
Ind i en fil under Login mappen, bruger den global.asa filen i Login mappen og ikke i roden som jeg ønsker det. Er der mulighed for jeg kan få den til at tage fra en? eller er det en bestemt standard man ikke kan ændre på?