codigo de barras en asp.

[lexus]

alguien sabe como traducir este codigo a asp para generear el digito verificador de EAN-13
gracias.

Código:

FUNCTION CheckDigitEan(tcCodigo)
  LOCAL lnSuma, lnI, lnPos
  STORE 0 TO lnSuma, lnPos
  FOR lnI = LEN(tcCodigo) TO 1 STEP -1
  lnPos = lnPos + 1 
    lnSuma = lnSuma + (VAL(SUBSTR(tcCodigo,lnI,1)) * IIF(MOD(lnPos,2)=0,1,3))
  ENDFOR
  RETURN tcCodigo + TRANSFORM(MOD(10-MOD(lnSuma,10),10))
ENDFUNC