Jens Jensen wrote in news:af6ttg$nbs$1@news.net.uni-c.dk:
> Nedenstående kode virker sådan set, men den fil som der bliver
> download kan ikke genkendes af Access. Det er en Access database som
> bliver download og som har den sammestørrelse. Nu er det så jeg ikke
> kan finde ud af hvorfor filen ændre struktur, eller hvad det nu
> hedder.
>
> Håber en kan hjælpe en uviden som mig
> Michael
>
>
> <%
> Dim objStream
> Set objStream = Server.CreateObject("ADODB.Stream")
>
> objStream.Type = 1 ' Her sætter vi at det er en binær fil
> objStream.Open
> objStream.LoadFromFile "Sti til filen"
>
> Response.ContentType = "multipart/mixed"
> *Response.BinaryWrite objStream.Read
> *Response.AddHeader "content-disposition", "attachment; filename=strandvejslobet.mdb"
du skal bytte om på rækkefølgen af disse to linier herover (markeret
med *)
Der skal self først skrives til browseren når alle headers er sat.
> objStream.Close
> Set objStream = Nothing
Jeg har tidligere brugt følgende (med succes)
<%@Language=VBScript%>
<%
set oStream = server.createobject("ADODB.Stream")
oStream.Type = 1 'adTypeBinary
oStream.Open
oStream.LoadFromFile (server.mappath("db.mdb"))
Response.ContentType = "application/octet-stream"
Response.Addheader "Content-Disposition", "inline; filename=db.mdb"
Response.BinaryWrite oStream.Read
oStream.Close
set oStream = nothing
%>
:)
--
Jesper Stocholm
http://stocholm.dk
http://asp.stocholm.dk
Svar til gruppen og ikke til mig privat pr. email :|