Bra sessionsränkare Med onlinevisning

Helt otestad : http://www.tilja.net/asp/free_stuff/livestats1_0.asp

får fel
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'UBOUND'
/test/loginfo.asp, line 24

Du får nog visa mer kod. Jag har ingen lust att ladda hem hela scriptet.

<HTML>
<!-- #INCLUDE VIRTUAL="/test/loginfo.asp" -->

</HTML>

//
<%

' #################################################
' # #
' # LiveStats v 1.0 #
' # Copyright (c) 2001. Tilja, tilja.net #
' # #
' # This application is freeware for #
' # non commecial sites as long as #
' # this copyright notice remains #
' # intact. #
' # #
' # For more information please visit #
' # www.tilja.net or contact me on #
' # info@tilja.net #
' # #
' #################################################

foundUser = FALSE
Application.Lock
statistik = Application( "Stats" )
FOR k = 0 TO UBOUND( statistik, 2 )
' ### OM ANVÄNDAREN FINNS ###
IF statistik( 0, k ) = Session.SessionID THEN

IF TITLE \<\> "" THEN
	statistik( 1, k ) = TITLE
ELSE
	statistik( 1, k ) = Request.ServerVariables( "SCRIPT_NAME" )
END IF

statistik( 4, k ) = Request.ServerVariables( "HTTP_USER_AGENT" )
foundUser = TRUE
EXIT FOR

END IF
NEXT

IF foundUser = FALSE THEN
FOR k = 0 TO UBOUND( statistik, 2 )
' ### OM ANVÄNDAREN EJ FINNS ###
IF statistik( 0, k ) = "" THEN
statistik( 0, k ) = Session.SessionID

IF TITLE \<\> "" THEN
	statistik( 1, k ) = TITLE
ELSE
	statistik( 1, k ) = Request.ServerVariables( "SCRIPT_NAME" )
END IF
    
statistik( 2, k ) = Request.ServerVariables( "REMOTE_ADDR" )
statistik( 3, k ) = TIME()
statistik( 4, k ) = Request.ServerVariables( "HTTP_USER_AGENT" )
EXIT FOR

END IF
NEXT
END IF
Application("Stats") = statistik
Application.UnLock
%>

Man kanske gör någon initiering av arrayen statistik i Application_Onstart så att du behöver starta om webservern?

Du kan ju kolla om det finns någon speciell global.asa medskickad.

Det finns det.
Måste den liggai wwwroot?
//
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
DIM Stats( 4, 100 )
Application( "Stats" ) = Stats
END SUB
</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnEnd
Application.Lock
statistik = Application( "Stats" )
For i = 0 to UBOUND( statistik, 2 )
IF statistik( 0, i ) = Session.SessionID THEN
statistik( 0, i ) = ""
EXIT FOR
END IF
NEXT
Application( "Stats" ) = statistik
Application.UnLock
END SUB
</SCRIPT>

Jo, det är enklast om den ligger där.

Det går att sätta upp så att den kan ligga på någon annan plats, men det kommer jag inte ihåg hur man gör.

Fungerar nu.
Mvh Lazerzubb