[Resolvido] Problemas com Função

Caros Amigos,

Estou com um problema há dias e só posso prosseguir com o projeto quando resolver.

Alguém poderia dar uma olhada se encontra o problrma?

Agradeço.

Tenho a seguinte função em ASP que fica no arquivo Config.asp que é incluíso em todas as páginas do site.

Function Dicionario(Registro)
Set InsDi = Server.CreateObject("ADODB.Recordset")
InsDi.CursorLocation = adUseServer
InsDi.CursorType = adOpenKeyset
InsDi.LockType = adLockOptimistic

	InsDi.Open "TB_DICIONARIO WHERE ID_OBJETO="&Registro, Banco, , , adCmdTable
	if Session("idioma") = "POR" then
 Conteudo = Replace(Trim(InsDi("PORTUGUES")),vbCrLf,"<br>")
	elseif Session("idioma") = "ING" then
 Conteudo = Replace(Trim(InsDi("INGLES")),vbCrLf,"<br>")
	elseif Session("idioma") = "ESP" then
 Conteudo = Replace(Trim(InsDi("ESPANHOL")),vbCrLf,"<br>")
	end if
	InsDi.Close

Set InsDi = Nothing
Response.Write(Conteudo)
End Function
Nas demais páginas.ASP eu faço, por exemplo:

VarErro = Dicionario(35)

Onde 35 é o código do erro na minha tabela de dicionário.

Acontece que VarErro não recebe nada. Se eu fizer:

<%=Dicionario(35)%>

O conteúdo é impresso. Alguém consegue ver o problema?

Obrigado.