Foros del Web » Programando para Internet » ASP Clásico »

Problema con ASPMAIL

Estas en el tema de Problema con ASPMAIL en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 29/05/2007, 02:49
 
Fecha de Ingreso: noviembre-2005
Mensajes: 889
Antigüedad: 18 años, 7 meses
Puntos: 8
Problema con ASPMAIL

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.
  #2 (permalink)  
Antiguo 29/05/2007, 13:56
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Re: Problema con ASPMAIL

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 (intNumberThen
    intNumber 
csng(Replace(intNumber"."strServerComma))
End If 
intentalo...
suerte
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:39.