<form id="form1" runat="server">
<table style="width: 600px">
<tr>
<td class="headertext" style="width: 798px" >
SUMMARY REPORT SINGAPORE ( ALL)
</td>
</tr>
<tr><td class="textfont" style="width: 798px; height: 17px;" >
<asp:Label ID="lblMessage" runat="server" Text="Label" Width="264px"></asp:Label></td></tr>
</table>
 
<br />
<asp:Table ID="tblSummAllSg" runat="server" Font-Names="Verdana" BorderWidth="1"
Font-Size="XX-Small">
</asp:Table>
<br />
<br />
 
 
<table align="center">
<tr><td>
<asp:Button ID="btnExport" runat="server" Text="Export As Excel" BorderColor="#C00000" />
</td></tr>
</table>
 
</form>

 
Dim tableHeading As TableRow = New TableRow()
 
'Create and add the cells that contain the CallDate column heading text.
Dim DateHeading As TableHeaderCell = New TableHeaderCell()
DateHeading.Text = "Call In Date"
DateHeading.HorizontalAlign = HorizontalAlign.Center
tableHeading.Cells.Add(DateHeading)
 
'Create and add the cells that contain the Calls column heading text.
Dim TotalCallHeading As TableHeaderCell = New TableHeaderCell()
TotalCallHeading.Text = "Total Calls"
TotalCallHeading.ColumnSpan = 5
TotalCallHeading.HorizontalAlign = HorizontalAlign.Center
tableHeading.Cells.Add(TotalCallHeading)
Dim tableHeading2 As TableRow = New TableRow()
 
Dim CallInDateHeading As TableCell = New TableCell()
CallInDateHeading.Text = "Call In Date"
CallInDateHeading.HorizontalAlign = HorizontalAlign.Center
tableHeading2.Cells.Add(CallInDateHeading)
Dim InBoundOutBoundHeading As TableCell = New TableCell()
InBoundOutBoundHeading.Text = "InBound/OutBound"
tableHeading2.Cells.Add(InBoundOutBoundHeading)
tblSummAllSg.Rows.Add(tableHeading)
tblSummAllSg.Rows.Add(tableHeading2)
While (objreader.Read())
 
Dim detailsRow As TableRow = New TableRow()
 
Dim CallInDateCell As TableCell = New TableCell()
CallInDateCell.Text = objreader("CallInDate").ToString()
detailsRow.Cells.Add(CallInDateCell)
Dim InBoundOutBoundCell As TableCell = New TableCell()
InBoundOutBoundCell.Text = objreader("InBoundOutBound").ToString()
detailsRow.Cells.Add(InBoundOutBoundCell)
Dim IncompletePrankCell As TableCell = New TableCell()
IncompletePrankCell.Text = objreader("IncompletePrank").ToString()
detailsRow.Cells.Add(IncompletePrankCell)
tblSummAllSg.Rows.Add(detailsRow)
End While

Protected Sub btnExport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExport.Click
' binding datagrid result to export list
Response.Clear()
Response.AddHeader("content-disposition", "attachment;filename=DetailReport.xls")
Response.Charset = ""
Response.Cache.SetCacheability(HttpCacheability.NoCache)
Response.ContentType = "application/vnd.xls"
Dim stringWrite As IO.StringWriter = New System.IO.StringWriter()
Dim htmlWrite As HtmlTextWriter = New HtmlTextWriter(stringWrite)
tblSummAllSg.RenderControl(htmlWrite)
Response.Write(stringWrite.ToString())
Response.End()
End Sub