sub Session_OnEnd
if session("userid")<>"" then
set OdbMain = server.createobject("ADODB.Connection")
OdbMain.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("databas.mdb")
OstrSQL="Update user_tbl set online=0 where userid = "&session("UserID")&""
set ORS = OdbMain.execute(OstrSQL)
OdbMain.close
set OdbMain = nothing
end if
end sub
vad jag vill uppnå är ju att återställa ett onlinefält i databasen så att man inte syns på siten längre... är jag ute och cyklar?