Select nao funciona

[danilo.rp 0]

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%>

[Ratu 0]

coloque--> SET wrs = CONEXAO.EXECUTE(sql) depois de --> SQL = "select * from LOGIN_ROOT"