Tirar virgula do ultimo registro

[smez]

<%

Set busca = createobject("adodb.recordset")

Set busca.activeconnection = abredb

SQL = "SELECT DISTINCT Nome FROM Foto"

busca.open sql

%>

<script>

var customarray=new Array(<%while not busca.eof%>'<%=busca("Nome")%>',<%busca.movenext:wend%>);

</script>

Tenho esse script,

como que eu faço para tirar a virgula depois do ultimo registro listado.

[.Andreia.]

if right(variavel,1) = "," then
    variavel= mid(variavel, 1, len(variavel)-1)
end if

[marcos_804]

Mas aí andrea, como ele vai saber que chegou no ultimo registro?

smez, estou meio sem tempo. À noite eu posto uma outra solução.

[sabino]

Pessoal, é do jeito que a andreia_sp postou, mas não tão compactado com o smez quer...

<%
function listar()

    Set busca = createobject("adodb.recordset")
    Set busca.activeconnection = abredb

    SQL = "SELECT DISTINCT Nome FROM Foto"
    busca.open sql

    while not busca.eof
        listar = listar & "'" & busca("nome") & "'," 
        busca.movenext
    wend

    if len(listar) > 0 then
        listar = mid(listar, 1, len(listar) - 1)
    end if

end function

%>
&lt;script>
var customarray=new Array(<%=listar()%>);
</script>

Parece que assim resolve.

[]'s a todos!