codigo de barras en asp.

[Shiryu_Libra]

Iniciado por lexus

gracias por la ayuda shiryu
ahora la linea ke me saca error de sintaxis es esta que esta en rojo tambien es con el MOD

Código:

 
dim LnSuma, Ini, LnPos
lnsuma=0
lnpos=0
for Ini=(len(codigo)) to 1 step -1
    lnpos = lnpos + 1
    lnsuma = lnsuma + (cdbl(mid(codigo,ini,1)) * evaluacion(lnpos))
next
check = codigo + cstr((10-(lnsuma MOD 10)) mod 10)
 
end function
function evaluacion(temp)
if MOD(temp)=0 then
    data=1
else
    data=3
end if
evaluacion = data
end function
 
response.write Check(rs("codigo_barras"))

error mio... creo que me falto comer ese dia o seria la espuma... en fin

me faltaba un 2 dentro de la funcion evaluacion

function evaluacion(temp)
if (temp MOD 2)=0 then
data=1
else
data=3
end if
evaluacion = data
end function