'Code 39 barcodes require an asterisk as the start and stop characters
Response.write "< IMG SRC=""asterisk.gif"" WIDTH=""30"" HEIGHT=""36"">"
For x = 1 to Len(Trim(rst("BarCodeText")))
Response.Write "< IMG SRC=""" & mid(rst("BarCodeText"),x,1) & _
".gif"" WIDTH=""30"" HEIGHT=""36"">"
Next
'Code 39 barcodes require an asterisk as the start and stop characters
Response.write "< IMG SRC=""asterisk.gif"" WIDTH=""30"" HEIGHT=""36"">"