Arrey virker ik rigtigt??

Det er fordi første index i et array har index 0 og ikke 1. Så det sidste element har index antal-1 og ikke antal i arrayet.

Det jeg godt klar over..
5 = 0
7 = 6
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDatabase

strSQL = "Select * from Friends where notlist = 0 order by Id"
Set rs = Conn.Execute(strSQL)
strMakeFriendViewByProfile = "5"

Do
strMakeFriendViewByProfile = strMakeFriendViewByProfile & "," & rs("Id")
rs.MoveNext
Loop While Not rs.EOF

arrFriendViewByProfile = Split(strMakeFriendViewByProfile,",")

Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing

Function FindProfileNr(id)
For FP = 0 to 255
If FP = id then
strFP = FP
Stop
End If
Next
FindProfileNr = strFP
End Function

if FindProfileNr(rs("id")) = 1 then
    strForrige = UBound(arrFriendViewByProfile)
    else
    strForrige = arrFriendViewByProfile( int( FindProfileNr(rs("id")) - 1 ) )
    End If
   
    if FindProfileNr(rs("id")) = UBound(arrFriendViewByProfile) then
    strNext = 1
    else
    strNext = arrFriendViewByProfile( int( FindProfileNr(rs("id")) + 1 ) )
    End If

Microsoft VBScript runtime  error '800a0009'

Subscript out of range: 'Int(...)'

/ap/friends.asp, line 113

Denne if sætning som tjekker om rs("id") er sidste element i array:

    if FindProfileNr(rs("id")) = UBound(arrFriendViewByProfile) then

Skal havde +1 på:

    if FindProfileNr(rs("id")) = UBound(arrFriendViewByProfile)+1 then

nu har jeg kigget lidt på din funktion: FindProfileNr(id)

Så vidt jeg kan giver den bare samme tal tilbage som man overføre til den.

løsning?

Function FindProfileNr(id)
For FP = 0 to 255
If arrFriendViewByProfile(FP) = id then
strFP = FP
Stop
End If
Next
FindProfileNr = strFP
End Function

Ville det være løsningen?

Ja det ville det, men i stedet for 255 bør man bruge ubound(arrayet)


Function FindProfileNr(id)
For FP = 0 to ubound(arrFriendViewByProfile)
If arrFriendViewByProfile(FP) = id then
strFP = FP
Stop
End If
Next
FindProfileNr = strFP
End Function

og så skal der også int omkring if sætningen inde i funktionen som tjekker mod id, så det bliver:

Function FindProfileNr(id)
For FP = 0 to ubound(arrFriendViewByProfile)
If int(arrFriendViewByProfile(FP)) = id then
strFP = FP
Stop
End If
Next
FindProfileNr = strFP
End Function

Microsoft VBScript runtime  error '800a0009'

Subscript out of range: 'FP'

/ap/inc/top.asp, line 96

Hvordan ser koden ud som giver den fejl?

Function FindProfileNr(id)
For FP = 0 to ubound(arrFriendViewByProfile)
If int(arrFriendViewByProfile(FP)) = id then
strFP = FP
Stop
End If
Next
FindProfileNr = strFP
End Function

Vent.. det var denne her:
if FindProfileNr(rs("id")) = 1 then
    strForrige = int(UBound(arrFriendViewByProfile)) +1
    else
    strForrige = arrFriendViewByProfile( int( FindProfileNr(rs("id")) - 1 ) )
    End If

Men da jeg sætte denne her ind:
if FindProfileNr(rs("id")) = 1 then
    strForrige = int(UBound(arrFriendViewByProfile)) +1
    elseif FindProfileNr(rs("id")) = 0 then
    strForrige = int(UBound(arrFriendViewByProfile)) +1
    else
    strForrige = arrFriendViewByProfile( int( FindProfileNr(rs("id")) - 1 ) )
    End If

OG så virket det..

jeg fik ikke lavet et svar, det gør jeg lige :)