CGI WEBCODE - The barcode generator: Example # 1

<% Function GetPar(Byval p, Byval d) if Request.Form(p) <> "" then Session(p) = Request.Form(p) else Session(p) = d end if If Session(p) <> "" Then GetPar = p & "=" & Session(p) & "&" Else GetPar = "" End if End Function Function OpRadio(Byval par, Byval valor) if Session(par) = valor then OpRadio = "checked" else OpRadio = "" end if End Function Dim par par="G=001&A=2074&B=32&" b=32 if Request.Form("M") <> "" and GetPar("M", 08) = "M=08&" then par="G=001&A=2074&B=32&" b=32 end if if Request.Form("M") <> "" and GetPar("M", 10) = "M=10&" then par="G=001&A=2593&B=41&" b=41 end if if Request.Form("M") <> "" and GetPar("M", 12) = "M=12&" then par="G=001&A=3112&B=50&" b=50 end if if Request.Form("M") <> "" and GetPar("M", 15) = "M=15&" then par="G=001&A=3890&B=62&" b=62 end if if Request.Form("M") <> "" and GetPar("M", 20) = "M=20&" then par="G=001&A=5186&B=84&" b=84 end if e=b+0 if Request.Form("B") <> "" and GetPar("B", 0) = "B=0&" then e=b+0 end if if Request.Form("B") <> "" and GetPar("B", 2) = "B=2&" then e=b+2 end if if Request.Form("B") <> "" and GetPar("B", 4) = "B=4&" then e=b+4 end if if Request.Form("B") <> "" and GetPar("B", 8) = "B=8&" then e=b+8 end if par = par & "E=" & e & "&" par = par & GetPar("R", "75") x = GetPar("M", "10") x = GetPar("B", "2") par = par & GetPar("C", "08961900100") if Right(par,1) = "&" then par = Left(par,len(par)-1) end if %> CGI WEBCODE - The barcode generator: Example # 1

<% if par <> "" then %>

UPC-A barcode

<% end if %>

Above, the UPC-A barcode generated according to the following characteristics. In order to generate the barcode again fill in the fields according to your preferences and click on the "Generate barcode" button.

To see the source code (ASP) of this page, click here