Dim td2 As String
        td2 = "M_Test.CSV"
        Response.AppendHeader("Content-Disposition", "attachment; filename=" + Server.UrlEncode(td2))
        Response.ContentEncoding = System.Text.Encoding.GetEncoding("shift_jis")
        Response.ContentType = "text/csv"
        Response.Write("Death Data")
        Response.End()
でうまくいきますね。なんだろう。