Update ?

Fordi du ikke udfører kaldet ? Enten mangler der en Conn.Execute Sql eller også har du bare ikke skrevet den.

Har du checket at \"brugernavn\" og \"password\" matcher ? Sådan at der ER noget at opdatere ?

Jeps.

<%
If Request.QueryString(\"mode\") = \"login\" Then
Brugernavn = Request.Form(\"Brugernavn\")
Password = Request.Form(\"Password\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"chat.mdb\")

Set Rs = Conn.Execute(\"SELECT * FROM brugere WHERE brugernavn=\'\" & Brugernavn & \"\' And Password=\'\" & Password & \"\'\")
       
    If Not Rs.EOF Then
        Sql = (\"Update Brugere Set Online=\'1\' WHERE brugernavn=\'\" & Brugernavn & \"\' And Password=\'\" & Password & \"\'\")
        Session(\"Brugernavn\") = RS(\"Brugernavn\")
        Session(\"Bruger_ID\") = RS(\"ID\")
        Response.Redirect(\"chatten.asp\")

        Else
        Response.Redirect(\"login.asp?mode=forkert\")
        End If

        Conn.Close
        Set Conn = Nothing
End If
%>

<%
If Request.QueryString(\"mode\") = \"login\" Then
Brugernavn = Request.Form(\"Brugernavn\")
Password = Request.Form(\"Password\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"chat.mdb\")

Set Rs = Conn.Execute(\"SELECT * FROM brugere WHERE brugernavn=\'\" & Brugernavn & \"\' And Password=\'\" & Password & \"\'\")
       
    If Not Rs.EOF Then
        Sql = (\"Update Brugere Set Online=\'1\' WHERE brugernavn=\'\" & Brugernavn & \"\' And Password=\'\" & Password & \"\'\")
Conn.Execute(SQL)
        Session(\"Brugernavn\") = RS(\"Brugernavn\")
        Session(\"Bruger_ID\") = RS(\"ID\")
        Response.Redirect(\"chatten.asp\")

        Else
        Response.Redirect(\"login.asp?mode=forkert\")
        End If

        Conn.Close
        Set Conn = Nothing
End If
%>

hvad har du skiftet ?

nå jo...Conn.Execute(SQL)