1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Dim persist As New Persistance
Dim tableMembres As DataTable
Dim maLigne As DataRow
tableMembres = persist.LireTous()
Dim TabExcel As String
TabExcel = "<table border=1><tr>"
TabExcel &= "<td><b>NOM</b></td><td><b>PRENOM</b></td>"
TabExcel &= "<td><b>Adresse</b></td><td><b>Adr. suite</b></td>"
TabExcel &= "<td><b>Code postal</b></td><td><b>Ville</b></td>"
TabExcel &= "<td><b>Tel. fixe</b></td><td><b>Tel.mobile</b></td>"
TabExcel &= "<td><b>Adresse mail</b></td></tr>"
For Each maLigne In tableMembres.Rows
TabExcel &= "<tr><td>" & Server.HtmlEncode(maLigne("nom")) & "</td><td>" & Server.HtmlEncode(maLigne("prenom")) & "</td>"
TabExcel &= "<td>" & Server.HtmlEncode(maLigne("rue1")) & "</td><td>" & Server.HtmlEncode(maLigne("rue2")) & "</td>"
TabExcel &= "<td>" & Server.HtmlEncode(maLigne("codepostal")) & "</td><td>" & Server.HtmlEncode(maLigne("ville")) & "</td>"
TabExcel &= "<td>" & Server.HtmlEncode(maLigne("telefixe")) & "</td><td>" & Server.HtmlEncode(maLigne("telemobile")) & "</td>"
TabExcel &= "<td>" & Server.HtmlEncode(maLigne("adressemail")) & "</td></tr>"
Next
TabExcel &= "</table>"
Response.Buffer = True
Response.ContentEncoding = System.Text.Encoding.Default
Response.ContentType = "application/vnd.ms-excel"
Response.Write(TabExcel)
Response.Flush()
Response.End() |