Online brugere

Jeg er har lavet en kode der henter alle brugere fra en database der har været aktive de sidste to timer.

Eller det skulle den i hvert fald have gjort.

Problemet er at den faktisk tager alle brugere i databasen...

Min kode ser sådan her ud:

--------------------------

Dim date
date = now()
dateMinus = DateAdd("h",-2,date)

strSQL = "SELECT * FROM kunder WHERE sidstset > '"& dateMinus &"' order by sidstset ASC"
set rs = conn.execute(strSQL)

if rs.eof then
response.write "<font>&nbsp;Ingen brugere online pt.<br> &nbsp;"

else

do while not rs.eof
on error resume next
         
brugernavn = rs("brugernavn")

response.write brugernavn

rs.movenext
loop

end if

------------------------

Nogle der kan hjælpe?

med venlig hilsen
JW