Loja Virtual

[digital1984 0]

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...

[hargon 64]

Apesar dessa função criada ser complexa, ela está funcionando.

 

O problema deve estar na hora de passar os parâmetros para ela.

 

Mande escrever item.attributes.getNamedItem("valor").text e Application("te_moeda_cotacao"). Um deles parece estar com valor 10 e por isso está dando o erro.