数据库问题

<%
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open "select id from Product  order by id desc",conn,1,1
do while not rs.eof
if rs("id") mod 2<>0 then
response.write rs("id")&"<br>"
rs.movenext
loop
rs.close
set rs=nothing
%>