ASP HTML DECODE,ERRO AO CHAMAR FUNÇÃO

<%=links(HTMLDecode("codigo_chat"))%> Pessoal o problema acho que está aqui, está retornando este erro

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado,será que eu chamei a função HTMLDECODE errado ?

A função está logo Abaixo:

<%

Function HTMLDecode(ByVal EncodedString)

'Declarations

Dim ret

Dim i

'Decoding

ret = EncodedString

ret = Replace( ret, """, chr(34) )

ret = Replace( ret, "<" , chr(60) )

ret = Replace( ret, ">" , chr(62) )

ret = Replace( ret, "&" , chr(38) )

ret = Replace( ret, " ", chr(32) )

For i = 1 to 255

ret = Replace( ret, "" & i & ";", chr( i ) )

Next

'Return

HTMLDecode = ret

End Function

%>

<%

abreconexao

sql1="select *from chat where status_chat='sim'"

set configchat=conexao.execute(sql1)

do while not configchat.eof

%>

<%=links(HTMLDecode("codigo_chat"))%> Pessoal o problema acho que está aqui, está retornando este erro

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado,será que eu chamei a função HTMLDECODE errado ?

<%

configchat.movenext

%>

<%

loop

fechaconexao

%>