vbGore Free Online RPG Engine

Sub Add_friend (byval UserIndex as integer, byval Target as string)
dim FriendList() as string
dim s as string

DB_RS.Open "SELECT * FROM users WHERE `friend`='" & charid & "'", DB_Conn, adOpenStatic, adLockOptimistic
If LenB(DB_RS!friend) = 0 Then
        DB_RS!friend = Target
   
    'Enter in a new friend into the list if its not already in there
Else
        FriendList() = Split(DB_RS!friend, vbNewLine)  'Create the friend list
        Count = UBound(FriendList)
        For LoopC = 0 To Count
            If FriendList(LoopC) = Target Then
                LoopC = 250
                Exit For    'friend already in list, abort!
            End If
        Next LoopC
        If LoopC < 250 Then 'Check if we have a unique value
            Count = Count + 1
            FriendsList(Count) = Target 'Add the new friend to the end of the list
            For LoopC = 0 To Count
                s = s & FriendList(LoopC)  'Add the friend onto the string
                If LoopC < Count Then s = s & vbNewLine 'If not the last entry, add the line break
            Next LoopC
            DB_RS!friend = s
            DB_RS.Update
        End If
    End If
    DB_RS.Close