[ASP] download jpg sommige wel andere niet

[GoVegan]

he hoi

ik gebruik nu een download script om jpgjes te downloaden in plaats te openen in een browser. dit werkt goed alleen
krijg ikbij sommige jpgjes een leeg jpgje, ik denk dus dat het aan het jpgje zelf ligt. maar bij welke jpgjes werkt het nu wel en welke niet. want ik kan geen verschil in de bestanden vinden. iemand enig idee.

oja dit script gebruik ik:


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../login/verbreek.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
if(Request("wat") <> "") then wat__varwat = Request("wat")
%>
<%

FileName = wat__varwat


' Constants for Reading Text File
Const ForAppending = 8
Const ForReading = 1
Const ForWriting = 2
Const TristateFalse = 0
Const TristateMixed = -2
Const TristateTrue = -1
Const TristateUseDefault = -2

' File System Objects
Dim FSO
Dim TS

' Server File (this is the REAL name of the file)
Dim strFile
Dim resolutie
resolutie = "low"
If (Request("res") <> "") Then
resolutie = Request("res")
End If

If resolutie = "high" Then
strFile = Server.MapPath("../../visuals/=/highres/"&(Filename))
ElseIf resolutie = "low" Then
strFile = Server.MapPath("../../visuals//preview/"&(Filename))
End If

' File to Save As (this is the name you want to tell the browser)
Dim strFileSave: strFileSave = Filename

' Tell Browser what the file name is, so it doesn't try to save as "default.asp"
Call Response.AddHeader("Content-Disposition","attachment; filename=""" & strFileSave & """")

' Write out content-type that will FORCE user to SAVE FILE.
' "image/gif" will display in browser
Response.ContentType = "bad/type"

' Initialize File System Object
Set FSO = Server.CreateObject("Scripting.FileSystemObject")

' Open TextStream for Reading
Set TS = FSO.GetFile(strFile).OpenAsTextStream(ForReading,TristateTrue)

' TS.ReadAll DOES NOT WORK. Every Byte must be read and written individually.
' I think you can read them in Chucks, but this was easier. If you know how to
' Read chunks... go ahead, read chunks
Do While Not (TS.AtEndOfStream)
' Output MUST be BinaryWrite
Response.BinaryWrite(TS.Read(1))
Loop

' Cleanup, like all good programmers do.
TS.Close
Set TS = Nothing
Set FSO = Nothing

' You don't need this, but I like it.
Response.End
%>

[whoami]

Misschien is het even handig als je het script debugged. Dan kan je zien waar er welke problemen optreden. Verder denk ik ook niet dat je het script zelf geschreven hebt, dus dan kan je het best ook ff de maker ervan mailen voor wat uitleg.

Tip: gebruik ook code-tags als je code post, en lees ook ff de P&W quickstart.

Dit topic is gewoon een 'debuggen jullie het ff voor mij', en daar doen we hier op P&W niet aan mee...
Dus: debug het script, zoek ff wanneer het fout gaat etc...
Succes.