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

------------------
hof the best beer there is =)

[Redigerat av Hoffe den 14 jun 2001]

Vad är det för ett felmeddelande du får?

hmm får detta som fel medelande

Operation is not allowed in this context.

ådet är på den raden som jag på pekade inann

------------------
hof the best beer there is =)