fel HTTP 500.100 — webForum

da97enlaMedlem sedan dec. 2001343 inlägg

Frågan8 aug. 2004 11:43#1

Hej
Vad kan det vara för fel när jag får upp följande:
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: 'statistik(...)'
/loginfo.asp, line 26

Detta är lokalt, på nätet funkar det utan problem. Loginfo, loggar besökare just nu.

mvh
enla

@ndersMedlem sedan juni 200032 967 inlägg

8 aug. 2004 12:10#2

Kod, tack.

da97enlaMedlem sedan dec. 2001343 inlägg

8 aug. 2004 12:22#3

 
<%
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
%>