<%
pic = request.QueryString("pro")
call download(server.mappath("./"&pic)) 
Function download(File) 
      temp = Split(File, "\") 
      filename = temp(UBound(temp)) 
      Set s = CreateObject("adodb.stream") 
      s.mode = 3 
      s.Type = 1 
      s.Open 
      s.loadfromfile(File) 
      data = s.Read 
      If IsNull(data) Then 
          response.Write "Пе" 
      Else 
          response.Clear 
          Response.ContentType = "application/octet-stream" 
          Response.AddHeader "Content-Disposition", "attachment; filename=" & filename 
          response.binarywrite(data) 
      End If 
      Set s = Nothing 
End Function
%>