alguien sabe de codigo de barras????

[lenz]

Te paso las modificaciones que le hice al barcode.asp, yo lo llamo desde un html, para que genere la imagen y después la uso en otro archivo.

La llamada

Código:

<p style="display=none;"><img src='barcode/barcodeJPG.asp?code={code}&mode=code128b&height=35&width=2&fileOut=image/cbf{ORID}.jpg' border="0" /></p>

En barcode.asp

Código:

if fileout <> "" Then	

	set FSO	= server.createobject("Scripting.FileSystemObject")
	set File	= FSO.CreateTextFile(server.mappath(fileout), true, false)
	file.write datawrite
	set File	= nothing
	set FSO	= Nothing
	
	ResizeImage server.mappath(fileout), "jpg", iWidth, iHeight
		
	response.redirect fileout


else
	response.contenttype	= "image/bmp"
	response.binarywrite stb(datawrite)
end if

Function ResizeImage(FileName, OutFormat, Width, Height)  
   Dim Chs, chConstants  
   'Create an OWC chart object  
   Set Chs = CreateObject("OWC10.ChartSpace")  
     
   Set chConstants = Chs.Constants  
     
   'Set background of the chart  
   Chs.Interior.SetTextured FileName, chConstants.chStretchPlot, , chConstants.chAllFaces  
   Chs.border.color = 0 
   
   'export the picture to a file
   Chs.ExportPicture FileName, OutFormat, Width, Height
     
 End Function

espero te sea útil.