<%Call dbOpen() strSQL = "SELECT * FROM chattUser WHERE dtelastSeeenOnline > #"& DateAdd("n", -1, Now())&"#" Set rs = minCon.Execute(strSQL) if rs.EOF Then Response.Write("Ingen är online") Else Do until rs.EOF Response.Write rs("chattNamn") & "
" rs.MoveNext Loop end if Call dbClose() %>