Poäng problem?

Vad är det för fel på den här koden?
Det blir nytt rekord varje gång man spelar fast poängen är högre i databasen.

<%
points = request.form("points")
IF points <> "" then

Set rs = Connect.Execute("SELECT namn,poang,spelat FROM spel_rekord WHERE namn = '" & username & "' LIMIT 1 ")

If rs.EOF Then

str = "Detta var ju första gången och du fick "& points &"\n"

Connect.Execute("Insert Into spel_rekord(namn,spel_id,poang,spelat,datum) Values('" & username & "','1','" & points & "','1','" & Now() & "')")
Else

If points < rs("poang") Then

Connect.Execute ("update spel_rekord set spelat = spelat +1, datum='" & Now() & "' where namn='" & username & "' LIMIT 1")
str = "Sorry du slog inte ditt gamla rekord\nFast du fick "& points &" poäng"
Else
str = "Big up! Du slog ditt gamla rekord!\nIn med det i databasen. \n"
Connect.Execute ("update spel_rekord set poang="& points &", datum='" & Now() & "', spelat = spelat +1 where namn='" & username & "' LIMIT 1")

End If

End If

rs.Close : Set rs=Nothing

response.write "<script>alert(""" & str & """)</script>"

points = ""
End IF
%>