HJÆLP TIL CHAT

Ovenstående kan umuligt være hele koden, så jeg famler lidt i blinde...

Du kan bruge det brugernavn der er gemt i sessionsvariablen Session(\"navn\")
og så aut. foretage et login (eller lade være med at logge ud) hvis denne er udfyldt. Dette kan eks. gøres med

If len(Session(\"navn\")) > 0 then
- et eller andet
End if

Mit gæt er, at koden du skal kigge i ligger i function.asp

Så får du koderne til functions.asp

<%
    function chat(modtager, afsender, besked, fontcolor)

        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"chatten.mdb\") & \"\"
        Set rs = Server.CreateObject(\"ADODB.Recordset\")
        chatSQL = \"Select * from chat\"
        rs.Open chatSQL, Conn, 1, 3
            rs.addnew
            rs(\"modtager\") = modtager
            rs(\"afsender\") = afsender
            rs(\"besked\") = besked
            rs(\"fontcolor\") = fontcolor
            rs.update       
        rs.close
        Set rs = nothing
        Conn.close
        Set conn = nothing
   
    end function


    function logud(chatnavn)
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"chatten.mdb\") & \"\"
        Set rs = Server.CreateObject(\"ADODB.Recordset\")
        logudSQL = \"Select * from online where navn = \'\" & chatnavn & \"\'\"
        rs.Open LogudSQL, Conn, 1, 3
        rs.delete       
        rs.close
        Set rs = nothing
        Conn.close
        Set conn = nothing

    end function

    function login(navn)
    if navn = \"\" then
    login = \"<font class=8>Du skal skrive et navn</font>\"
    else
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"chatten.mdb\") & \"\"
        Set rs = Server.CreateObject(\"ADODB.Recordset\")
        LoginSQL = \"Select * from online where navn = \'\" & Request.form(\"navn\") & \"\'\"
        rs.Open LoginSQL, Conn, 1, 3
        if Rs.bof or eof then
            rs.Addnew
            rs(\"navn\") = Request.form(\"navn\")
            rs(\"time\") = Time()
            rs.update
            Session(\"navn\") = Request.form(\"navn\")
                       
                            Set ChatConn = Server.CreateObject(\"ADODB.Connection\")
                            ChatConn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"chatten.mdb\") & \"\"
                            Set chatrs = Server.CreateObject(\"ADODB.Recordset\")
                            chatSQL = \"Select * from chat\"
                            chatrs.Open chatSQL, ChatConn, 1, 3
                            chatrs.addnew
                            chatrs(\"modtager\") = \"Alle\"
                            chatrs(\"afsender\") = \"Chatten\"
                            chatrs(\"besked\") = \"\" & Request.form(\"navn\") & \" er logget ind klokken \" & Time() & \"\"
                            chatrs(\"fontcolor\") = \"#0000FF\"
                            chatrs.update       
                            chatrs.close
                            ChatConn.close
                            Set Chatconn = nothing
            Response.Redirect(\"chat_frame.asp\")
        else
            login = \"<font class=8>Der er en bruger med det navn<br>logget på med det ønskede navn<br><br></font>\"
        end if
        rs.close
        Set rs = nothing
        Conn.close
        Set conn = nothing
    end if
    end function





    function showchat

        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"chatten.mdb\") & \"\"
        Set rs = Server.CreateObject(\"ADODB.Recordset\")
        showchatSQL = \"Select top 25 * from chat where modtager = \'Alle\' OR modtager = \'\" & session(\"navn\") & \"\' OR afsender = \'\" & session(\"navn\") & \"\'order by id DESC\"
        rs.Open showchatSQL, Conn, 1, 3
        Do until rs.eof
        %>
        <%
        if rs(\"modtager\") <> \"Alle\" then %>
   
            <% if rs(\"afsender\") = Session(\"navn\") then %>
            <font face=verdana size=2 color=red><b>Du fortæller <%=rs(\"modtager\")%>:</b> <%=rs(\"besked\")%></font><br>
            <% else %>
            <font face=verdana size=2 color=red><b><%=rs(\"afsender\")%> fortæller dig:</b> <%=rs(\"besked\")%></font><br>
            <% end if %>
        <% else %>
        <font face=verdana size=2 color=<%=rs(\"fontcolor\")%>><b><%=rs(\"afsender\")%>:</b> <%=rs(\"besked\")%></font><br>
        <%
        end if
        rs.movenext
        loop
        rs.close
        Set rs = nothing
        Conn.close
        Set conn = nothing

    end function






    function showusers
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"chatten.mdb\") & \"\"
        Set rs = Server.CreateObject(\"ADODB.Recordset\")
        showusersSQL = \"Select * from online \"
        rs.Open showusersSQL, Conn, 1, 3
        Do until rs.eof
        %>
        <font size=2 face=verdana><%=rs(\"navn\")%></font><br>
        <%
        rs.movenext
        loop
        rs.close
        Set rs = nothing
        Conn.close
        Set conn = nothing
    end function


    function sdelete_non_active_users

        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"chatten.mdb\") & \"\"
        Set rs = Server.CreateObject(\"ADODB.Recordset\")
        deleteSQL = \"Delete * from online\"
        rs.Open deleteSQL, Conn, 1, 3

        rs.close
        Set rs = nothing
        Conn.close
        Set conn = nothing
    end function
%>

lukketid??