350 POINT FOR EN KODE DER VIRKER ! Brugernavn i \"hvem er på\" ?

Jeg har lidt kode fra Snitz Forum 2000 :
<%
select case Request.Form(\"Method_Type\")
    case \"login\"
        if (ChkUser2(Request.Form(\"Name\"), Request.Form(\"Password\")) = 4) or _
        (ChkUser2(Request.Form(\"Name\"), Request.Form(\"Password\")) = 3) or _
        (ChkUser2(Request.Form(\"Name\"), Request.Form(\"Password\")) = 2) or _
        (ChkUser2(Request.Form(\"Name\"), Request.Form(\"Password\")) = 1) then
            \'## Sets cookies for the post form if asked for
            if strSetCookieToForum = 1 then
                Response.Cookies(\"User\").Path = strCookieURL
            end if
            Response.Cookies(\"User\")(\"Name\") = Request.Form(\"Name\")
            Response.Cookies(\"User\")(\"Pword\") = Request.Form(\"Password\")
            Response.Cookies(\"User\")(\"Cookies\") = Request.Form(\"Cookies\")
            Response.Cookies(\"User\").Expires = dateAdd(\"d\", 30, strForumTimeAdjust)
            Session(\"last_here_date\") = ReadLastHereDate(Request.Cookies(\"User\")(\"Name\"))
            strLoginStatus = 1
        else
            strLoginStatus = 0
        end if
case \"logout\"
        Response.Cookies(\"User\") = \"\"
        Response.Cookies(\"User\").Expires = dateadd(\"d\", -2, strForumTimeAdjust)
        Response.Cookies(\"User\").Path = strCookieURL
        Response.Cookies(\"User\") = \"\"
        Response.Cookies(\"User\").Expires = dateadd(\"d\", -2, StrForumTimeAdjust)
\'        Session.Abandon
end select

mLev = cint(ChkUser2(Request.Cookies(\"User\")(\"Name\"), Request.Cookies(\"User\")(\"Pword\")))
%>

I databasen hedder brugernavn tabellen \"Forum_Members\" og selve brugernavn-feltet hedder \"M_Name\"

!! Jeg fatter NUL mht. cookies !! 300 point for en kode, som viser en liste med navne over AKTIVE brugere, jeg kan \"paste\" ind, tilrette minimalt, og som kører.