hm får lidt fejl ud af det :
dette lettere modificerede eksempel fra mm12010
<%
Dim objStream, strFile, strFileType
Const adTypeBinary = 1
' Filen vi vil sende til brugeren
strFile = request.querystring("fil")
'This retreives a file field's MIME type
sPos = InStr(strFile, "Content-Type: ")
GetFileType = Mid(strFile, sPos + 14)
' Filens MIME type
strFileType = GetFileType
' Åbner stream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
' Fortæller ADODB.Stream at indholdet er i binært format
objStream.Type = adTypeBinary
' Henter filen ind i vores stream
objStream.LoadFromFile "../files/" & strFile
' Sender en header til browseren
Response.AddHeader "content-disposition","attachment; filename=" & strFile
' Fortæller browseren om vores MIME type
Response.ContentType = strFileType
' Skriver filens indhold ud til brugeren
Response.BinaryWrite(objStream.Read)
Response.Flush()
objStream.Close()
Set objStream = Nothing
%>
giver :
Siden kan ikke vises
Der er problemer med den side, du prøver at åbne, og den kan ikke vises.
--------------------------------------------------------------------------------
Prøv følgende:
Åbn hjemmesiden
www.globalnewtech.com, og søg efter hyperlinks, der fører til de ønskede oplysninger.
Klik på knappen Opdater, eller prøv igen senere.
Klik på Søg for at søge efter oplysninger på Internettet.
Du kan også se en liste over relaterede websteder.
HTTP 500 - Intern serverfejl
Internet Explorer
