codice:
<%
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