Dim aged(19) As String
        aged(20) = "合計"
        Dim td2 As String
        td2 = "M5_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.Write(",")
        Response.Write("Death Data")
        Response.Write(",")
        Response.Write("Death Data")
        Response.Write(vbCrLf)
        ’Response.Close()
        Response.End()
です。