codigo de barras en asp.

[Shiryu_Libra]

...

no se si estara correcto esto....

dale una miradita... comenta en caso de errores

Código PHP:

  <&#37;
Function Check(codigo)
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(mod(10-(MOD(lnsuma,10),10)))
end function

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