CSVFILE

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  

  Response.AddHeader("Content-Disposition", "attachment;filename=" & sFileName)
  Response.ContentType = "application/download"
  Response.ContentEncoding = System.Text.Encoding.GetEncoding("Shift_JIS")

   'CSVheader

  Response.Write(sWriteTest & vbCrLf)
  Response.Flush()
  Response.End()

 End Sub