Bruger online script

Hejsa.
Jeg har et bruger online script, som virker fint, men jeg mangler en funktion, så man kan klikke på en bruger og blive linket videre.

Er det muligt med dette script?

                                  <%

Function CountOnLineUsers()
    Dim arrUsers
    ' --- lav et array med online brugere ---
    arrUsers = Split(Application("Onlineusers"), ",")
    ' --- antallet af online brugere er altid størrelsen på arrayet -1 ---
    CountOnLineUsers = UBound(arrUsers) - 1
End Function

Response.Write CountOnlineUsers()

                                %>
                                 
                                </b>bruger online</font></p>
         

                 

                                <font face="Verdana" size="1" color="#800080"><br><%
                               
                               
                             


Sub WriteOnLineUsers()
    Dim arrUsers
    Dim n
    ' --- lav et array med online brugere ---
    arrUsers = Split(Application("Onlineusers"), ",")
    ' --- udskriv liste ---
    For n = 1 To UBound(arrUsers) -1

        Response.Write  (arrUsers(n) & "<br>")
    Next
End Sub

Call WriteOnlineUsers()
                                %>