ASP.NET

Private Sub showGrid()

    Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("conString").ConnectionString)

    Dim cmd As New SqlCommand("-placeholder-", conn)

    Dim sb As New StringBuilder("Select siteID,siteName,AssetName,Capacity,AvailableFacilities,dateReserved,GroupStatus " & _
    ",amenities,RentalFeeAmount,ExtraHourAmount,DepositAmount,CancellationAmount,KeyDepositAmount, Duration " & _
    " FROM ParksNRecsData WHERE siteId = @siteCode and capacity <= @roomcapacity and (CONVERT(VARCHAR(10), dateReserved, 101) >= @FromDate And CONVERT(VARCHAR(10), dateReserved, 101) <= @EndDate)")
    cmd.Parameters.AddWithValue("@siteCode", ddlParks.SelectedValue)
    cmd.Parameters.AddWithValue("@roomcapacity", ddlPartySize.SelectedValue)
    cmd.Parameters.AddWithValue("@FromDate", txtFromDate.Text)
    cmd.Parameters.AddWithValue("@EndDate", txtToDate.Text)

    cmd.CommandText = sb.ToString()
    Dim dt As DataTable = GetData(cmd)
    If dt.Rows.Count = 0 Then

        cmd.Parameters.Clear()
        cmd.Parameters.AddWithValue("@FromDate", Date.Today.ToString("MM/dd/yyyy"))
        cmd.Parameters.AddWithValue("@EndDate", Date.Today.AddMonths(1))
        cmd.CommandText = "Select siteID,siteName,AssetName,Capacity,AvailableFacilities,dateReserved,GroupStatus " & _
    ",amenities,RentalFeeAmount,ExtraHourAmount,DepositAmount,CancellationAmount,KeyDepositAmount, Duration " & _
    " FROM ParksNRecsData" & _
    " where dateReserved Between @FromDate And @EndDate"
        dt = GetData(cmd)
    End If
    gvCustomers.DataSource = dt
    gvCustomers.DataBind()

End Sub

StringBuilder objStrBuilder = new StringBuilder();

            objStrBuilder.Append("<table>");
            objStrBuilder.Append("<tr>");
            objStrBuilder.Append("<td>");
            objStrBuilder.Append("HP");
            objStrBuilder.Append("<\td>");
            objStrBuilder.Append("<td>");
            objStrBuilder.Append("HP computer");
            objStrBuilder.Append("<\td");
            objStrBuilder.Append("<\tr>");

            objStrBuilder.Append("<tr>");
            objStrBuilder.Append("<td>");
            objStrBuilder.Append("HP Labs");
            objStrBuilder.Append("<\td>");
            objStrBuilder.Append("<td>");
            objStrBuilder.Append("HP computer Joy");
            objStrBuilder.Append("<\td");
            objStrBuilder.Append("<\tr>");
            objStrBuilder.Append("<\table>");
            dic.InnerHtml = objStrBuilder.ToString();
            Microsoft.Office.Interop.Word.Application word = new Microsoft.Office.Interop.Word.Application();
            word = null;
            try
            {
                object missing = System.Reflection.Missing.Value;
                word = new Microsoft.Office.Interop.Word.Application();
                object template = @"D:\\DS_Template11.dotx";
                word.Documents.Add(Template: ref template);
                word.Visible = true;
                object readOnly = false;

                object filename = "http://localhost:60510/tr/Default.aspx";
                Microsoft.Office.Interop.Word.Document document = word.Documents.Open(ref filename, ref missing, ref readOnly, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing);


              //  Microsoft.Office.Interop.Word.Section wordSectio = document.Sections;
                foreach (Microsoft.Office.Interop.Word.Section wordSectin in document.Sections)
                {
                    foreach (Microsoft.Office.Interop.Word.HTMLDivision wordSection in document.HTMLDivisions)
                    {
                        String text = "this is footer";
                        //Get the footer range and add the footer details.
                        Microsoft.Office.Interop.Word.Section s1=document.Sections.Add();                            ;
                        Microsoft.Office.Interop.Word.Paragraph p1 = document.Paragraphs.Add();

                        Microsoft.Office.Interop.Word.Range R1 = p1.Range;
                        Microsoft.Office.Interop.Word.HTMLDivision h1= R1.HTMLDivisions.Add();
                        h1.
                        R1.ContentControls=dic.
                        R1.HTMLDivisions = dic.InnerHtml;
                        //Microsoft.Office.Interop.Word.Range footerRange = wordSection.Footers[Microsoft.Office.Interop.Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
                        Microsoft.Office.Interop.Word.HTMLDivision para = wordSection.HTMLDivisions.Add(dic.InnerHtml);
                        Range.Fields.Add(Range, Microsoft.Office.Interop.Word.WdFieldType.wdFieldHTMLActiveX);