MANGLER HJÆLP !!! (60 POINTS)

Jeg mangler en programør som vil hjælpe mig 4 free !

Jeg har en onlineliste der viser: Online IP's og brugere der er logged ind. Jeg vil have den til at slette "Den online IP" når han logger ind, så han kun er på online bruger listen og ikke på online IP listen !

Jeg har lagt koden med, så i kan se lidt om det:'


/Inc/Online.asp:

<!-- Start på onlineguests koder -->
<%

Sub AddOnlineGuests()
    Application.Lock
    Application("OnlineGuests") = Application("OnlineGuests") & request.servervariables("REMOTE_ADDR") & ","
        Session("Added") = "Guest"   
        Application.UnLock
End Sub

Function CountOnLineGuests()
    Dim arrGuests
    arrGuests = Split(Application("OnlineGuests"), ",")
    CountOnLineGuests = UBound(arrGuests) - 1
End Function

Sub WriteOnLineGuests()
    Dim arrGuests
    Dim n
    arrGuests = Split(Application("OnlineGuests"), ",")
    For n = 1 To UBound(arrGuests) -1
    Response.Write(arrGuests(n) & "<br>")
    Next
End Sub

if Session("Added") = "" then
Call AddOnlineGuests()
else
end if


%>

<!-- Start på onlineusers koder -->

<%

Sub AddOnlineUser()
    Application.Lock
    Application("OnlineUsers") = Application("Onlineusers") & Session("Brugernavn") & ","
    Application("OnlineUsersID") = Application("OnlineusersID") & request("ID") & ","
        Session("Added") = "User"
    Application.UnLock
End Sub

Function CountOnLineUsers()
    Dim arrUsers
    arrUsers = Split(Application("Onlineusers"), ",")
    CountOnLineUsers = UBound(arrUsers) - 1
End Function

Sub WriteOnLineUsers()
    Dim arrUsers
        Dim arrUsersID
    Dim n
    arrUsers = Split(Application("Onlineusers"), ",")
    arrUsersID = Split(Application("OnlineusersID"), ",")
    For n = 1 To UBound(arrUsers) -1
Response.Write("<a href=""info.asp?id=" & arrUsersID(n) &""">" & arrUsers(n) & "</A><br>")
    Next
End Sub
%>





Global.asa:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
Application.Lock
Application("OnlineUsers") = ","
Application("OnlineGuests") = ","
Application.UnLock
End Sub

Sub Session_OnStart
    Session.Timeout = 1
    Session("Start") = Now
  Session("Username") = request.servervariables("REMOTE_ADDR")
End Sub


Sub Session_OnEnd
If Len(Session("Username")) > 0 Then
    Application.Lock
    Application("OnlineGuests") = Replace(Application("OnlineGuests"), Session("Username") & ",", "")
    Application.UnLock
End If
If Len(Session("ID")) > 0 Then
    Application.Lock
    Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("Brugernavn") & ",", "")
    Application.UnLock
End If
End Sub
</SCRIPT>





Online.asp:

<TABLE BORDER="0" width="100%" cellpadding="2" cellspacing="1">
<TR><TD width="40%">Der er <%= CountOnlineUsers() %> bruger der er logget ind, og <%= CountOnlineGuests() %> der bare er besøgende !</TD></TR></table>
<TABLE BORDER="0" width="100%" cellpadding="2" cellspacing="1">
<TR>
    <TD width="40%" valign="top">Online bruger listen:</TD>
<TD width="60%">

    <a href="info.asp?id="><% Call WriteOnLineUsers() %></a><BR>

</td>
</TR>
<BR>
<BR>
<TR>
    <TD width="40%">Gæste listen:</TD>
    <TD width="60%"><% Call WriteOnLineGuests() %>



Det er lige de filer i skal bruge !!
Håber der er en der kan hjælpe mig !