Download

Tjaabbaa har meckat ett download script som funkat utmärkt inann men nu tvääääär vägrar det å va med på noterna

kåden är enligt följande

	Response.Expires = 0
	'Response.AddHeader "pragma", "no-cache"
	Response.ContentType =  "msdownload" '"application/x-unknown-zip"

	Dim objStream, strFilename , fPath

	fPath = Server.MapPath("."&"/")

	strFilename = fPath & "\" & Trim(Request.QueryString("action"))
	Set objStream = Server.CreateObject("ADODB.Stream")

	Response.AddHeader "Content-Disposition", "attachment;no-cache; filename=" & Right(strFilename, Len(strFilename) - InStrRev(strFilename,"/"))

	objStream.Type = 2  'AdTypeBinary
	objStream.Open
	objStream.LoadFromFile(strFilename)

	Response.BinaryWrite objStream.Read(objStream.size)

	objStream.Close

	Set objStream = Nothing

där den klagar högljut på denna raden nu

	Response.BinaryWrite objStream.Read(objStream.size)

nån som kan ha en susning om varför den inte vill va med längre börjar fundera på om det är ADODB.Stream objektet som är kefoo på servern i och med att det funkat innan