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"))