Använder denna kod (nedan) för nersparande av olika filer från min sida. Allt funkar bra.. olika filtyper osv, men dom namnges alltid såsom sidan som man utför nerladdningen ifrån heter. T.ex. om jag använder skriptet på "test.asp" så vill den också döpa t.ex. bildfilen till "test.jpg" Går det att bestämma vad den ska föreslå för namn på filen då den ska sparas till klientdatorn?

<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = nybild
'Kolla så att dom inte stjäl din kod
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "Filtypen är inte tillåten."
Response.End
End Select
' Skicka filen
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End%>