Loja Virtual

Pessoal, Bom DIA,

Estou com um problema, em minha loja virtual.

O problema é o seguinte:

QUANDO eu clico em comprar! Ex. R$ 195,45, ele esta retornando no carrinho de compras R$ 1.954,50 estranho néh....

Abaixo segue os códigos para você´s analisarem!

CESTA.ASP

<%=FormataValor(item.attributes.getNamedItem("valor").text*Application("te_moeda_cotacao"))%>
FUNCOES.ASP

Function FormataValor(Valor)
Dim sp, sv, v
sp = Mid(FormatNumber(1000, 0, -1, 0, -1),2,1)
sv = Mid(FormatNumber(0.1, 1, -1, 0, -1),2,1)
If isNumeric(Valor) Then
v = FormatNumber (Valor, 2, -1, 0, -1)
Else
v = FormatNumber (0, 2, -1, 0, -1)
End If
v = Replace(v, sp, "p")
v = Replace(v, sv, "v")
v = Replace(v, "p", ".")
v = Replace(v, "v", ",")
FormataValor = v
End Function
POSTEM aí...abraços...