update

Rent gæt:

SQL = "SELECT id FROM brugerliste WHERE brugernavn = '"& Session("login") &"' AND (loggetind = 1 or loggetind = 2)"

øhh jeg forstår ikke hvad du mener... den laver da updaten af brugerlisten ok, i tilfælde af du ved hvad der er galt hvad skal så laves om *s*

Jeg mener bare om de paranteser ikke skal være der? Det kan godt være
de ikke har betydning for dette problem.

Hvad er typen af feltet [klokken]

bare tekst... synes ikke andet var nødvendigt

har prøvet med din sql og virker ikke *s*

Ja, så er det jo ikke det.

i den ene skriver du loggetind som tal (1 og 2) og i den anden som tekst ('0')
Det betyder måske ikke noget.
Jeg mener også man må skriver [actions] om tabelnavnet - jeg plejer
nu kun at have problemet ved feltnavne.

Kommer der ingen fejl? Kan du sætte nogle testudskrifter ind.

(PS: Jeg tror stadig jeg har ret mht paranteserne!)

UPDATE brugerliste SET loggetind = '1' WHERE id = 11UPDATE [actions] SET [navn] = 'Mark', [action] = 'er away', [klokken] = '11/30/2002 10:01:35 PM' WHERE id = 11

sådan

det er godt nok taget fra en anden bid men pricippet er det samme

Det du'r ikke at tage fra "en anden bid", når det er her problemet er.

jo for princippet er det samme

<% if Request.Form("B1") <> "" then %>
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="& Server.MapPath("db.mdb")

Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT id FROM brugerliste WHERE brugernavn = '"& Session("login") &"' AND (loggetind = 1 or loggetind = 2)"
Set RS = Conn.Execute(sql)

if not RS.eof then
SQL = "UPDATE brugerliste SET loggetind = '0' WHERE id = "& RS("id")
Conn.execute(SQL)
SQL = "UPDATE [actions] SET  [navn] = '"& Session("login") &"', [action] = 'er logget af', [klokken] = '"& now() &"' WHERE id = "& RS("id")
Conn.execute(SQL)
end if

RS.Close
Set RS = Nothing
Set Conn = Nothing
Session("login") = ""
%>
<% end if %>
<% if Request.Form("B2") <> "" then %>
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="& Server.MapPath("db.mdb")

Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT id FROM brugerliste WHERE brugernavn = '"& Session("login") &"' AND (loggetind = 2)"
Set RS = Conn.Execute(sql)

if not RS.eof then
SQL = "UPDATE brugerliste SET loggetind = '1' WHERE id = "& RS("id")
'Conn.execute(SQL)
response.write(SQL)
SQL = "UPDATE [actions] SET  [navn] = '"& Session("login") &"', [action] = 'er away', [klokken] = '"& now() &"' WHERE id = "& RS("id")
'Conn.execute(SQL)
response.write(SQL)
end if

RS.Close
Set RS = Nothing
Set Conn = Nothing
%>
<% end if %>
<% if Request.Form("B3") <> "" then %>
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="& Server.MapPath("db.mdb")

Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT id FROM brugerliste WHERE brugernavn = '"& Session("login") &"' AND (loggetind = 1)"
Set RS = Conn.Execute(sql)

if not RS.eof then
SQL = "UPDATE brugerliste SET loggetind = '2' WHERE id = "& RS("id")
Conn.execute(SQL)
SQL = "UPDATE [actions] SET  [navn] = '"& Session("login") &"', [action] = 'er tilbage', [klokken] = '"& now() &"' WHERE id = "& RS("id")
Conn.execute(SQL)
end if

RS.Close
Set RS = Nothing
Set Conn = Nothing
%>
<% end if %>
den er disse tre "events" den er gal med.

Jeg forstår dig ikke. Du kunne ligesågodt have sat udskriften ind det
rigtige sted. Hvorfor er du ude på at spilde vores tid. Jeg afmelder
emails fra dette spørgsmål. Ha' det godt.

hvorfor gør du nu det... jeg synes da jeg har forklaret problematikken som er at den ikke updater actions

lukker