Problema con ASPMAIL

[JUMASOL]

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.

[Shiryu_Libra]

segun este POST, al parecer llamas a tu funcion con caracter vacio.... entonces:

en esta parte

Código PHP:

  Function RoundNumber(intNumber)
    intNumber = csng(Replace(intNumber, ".", strServerComma))  
   

segun el post, deberia quedar de esta forma:

Código PHP:

  Function RoundNumber(intNumber)
If Trim(intNumber) <> vbNullString And IsNumeric (intNumber) Then
    intNumber = csng(Replace(intNumber, ".", strServerComma))
End If  
   

intentalo...
suerte