 |
 |
||
|
Logget ind: |
<%Function CountOnlineUsers() Dim arrUsers arrUsers = Split(Application("OnlineUsers"), ",") CountOnlineUsers = UBound(arrUsers) - 1 End Function Response.Write "" & CountOnlineUsers() & ""%> |
   |
|
| Hits: | <%=Application("AllUser")%> | ||
| Brugernavn: | <%If IsEmpty(Session("UserID")) Then Response.Write "Gæst" Else Response.Write Session("UserID") End If%> | ||
