Er der nogen der kan hjælpe mig med at finde ud ad , hvad der
skal ændres i nedenstående kode, for at jeg kan få den til også
at kunne downloade filer, hvor filnavnet indeholder æ ø eller å
(koden virker udmærket til filer uden danske bogstaver)
Koden er:
<%
' Get file details
Filename = server.HTMLEncode(Trim(cstr("" &
request("Filename"))))
' create stream object
on error resume next
Set GetFile = Server.CreateObject("ADODB.Stream")
GetFile.Type = 1
GetFile.Open
GetFile.LoadFromFile Server.Mappath("linjefaguploads\"&Filename)
If Err.number = 0 Then
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment;
filename="&Filename
Response.AddHeader "Content-Transfer-Encoding","binary"
Response.BinaryWrite GetFile.Read
GetFile.Close
Set GetFile = Nothing
Response.End()
Else '< Error
GetFile.Close
Set GetFile = Nothing
Response.Redirect("/default.asp?p=error")
End If
%>
på forhånd tak
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials