EasyChat ændringer - antal online

Jeg har udviklet min egen chat.. Du kan købe den for 1500kr. incl. alle opdateringer..

Det er jeg ikke interesseret i

Hej, jeg er ikke lige interesseret i at oprette mig som bruger hos solutions2all - så hvis du gider det til mig istedet skal jeg nok lave det!

altså...hvis du gider sende det....på beatone@beatone.dk

Tak skal du have - det ser ud til at virke fint.

her er koden hvis nogen er interesseret:

<% Response.Buffer = True %>
<%
    If Request.Cookies(\"easychat\")(\"username\") > \"\" Then
        strRoom     = LCase(Request(\"room\")):      If strRoom = \"\" Then strRoom = LCase(Request.Cookies(\"easychat\")(\"room\"))
        strUsername    = LCase(Request(\"username\")): If strUsername = \"\" Then strUsername = LCase(Request.Cookies(\"easychat\")(\"username\"))
        strPassword    = LCase(Request(\"password\")): If strPassword = \"\" Then strPassword = LCase(Request.Cookies(\"easychat\")(\"password\"))
    Else
        strRoom     = LCase(Request(\"room\")): If strRoom = \"\" Then strRoom = LCase(strSYS_DefaultRoom)
        strUsername    = LCase(Request(\"username\"))
        strPassword = LCase(Request(\"password\"))
    End If

    strLine        = LCase(strRoom & \"_chat\")
    strUser        = LCase(strRoom & \"_user\")

\'her under skal du huske at skrive path til chatten iforhold til den side
\'hvor antallet af brugere skal vises feks... Server.MapPath(\"minchatfolder/system.mdb\")
    strSystemDSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"chat3/system.mdb\")
%>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open strSystemDSN

strSQL    = \"SELECT * FROM rooms;\"
Set Rs = Conn.Execute(strSQL)

intUserFound = 0
For intIndex = 0 To 30
strChatName = Application(strUser & intIndex)

If Not IsNull(strChatName) And Not strChatName = \"\" Then
intUserFound = True

onlineusers=onlineusers+1
End If
Next

If Not intUserFound Then Response.Write \"0\"
%>

<%
\' det er koden herunder der skriver hvor mange chattere der er online - den kan du sætte hvor du vil.
\' du skal bare huske at inkluderer <!--#include file=\"onlineusers.asp\"--> på den side hvor du vil vi antallet.
%>

<%= onlineusers %>