2 svar · 325 visningar · startad av Ricki
Tjena,
Är det någon som vet vad detta felmeddelande beror på? Om jag skickar upp sidan till mitt webhotell funkar det utmärkt, men om jag kör den lokalt får jag detta felmeddlende:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'UBOUND'
/RICKI.NU/stat/loginfo.asp, line 24
Kan någon hjälpa mig, snälla??
du måste visa oss koden också, ju!
är du säker på att det är samma versioner av koden lokalt och på hotellet?
Ja, jag är kelt säker på att det är exakt samma!!
Här är koden i alla fall:
<%
' #################################################
' # #
' # 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 #
' # [url="http://www.tilja.net"]www.tilja.net[/url] or contact me on #
' # info@tilja.net #
' # #
' #################################################
Dim foundUser
foundUser = FALSE
Application.Lock
Dim statistik
statistik = Application( "Stats" )
Dim k
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
Rad 24: 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
%>