Updatere ?
Hejsa..Er det sådan jeg opdatere Feltet Online i databasen til 1 ?
og derefter tjekker om brugeren findes i databasen ??
<%
If Request.QueryString(\"mode\") = \"tjek\" Then
Brugernavn = Request(\"Brugernavn\")
Password = Request(\"Password\")
If Brugernavn > \"\" And Password > \"\" Then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"chat.mdb\")
SQL = \"Update brugere Set Online = \'1\' Where Brugernavn=\"\' & Brugernavn & \'\"\" AND Password=\'\"& Password &\"\'
RS = Conn.execute(SQL)
SQL2 = \"SELECT * FROM brugere WHERE Brugernavn=\'\"& Brugernavn &\"\' AND Password=\'\"& Password &\"\' ORDER BY id DESC\"
RS2 = Conn.execute(SQL2)
session(\"Brugernavn\") = RS2(\"Brugernavn\")
session(\"Password\") = RS2(\"Password\")
Response.Write(\"<META HTTP-EQUIV=\'Refresh\' CONTENT=\'0;URL=frame.asp\'>\")
Else
Response.Redirect(\"login.asp?fejl=Brugernavn/Password er forkert\")
End If
End If
Set Conn = Nothing
%>
