Download script - åndsvagt problem

Jeg fandt dette udemærkede script her på eksperten, men har et lille problem med at få det til at virke. Den virker som den står herunder, men hvis filen ligger i en mappe, så kan jeg simpelthen ikke få den til at makke ret.
Jeg har prøvet med picname = "mappe/1508.jpg" - men no luck. Er der nogen der kan hjælpe?

<%
Const adTypeBinary = 1

Response.Expires = 0
Response.Buffer = TRUE

picname = "1508.jpg"
Set uAgent = Request.ServerVariables("HTTP_USER_AGENT")
if (inStr(uAgent, "IE")) Then
      ' Explorer
      Response.ContentType = "m_type"
      Response.AddHeader "Content-Disposition", "atachment; filename="& picName
Else
      ' NetScape
      Response.ContentType = "application/octet-stream"
      Response.AddHeader "Content-Disposition", "attachment; filename="& chr(34) & picName & chr(34)
End if

Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile server.mappath(picName)
Response.BinaryWrite objStream.Read

objStream.Close
Set objStream = Nothing

Response.Flush
%>

/simon