Problema - Não consegue acessar o BD para alteração de dados.

No código de uma página que montei tem essa linha:

WriteLine "<a href='editar.asp?cod=<%=listar("cod")%>'>"

Quando acesso a página de busca para consultar os dados retorna esse erro:

Erro de compilação do Microsoft VBScript erro '800a0401'

Fim da instrução esperado

/cadastrocadu/multi.asp, linha 239

WriteLine "<a href='editar.asp?cod=<%=listar("cod")----------------------------------------------^

Alguém puder dar uma ajuda... Agradeço muito.

Att. Paulo