Select nao funciona

estou tentando dar um select em uma tabela para ela lista mas nao funciona.<% Set WRS = Server.CreateObject("adodb.recordset") SQL = "select * from LOGIN_ROOT" IF WRS.EOF then Response.Write "nenhum registro encontrado" Response.End ELSE DO WHILE NOT WRS.EOF Response.write WRS("NOME") WRS.MoveNext LOOP END IF WRS.CLOSE() WRS = NOTHING%>