perchè mi và in loop infinito?

[dops]

come da titolo.. perchè mi và in loop infinito?

set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM cat_documenti order by cat"
rs.open sql, conn,3,3
id=rs("id")
cat=rs("cat")
categoria=""&id&" "&cat
do while not rs.eof
response.write categoria
loop