vbscript?
no asp!
il codice è questo :

function ean13(numero)
factor=1

for i= 0 to 11
'prendo una ad una le cifre
char= Mid(numero,i,1)

'le moltiplico ora * 1 ora * 3 e le appiccico una all'altra
sum= sum + char * factor
factor= 4 - factor

next

x=1000-sum
lunghezza=len(x)
ean13 = mid (x,lunghezza-1,1)
response.write (ean13)
end function



questa è tutta la funzione....
è un algoritmo che calcola l' ultima cifra di un codice ean13(codice a barre lungo 13 cifre)
In questo modo scorro la mia stringa numerica e moltiplico tutte le cifre ora per 1 ora per 3....ecc..non ti preoccupare del resto, ti incasinerebbe e basta...
il problema è che non mi funziona sto cazzo di substring.
Te ne intendi di visual basic?