Hjælp til ny SQL string

Hejsa,

Jeg har omkring 1500 medlemmer på min side... Jeg bruger dette script det at tjekke om mange af dem som er online:

----------------------------------
Session.LCID = 1030
datoidag = (Date())
datoogtid = datoidag & " " & time

strSQL = "SELECT * FROM bruger;"
set rs = Conn.execute(strSQL)
if rs.EOF then
else
Do Until rs.EOF
strsidstaktivtetbruger = RS("sidstaktivtet")
strsidstaktivtetid = RS("id")
If DateDiff("s", strsidstaktivtetbruger, datoogtid) < 14 Then

strsidstaktivtetantal = strsidstaktivtetantal + 1

end if
RS.MoveNext
Loop
end if
----------------------------------

Kan man ikke gøre det på en smarter måde ? Sådan at den ikke behøver at køre alle brugerne igennem... ?  Det tar nemlig 4-5 sec. længere tid at loade siden med denne kode...

Jeg vil derfor høre om hvordan jeg hiver det samme resutat ud med en SQL string ?