Convertire da numero a codice a barre

[br1]

<%
dim img(2)
img(0) = "img/bc39_0.gif" ' immagine bianca
img(1) = "img/bc39_1.gif" ' immagine nera




function Br1Bar(largo,alto,codice,lungo) 
'// ------------------------- creazione stringa con tabella BarCode
codice = right("0000000000000"&codice,lungo)
cod = codice
if lungo=12 then cod = "0"&cod
binario = BinBar(cod) ' trasformo in sequenza di 1 e 0 - nero e bianco
response.write binario&"<hr>":response.flush ' per test
tabella = ""
ii=1
for kk=1 to 96
    ii = 1 - ii
    aa = alto
    tabella = tabella & "<img src="""
    tabella = tabella & img(ii)
    tabella = tabella & """ width="&largo&" height="&aa+">"
next
tabella = tabella & "<br>" & codice
Br1Bar = tabella
end function






function BinBar(codice) 
a = split(",000000000110101001111110010,001011001100101100111100110,001101001001100110111101100,001110011110101000011000010,010011010001100111011011100,011001011000101110011001110,011100010111100001011010000,010101011101100100011000100,010110011011100010011001000,011010000101100101111110100",",") 
seq = mid(a(cint(left(codice,1))+1),1,6)


'// creo la sequenza del barcode 
cc = "101"
dd = mid(codice,2,6);
for kk=1 to 6
    aa = cint(mid(dd,kk,1))
    bb = cint(mid(seq,kk,1))
    cc = cc & mid(a(aa),bb*7+7,7)
next
cc = cc & "01010"
dd = mid(codice,8,6);
for kk=1 to 6
    aa = cint(mid(dd,kk,1))
    bb = cint(mid(seq,kk,1))
    cc = cc & mid(a(aa),bb*7+7,7)
next
cc = cc & "101"
BinBar = cc
end function

[max1975_na]

Grazie per la celere risposta e scusa se rispondo solo adesso!
In pratica il numero che dovrei convertire è un numero telefonico di 10 cifre.
Il sito gestisce delle richieste per effettuare ricariche telefoniche.
Attualmente tutto funziona, e ad ogni richiesta di ricarica arriva una email con il numero, l'importo e il gestore.
Adesso per comodità il cliente mi ha chiesto se fosse possibile, oltre a questi 3 dati ricevere anche il codice a barre relativo al numero cosi da agevolare la ricarica, visto che ha anche un bar code.

Se questo fosse complicato potrei anche inserire un link nell'admin, relativo alla stringa delle relative ricariche in attesa, che apre un popup col codice a barre..

Cosa ne pensi!!?

Grazie nuovamente

<%
dim img(2)
img(0) = "img/bc39_0.gif" ' immagine bianca
img(1) = "img/bc39_1.gif" ' immagine nera




function Br1Bar(largo,alto,codice,lungo) 
'// ------------------------- creazione stringa con tabella BarCode
codice = right("0000000000000"&codice,lungo)
cod = codice
if lungo=12 then cod = "0"&cod
binario = BinBar(cod) ' trasformo in sequenza di 1 e 0 - nero e bianco
response.write binario&"<hr>":response.flush ' per test
tabella = ""
ii=1
for kk=1 to 96
    ii = 1 - ii
    aa = alto
    tabella = tabella & "<img src="""
    tabella = tabella & img(ii)
    tabella = tabella & """ width="&largo&" height="&aa+">"
next
tabella = tabella & "<br>" & codice
Br1Bar = tabella
end function






function BinBar(codice) 
a = split(",000000000110101001111110010,001011001100101100111100110,001101001001100110111101100,001110011110101000011000010,010011010001100111011011100,011001011000101110011001110,011100010111100001011010000,010101011101100100011000100,010110011011100010011001000,011010000101100101111110100",",") 
seq = mid(a(cint(left(codice,1))+1),1,6)


'// creo la sequenza del barcode 
cc = "101"
dd = mid(codice,2,6);
for kk=1 to 6
    aa = cint(mid(dd,kk,1))
    bb = cint(mid(seq,kk,1))
    cc = cc & mid(a(aa),bb*7+7,7)
next
cc = cc & "01010"
dd = mid(codice,8,6);
for kk=1 to 6
    aa = cint(mid(dd,kk,1))
    bb = cint(mid(seq,kk,1))
    cc = cc & mid(a(aa),bb*7+7,7)
next
cc = cc & "101"
BinBar = cc
end function