Jag fick ett iMail av Molle med en fråga angående kursen:

>Ang. den nya artikeln.
>Det går inte att på nån vänster göra så att när man loggar ut från sidan
>så blir man direkt offline? Och slipper vänta fem minuter på att detta ska
>visas för de andra användarna?
>Mvh /Molle

Ett sätt kan ju vara att sätta tiden till aktuell tid - 5 minuter, såhär borde fungera

If Len(Session("ID")) > 0 Then 'om inloggad
Dim ConUpdate
Set ConUpdate = Server.CreateObject("ADODB.Connection")
ConUpdate.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("online.mdb") & ";Persist Security Info=False"
ConUpdate.Execute "UPDATE tblUsers SET dteLastAccess = #" & DateAdd("n", -5, Now) & "# WHERE ID = " & Session("ID")
ConUpdate.Close
Set ConUpdate = Nothing
End If


/Johan