<%@ Language=VBScript %> <%Option Explicit %> <%Response.Buffer = TRUE%> <% 'Copyright © 2002, IDAutomation.com, Inc. All rights reserved. 'All trademarks mentioned are the property of their respective owners. Dim mnTimes if Request.form("sbarcode") <> "" then mnTimes = CInt(Request.form("sbarcode")) else mnTimes = 0 end if %> BARCODE LOAD TEST - enter a number up to 32760

Barcode:
<% Dim i Dim lsBarcode, lsBarcodeData if mnTimes > 32760 Then 'The Variant is the only data type allowed in ASP, so this is the max number mnTimes = 32760 end if if (mnTimes Mod 20)=0 Then 'Need to add 1 so the image shows up after it is cleared mnTimes = mnTimes +1 end if if mnTimes = 0 then Response.Write "No Barcode!" else For i = 1 to mnTimes lsBarcodeData = "BARCODE=" & i Response.Write "" if (i Mod 20)=0 Then Response.Clear Response.Write "Clearing the images after each 20 are generated.
" Response.Write "You must use the browser back button to start over.
" end if Next end if %>