Recordset Movenext bringt Records 2mal

[fotzibaer]

Hallo zusammen,
irgendwie muss bei mir ein logischer Fehler drin sein:

Festlegung der Var rsitem

Dim rsitem
if (Request("rsitem") <> "") then
rsitem = CStr(Request("rsitem"))
else
rsitem = 0
end if

Die Var rsitem wird per querystring übergeben:

<a href="<%=CStr(Request.ServerVariables("URL"))%>?rsitem=<%= rsitem+1%>">Next</a>

Nach Verbindung zu db und SQL Abfrage:

rs.open()

Dim n
n = rsitem
response.write n
do while n > 0
rs.movenext
n = n-1
loop

Kann mir jemand einen Tipp geben, warum das nicht funzt?
Gruss & Danke
fotzibaer