Ciao.

Il seguente script restituisce un errore a me sconosciuto e cioè:

Tipo di errore:
Oggetto risposta, ASP 0106 (0x80020005)
È stato individuato un tipo di dati privo di handle.
Lo script è il seguente, in rosso la linea dell'errore:

codice:
<%

if code <> "" then
	bcwidth     = gWidth()
	if bcWidth > (len(code)*width) then code = Pad(code, bcWidth)
	dataout		= tstr(cIf(instr("postnet:planet", lcase(mode))>0, code_l, code), width)
	if text then height2 = cint(mid(eval("font" & font), 1, 2)) else height2 = 0
	height2     = height2 + height
	datawrite	= (chr(66) & chr(77) & size(62+(len(dataout)*height2)) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0) & chr(62) & chr(0) & chr(0) & chr(0) & chr(40) & chr(0) & chr(0) & chr(0) & size(bcwidth) & chr(0) & chr(0) & size(height2) & chr(0) & chr(0) & chr(1) & chr(0) & chr(1) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0) & chr(37) & chr(14) & chr(0) & chr(0) & chr(37) & chr(14) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0) & chr(255) & chr(255) & chr(255) & chr(0) & chr(0) & chr(0) & chr(0) & chr(0))

	if text then
		ffile     = eval("font" & font)
		fheight   = cint(mid(eval("font" & font), 1, 2))
		fwidth    = cint(mid(eval("font" & font), 3, 2))
		for i = fheight to 1 step -1
			tmp = ""
			for j = 1 to len(origcode)
				if mid(origcode, j, 1) = " " then
					if lcase(mode) = "upc-a" and i<=5 and pushupc then
						tmp = tmp & mid(code, len(tmp)+1, UPCSpacing)
					elseif lcase(mode) = "upc-a" and pushupc then
						tmp = tmp & replace(space(UPCSpacing), " ", "0")
					else
						tmp = tmp & replace(space(fwidth), " ", "0")
					end if
				else
					tmp = tmp & mid(ffile, (instr(FontKey, mid(origcode, j, 1))-1)*(fheight*fwidth)+((i-1)*fwidth)+5, fwidth)
				end if
			next
			datawrite = datawrite & tstr(pad(tmp, bcwidth), 1)
		next
	end if

	for i	= 1 to cIf(instr("postnet:planet", lcase(mode))>0, int(height/2), height)
		datawrite = datawrite & dataout
	next
	if instr("postnet:planet", lcase(mode))>0 then
		dataout  = tstr(code_U, width)
		For i = 1 To int(height/2)
			datawrite = datawrite & dataout
		Next
	end if
end if


if fileout <> "" then
	set FSO	= server.createobject("Scripting.FileSystemObject")
	set File	= FSO.CreateTextFile(server.mappath(fileout), true)
	file.write (datawrite)
	set File	= nothing
	set FSO	= nothing
	response.redirect fileout
else
	response.contenttype	= "image/bmp"
	response.binarywrite stb(datawrite)   
end if

%>