Hola a todos,
En la implementación de un sistema de formulario asp con el sistema aspmail para una tienda virtual, al proceder a la finalización de la operación de compra me sale un error al enviar el formulario.
En principio, el error que arroja es:
Error de Microsoft VBScript en tiempo de ejecución error '800a000d'
No coinciden los tipos: 'csng'
/Tienda/includes/functions/common.asp, línea 58
Os pongo toda la función, que comienza en la línea 57, siendo la siguiente la línea conflictiva que incluye dicho problema:
Function RoundNumber(intNumber)
intNumber = csng(Replace(intNumber, ".", strServerComma))
if len(strRoundNumber) > 0 then
roundtemp = Round(intNumber, strRoundNumber)
comma_place = instr(roundtemp, strServerComma)
if comma_place > 0 then
x = 0
for x = comma_place + 1 to (comma_place + strRoundNumber)
if NOT isnumeric(mid(roundtemp, x, 1)) then
roundtemp = roundtemp & "0"
end if
next
else
roundtemp = roundtemp & ","
x = 0
for x = 1 to strRoundNumber
roundtemp = roundtemp & "0"
next
end if
else
roundtemp = Round(intNumber, 0)
end if
RoundNumber = roundtemp
roundtemp = Replace(RoundNumber, strServerComma, strDecimalSign)
if len(strSeparator) > 0 AND instr(roundtemp, strDecimalSign) > 0 then
before_comma = getComma(left(roundtemp, instr(roundtemp, strDecimalSign) - 1))
roundtemp = before_comma & mid(roundtemp, instr(roundtemp, strDecimalSign))
end if
RoundNumber = roundtemp
end function
Gracias por vuestra ayuda.