1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
' Clear the content of the response
Response.ClearContent()
Response.ClearHeaders()
' Buffer response so that page is sent
' after processing is complete.
Response.BufferOutput = True
'generation de mes donnees
getinfoXML(Rapport, etat)
pageHtml = genererEtat(Rapport, ldsData)
Response.ContentType = "application/vnd.ms-excel"
Response.ContentEncoding = System.Text.Encoding.UTF7
Response.AppendHeader("Content-Disposition", "attachment; filename=" & etat & ".xls")
Form1.Controls.Add(New LiteralControl(pageHtml)) |
Partager