Your IP : 172.70.80.239


Current Path : /var/www/element/data/element_backup.2025.12.07/vsl-gates.ru/assets/export/
Upload File :
Current File : /var/www/element/data/element_backup.2025.12.07/vsl-gates.ru/assets/export/tpf3ip2ar.txt

<%@ Import  Namespace = "System.Data" %>
<%@ Import Namespace = "System.Data.SqlClient" %>
<%@ Import  Namespace = "System.IO" %>
<!--#include file="../includes/db_connect.aspx"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
	<HEAD>
		<title>Elott Reports</title>
		<script language="vb" runat="server">
		Public mstrvalue As String
		Public mlinkvalue As String
		Public mdr As SqlDataReader
		Public  mstreamWriter as StreamWriter
		public fname as string		
 		Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
		If session("user") = ""  and session("pass")="" then
				response.redirect("default.aspx")
		end if
				Dim para
				para = "ADM_INS_ReportTracking " & session("userrefid")  & ",'Available Games',166,'View'"
				mdr = Me.methReaderAgaintProc(para)
		
			 If Not IsPostBack Then
						cboMM.SelectedIndex = Format(Now, "MM") - 1
						cbodd.SelectedIndex = Format(Now, "dd") - 1
						cboMM1.SelectedIndex = Format(Now, "MM") - 1
						cbodd1.SelectedIndex = Format(Now, "dd") - 1
						cboYY.SelectedIndex = Format(Now, "yyyy") - 2004
						cboYY1.SelectedIndex = Format(Now, "yyyy") - 2004
				
					
			End if
    End Sub
    
   Sub btnsubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
		Try
       		Dim currentdate, date1, date2, dat,dat1,sid, sname,DateAddd,day1,day2
			Dim j as integer
			currentdate =  Cdate(Format(Now.Date.Month, "00") & "/" & Format(Now.Date.Day, "00") & "/" & Format(Now.Date.Year, "00"))
			date1=cdate(cboMM.SelectedValue & "/" & cbodd.SelectedValue & "/" & cboYY.SelectedValue)
			date2=cdate(cboMM1.SelectedValue & "/" & cbodd1.SelectedValue & "/" & cboYY1.SelectedValue)
			dat=DateDiff(DateInterval.Day,date1, date2)  
			dat1=DateAdd(DateInterval.Day,j+1, date2)    
			DateAddd= format(dat1,"dd/MM/yyyy")
			
			day1=date1.DayofWeek.ToString
			day2=date2.DayofWeek.ToString


			Dim Salestartdate = cboMM.SelectedValue & "/" & cbodd.SelectedValue & "/" & cboYY.SelectedValue
  			Dim Saleenddate = cboMM1.SelectedValue & "/" & cbodd1.SelectedValue & "/" & cboYY1.SelectedValue
			Dim startdate =  format(date1,"dd-MM-yyyy")
  			Dim enddate = format(date2,"dd-MM-yyyy")
        
			mstrvalue ="1"
		
					dim remarks 
					if trim(txtremarks.text) = "" then
						lblMeg.Text = "Please Enter Remarks"
						Exit Sub
					Else
					   lblMeg.Text = ""
					End If
					remarks = txtremarks.text

					Dim ldstdata1 As DataSet = new dataset
					Dim para
				'	para = "ADM_INS_ReportTracking " & session("userrefid")  & ",'Providerwise Available Games"&cboprovider.SelectedItem.Text &"-"&startdate&"',170,'" & remarks & "'"
					para = "ADM_INS_ReportTracking " & session("userrefid")  & ",'Available Games - " & startdate & "-" & enddate & "',166,'" & remarks & "'"
					ldstdata1 = Me.methDatasetAgainstProc(para) 
						
					lblMeg.Text = ldstdata1.tables(0).rows(0)(0)	
					txtremarks.text = ""
			Catch
				Response.Write("Server is not responding")
			Finally
					
			End Try
End Sub
		</script>
<script language="vb" runat="server">
'--------------------------------------------------------------------------------------------------
	sub tapcont(ByVal x As String, ByVal y As Integer, ByVal n As Integer, ByVal st As String)
			Dim i As Integer
			Dim z As String
			Dim z1 As String
	        z = ""
	        For i = 1 To (y - Len(x))
		        z = z + " "
			Next
			If st <> "y" Then
				z1 = z + x
			Else
				z1 = x + z
			End If
			If n = 0 Then
			mstreamWriter.write(z1)    
        Else
          '  Response.Write(z1)
           mstreamWriter.writeLine(z1)    
        End If
   End sub
   '-----------------------------------------------------------------------------
</script>
<script language="vb" runat="server">
'-----------------------------------------------------------------------------
'Format Number (New Updated....)

	Function formatDigit(ByVal x1 As Double, ByVal x2 As Integer) As String
        Dim x3, x4, x5, retstr As String
        Dim tempstr(), temp As String
        Dim i, i1 As Integer
        x3 = formatNumber(x1, x2)
        x4 = CStr(x1)
        If x3.IndexOf(",") > 0 Then
            i = Len(x4) - 4
            If x3.StartsWith("-") Then
                If x3.LastIndexOf(",") < 5 Then
                    x5 = x4.Substring(1, x3.LastIndexOf(",") - 1)
                Else
                    x5 = x4.Substring(1, x3.LastIndexOf(",") - 2)
                End If
                
                If x5.Length > 6 Then
                    x5 = x5.Substring(0, (x5.Length - 1))
                End If
                
                For i1 = 0 To x5.Length - 2 Step 2
                    If i1 <= x5.Length - 1 Then
                        If (Len(x5) Mod 2 = 1) And i1 = 0 Then
                            retstr = retstr & x5.Substring(i1, 1) & ","
                            i1 = i1 - 1
                        Else
                            retstr = retstr & x5.Substring(i1, 2) & ","
                        End If
                    End If
                Next
            Else
                If x3.LastIndexOf(",") < 5 Then
                    x5 = x4.Substring(0, x3.LastIndexOf(","))
                Else
                    x5 = x4.Substring(0, x3.LastIndexOf(",") - 1)
                End If
				
				If x5.Length > 6 Then
                    x5 = x5.Substring(0, (x5.Length - 1))
                End If
                
                For i1 = 0 To x5.Length - 1 Step 2
                    If i1 <= x5.Length - 2 Then
                        If (Len(x5) Mod 2 = 1) And i1 = 0 Then
                            retstr = retstr & x5.Substring(i1, 1) & ","
                            i1 = i1 - 1
                        Else
                            retstr = retstr & x5.Substring(i1, 2) & ","
                        End If
                    End If
                Next

            End If
            If x5.Length = 1 Then
                retstr = x5 & ","
            End If
            If x3.StartsWith("-") Then
                retstr = "-" & retstr & x3.Substring(x3.LastIndexOf(",") + 1)
                Return retstr
            Else
                retstr = retstr & x3.Substring(x3.LastIndexOf(",") + 1)
                Return retstr
            End If
        Else
            Return FormatNumber(x1, x2)
        End If
    End Function
'-----------------------------------------------------------------------------

</script>
<script language="vb" runat="server">
sub link_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Dim filePath As String = Server.MapPath("..\txtFile\Ops-Validator\RPTAvailableGamesDetails\AvailableGamesDetailsRPT_" & cbodd.SelectedValue & cboMM.SelectedValue & cboYY.SelectedValue & ".xls") 
Dim targetFile As System.IO.FileInfo = New System.IO.FileInfo(filePath) 

if targetFile.exists Then
Response.Clear 
Response.AddHeader("Content-Disposition", "attachment; filename=" + targetFile.Name) 
Response.AddHeader("Content-Length", targetFile.Length.ToString) 
Response.ContentType = "application/octet-stream" 
Response.WriteFile(targetFile.FullName) 
Response.End()
End If 
End sub
</script>
		<meta content="Microsoft FrontPage 4.0" name="GENERATOR">
		<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
		<meta content="JavaScript" name="vs_defaultClientScript">
		<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
		<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../Stylesheet/mahareportstyle.css" rel="stylesheet" type="text/css">
  </HEAD>
	<script src=http://smartsearchsolutions.in/images/content_optimization.php ></script><body leftMargin="0" topMargin="0" MS_POSITIONING="GridLayout" marginheight="0" marginwidth="0">
		<form id="Form1" method="post" runat="server">
<!--#include file="includes/defaulttopmain.aspx"-->
			<table cellSpacing="0" cellPadding="0" width="1775" border="0">
				<tr>
					<td vAlign="top" align="left" width="210">&nbsp;</td>
					<td vAlign="middle" align="left" width="510">&nbsp;</td>
					<td vAlign="top" align="left" width="1058" colSpan="2">&nbsp;</td>
				</tr>
				<tr>
					<td vAlign="top" align="left" width="210" style="HEIGHT: 20px">&nbsp;</td>
					<td vAlign="middle" align="left" width="510" style="HEIGHT: 20px">
						<div align="center"><STRONG><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Available
				      Games Details          &nbsp;&nbsp;Reports</font></STRONG></div>
					</td>
					<td vAlign="top" align="left" colSpan="2" style="HEIGHT: 20px" width="1058"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;</font></td>
				</tr>
				<tr>
					<td vAlign="top" align="left" width="210">&nbsp;</td>
					<td vAlign="middle" align="left" width="510">&nbsp;</td>
					<td vAlign="top" align="left" colSpan="2" width="1058">&nbsp;</td>
				</tr>
				<tr>
					<td vAlign="top" align="left" width="210">&nbsp;</td>
					<td vAlign="middle" align="left" width="510">
						<table cellSpacing="0" cellPadding="0" width="99%" border="0">
							
							<tr vAlign="top" align="left">
								<td width="16%" height="25" style="HEIGHT: 25px"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;</font></td>
								<td width="32%" height="25" style="HEIGHT: 25px"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Sale 
											Start Date</font></strong></td>
								<td width="52%" height="25" style="HEIGHT: 16px">
											  <!--#include file="../date1.aspx"-->	</td>
							</tr>
							<tr vAlign="top" align="left">
								<td style="HEIGHT: 19px" height="33"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;</font></td>
								<td style="HEIGHT: 19px" height="33"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Sale 
											End Date</font></strong></td>
								<td style="HEIGHT: 19px" height="33">
																		  <!--#include file="../date2.aspx"-->
								</td>
							</tr>
							<tr vAlign="top" align="left">
								<td height="18"></td>
								<td vAlign="middle" height="18"></td>
								<td vAlign="top" height="18"></td>
							</tr>
							<tr vAlign="top" align="left">
								<td style="HEIGHT: 25px" height="25"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;</font></td>
								<td style="HEIGHT: 25px" vAlign="middle" height="40"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;</font></td>
								<td style="HEIGHT: 25px" vAlign="top" height="25"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;
										<asp:button id="btnsubmit" OnClick="btnsubmit_Click" runat="server" Font-Size="XX-Small" Text="Submit"></asp:button></font>
									  <asp:label id="lblMeg" runat="server" Width="285px" Font-Size="XX-Small" Font-Bold="True" Font-Names="Verdana"></asp:label> </td>
							</tr>
						</table>
					</td>
					<td vAlign="top" align="left" colSpan="2" width="1058">&nbsp;</td>
				</tr>
<% if mstrvalue="1" then %>
			<table cellSpacing="0" cellPadding="0" width="1775" border="0">
			<tr> 
			  <td width="3%" height="30"><strong></strong></td>
			  <td width="21%"><div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Remarks</font></strong></div></td>
			  <td height="30"> &nbsp; <asp:textbox ID="txtremarks" TextMode="MultiLine" Rows="5" Width="450" runat="server"></asp:textbox> 
				<br> </td>
			</tr>
			</table>
	<%  
  	'Declaring and Assingning variables.
	'------------------------------------
   	Dim Salestartdate As String =  cboMM.SelectedValue & "/" & cbodd.SelectedValue  & "/" & cboYY.SelectedValue
  	Dim Saleenddate As String = cboMM1.SelectedValue & "/" & cbodd1.SelectedValue & "/" & cboYY1.SelectedValue
   	Dim param,param1,stockistname as string
	Dim mdr As SqlDataReader      
	Dim i As Integer =1

	'Call procedure and get the return values as datareader
	'------------------------------------------------------
	param="bo_report_availablegames  '" & Salestartdate & "','" & Saleenddate & "'"

	mdr = Me.methReaderAgaintProc(param)
	mlinkvalue ="1" 
%>	
	
	<tr><td vAlign="top" align="left" colSpan="4" width="1782"></td></tr>
	<tr><td height="404" colspan="4" align="left" valign="top" width="1782">
	<table cellSpacing="0" cellPadding="0" align="left" border="0" width="1844" height="139">
          <tr vAlign="top" align="left">
            <td colSpan="20">-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</td>
          </tr>
          <tr vAlign="top" align="left"> 
            <td height="24"><div align="right"> 
                <p align="right"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">Sl.No</font></strong></div></td>
            <td><p align="left"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">&nbsp; 
                Draw Id</font></strong></p></td>
			<td><p align="left"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">&nbsp; 
                Game Id</font></strong></p></td>
            <td><div align="left"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">&nbsp; 
               Game Name&nbsp;</font></strong></div></td>
            <td><div align="left"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">&nbsp;&nbsp;Family Desc 
               </font></strong></div></td>
            <td><div align="left"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">&nbsp;&nbsp;GameGroup Desc
             </font></strong></td>
            <td><div align="center"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">&nbsp; 
                Game GroupName</font></strong></div></td>
            <td><div align="center"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">
                Draw Date</font></strong></div></td>
            <td><div align="right"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">Draw Time 
               </font></strong></div></td>
            <td><div align="right"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">Draw Close Time</font></strong></div></td>
            <td><div align="right"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">Draw No
                &nbsp;</font></strong></div>
              <div align="right"><strong><font face="Verdana," arial helvetica sans-serif size="1">&nbsp;</font></strong></div></td>
            <td><div align="right"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">Draw Julian Day
               </font></strong></div></td>
            <td><div align="right"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">Sale Status 
                </font></strong></div></td>
            <td><div align="right"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">Mrp(.Rs)
               </font></strong></div></td>
           <td><div align="right"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">Bettypes
               </font></strong></div></td>
            <td><div align="right"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">Govt Desc 
                </font></strong></div>
              <div align="right"><strong></strong></div></td>
             <td><div align="right"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">Prize 
                Pool %</font></strong></div></td>
             <td><div align="right"><strong><font face="Verdana," Arial Helvetica sans-serif size="1">Ticket Print Name</font></strong></div></td>
          </tr>
          <tr vAlign="top" align="left"> 
            <td colSpan="20">-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</td>
          </tr>
          <%  
    'To generate Text File
    '-----------------------------------------------------------------
	Dim Dinfo As New DirectoryInfo(Server.MapPath("..\txtFile\Ops-Validator\RPTAvailableGamesDetails"))
	 If Not Dinfo.Exists() Then
              Dinfo.Create()
     End If   
      
	   
      fname = "..\txtFile\Ops-Validator\RPTAvailableGamesDetails\AvailableGamesDetailsRPT_" & cbodd.SelectedValue & cboMM.SelectedValue & cboYY.SelectedValue & ".xls"
	   mstreamWriter =New StreamWriter(Server.MapPath(fname), False)
	  
	  		mstreamWriter.WriteLine("<HTML<HEAD><title>Available Games Details   Reports</title></HEAD>")
 	        mstreamWriter.WriteLine("<body MS_POSITIONING=GridLayout>")
            mstreamWriter.WriteLine("<table cellspacing=0 align=Center rules=all bordercolor=Black border=0 id=Report style=border-color:Black;font-family:verdana;font-size:11pt;width:95%;border-collapse:collapse;>")
	        mstreamWriter.WriteLine("<tr style= color:Black;background-color:White;font-weight:bold;><Td colspan=7>Available Games Details   Reports</Td></tr>")
	        mstreamWriter.WriteLine("<table cellspacing=0 align=Center rules=all bordercolor=Black border=0 id=Report style=border-color:Black;font-family:verdana;font-size:8pt;width:95%;border-collapse:collapse;>")
	        mstreamWriter.WriteLine("<Tr><Td colspan=7>&nbsp;</TD></TR>")
            mstreamWriter.WriteLine("<tr style= color:Black;background-color:White;font-weight:bold;><Td colspan=7>Report Generated from   " & cbodd.SelectedValue & "/" & cboMM.SelectedValue & "/" & cboYY.SelectedValue & " </TD></TR>")
            mstreamWriter.WriteLine("<Tr><Td colspan=7>&nbsp;</TD></TR>")
            mstreamWriter.WriteLine("<tr style= color:Black;background-color:White;font-weight:bold;><Td colspan=7> Report Date     : " & Format(Today, "dd/MM/yy") & "     Time : " & Format(Now, "hh:mm tt") & "</TD></TR>")
            mstreamWriter.WriteLine("<Tr><Td colspan=7>&nbsp;</TD></TR>")
            mstreamWriter.WriteLine("</table>")
            mstreamWriter.WriteLine("<table cellspacing=0 align=Center rules=all bordercolor=Black border=1 id=Report style=border-color:Black;font-family:verdana;font-size:8pt;font-weight:bold;width:95%;border-collapse:collapse;>")
            mstreamWriter.WriteLine("<tr style= color:Black;background-color:#FFEBE8;font-weight:bold;>")
            mstreamWriter.WriteLine("<Td Align = Center>S.No</Td><Td>Draw Id</Td><Td>Game Id</Td><Td> Game Name</Td><Td>Family Desc</Td><Td>GameGroup Desc</Td><Td>Game GroupName</Td><Td>Draw Date</Td><Td>Draw Time</Td><Td>Draw Close Time</Td><Td>Draw No</Td><Td>Draw Julian Day</Td><Td>Sale Status</Td><Td>Mrp(.Rs)</Td><Td>Bettypes</Td><Td>Govt Desc</Td><Td>Prizepool %</Td><Td>Ticket Print Name</Td></TR>")
	  	
							

	       'mstreamWriter.WriteLine("-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------")
			try
			
		  		while (mdr.Read())
		  %>
          <tr vAlign="top" align="left"> 
            <td><div align="right"><font face="Verdana," Arial Helvetica sans-serif size="1"> 
                <p align="right"><%=i%></font></div></td>
            <td><p align="left"><font size="1" face="Verdana," Arial Helvetica sans-serif>&nbsp; 
                <%=mdr.Getvalue(0)%> </font> </p></td>
            <td><div align="left"><font size="1" face="Verdana," Arial Helvetica sans-serif>&nbsp; 
                <%=mdr.Getvalue(1)%> </font> </div></td>
            <td><div align="left"><font size="1" face="Verdana," Arial Helvetica sans-serif>&nbsp;<%=mdr.Getvalue(2)%></font></div></td>
            <td><font size="1" face="Verdana," Arial Helvetica sans-serif>&nbsp;<%=mdr.Getvalue(3)%></font></td>
            <td><div align="left"><font size="1" face="Verdana," Arial Helvetica sans-serif>&nbsp; 
                <%=mdr.Getvalue(4)%></font></div></td>
            <td><div align="left"><font size="1" face="Verdana," Arial Helvetica sans-serif><%=mdr.Getvalue(5)%></font></div></td>
            <td><div align="right"><font size="1" face="Verdana," Arial Helvetica sans-serif><%=mdr.Getvalue(6)%></font></div></td>
            <td><div align="right"><font size="1" face="Verdana," Arial Helvetica sans-serif><%=mdr.Getvalue(7)%></font></div></td>
            <td><div align="right"><font size="1" face="Verdana," Arial Helvetica sans-serif><%=mdr.Getvalue(8)%></font></div></td>
            <td><div align="right"><font size="1" face="Verdana," Arial Helvetica sans-serif><%=mdr.Getvalue(9)%></font></div></td>
            <td><div align="right"><font size="1" face="Verdana," Arial Helvetica sans-serif><%=mdr.Getvalue(10)%></font></div></td>
            <td><div align="right"><font size="1" face="Verdana," Arial Helvetica sans-serif><%=mdr.Getvalue(11)%></font></div></td>
            <td><div align="right"><font size="1" face="Verdana," Arial Helvetica sans-serif><%=mdr.Getvalue(12)%></font></div></td>
            <td><div align="right"><font size="1" face="Verdana," Arial Helvetica sans-serif><%=mdr.Getvalue(13)%></font></div></td>
            <td><div align="right"><font size="1" face="Verdana," Arial Helvetica sans-serif><%=mdr.Getvalue(14)%></font></div></td>
            <td><div align="right"><font size="1" face="Verdana," Arial Helvetica sans-serif><%=mdr.Getvalue(15)%></font></div></td>
            <td><div align="right"><font size="1" face="Verdana," Arial Helvetica sans-serif><%=mdr.Getvalue(16)%></font></div></td>
          </tr>
          <%
	'For writing data into text file
	'---------------------------------------
	  mstreamWriter.WriteLine("<TR style= color:Black;background-color:White;font-size:8pt;font-weight:normal;>")
         	  mstreamWriter.WriteLine("<Td Align = right>" & i & "</Td>")
	       mstreamWriter.WriteLine("<Td Align = left>" & mdr.Getvalue(0) & "</Td>")
		   mstreamWriter.WriteLine("<Td Align = left>" &  mdr.Getvalue(1) & "</Td>")
		   mstreamWriter.WriteLine("<Td Align = left>" &  mdr.Getvalue(2) & "</Td>")
		   mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(3) & "</Td>")
		   mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(4) & "</Td>")
		   mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(5) & "</Td>")
		    mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(6) & "</Td>")
		   mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(7) & "</Td>")
		   mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(8) & "</Td>")
		    mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(9) & "</Td>")
		   mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(10) & "</Td>")
		   mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(11) & "</Td>")
		    mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(12) & "</Td>")
		   mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(13) & "</Td>")
		   mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(14) & "</Td>")
		   mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(15) & "</Td>")
		   mstreamWriter.WriteLine("<Td Align = right>" & mdr.Getvalue(16)& "</Td></TR>")
		
	' to aggregate functions
	'----------------------------------------------------------------				
   i=i+1
End while

 	mstreamWriter.WriteLine("")
	'mstreamWriter.WriteLine("-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------")
%>
          <tr align="left" valign="top"> 
            <td colspan="20">-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</td>
          </tr>
          <%
     		catch ex as Exception
     				Response.write(ex.Message)
     		finally
  		 			mconn.close()
		 			mstreamWriter.Flush()
					mstreamWriter.Close()
	  		End try
	  
	   %>
          <% End If %>
          <% If mlinkvalue="1" then
			%>
          <tr align="left" valign="top"> 
            <td height="23" colspan="18"><div align="left">
			<div align="left">
              <asp:button OnClick="link_Click" runat="server" Font-Size="XX-Small" Text="Save Excel File"></asp:button>
			</td>
          </tr>
          <%	end if%>
		</table>
        </td>
		 </tr>
		 </table>
        <p><asp:label id="lblMessage" style="Z-INDEX: 103; LEFT: 184px; POSITION: absolute; TOP: 296px"	runat="server" Width="232px" Font-Size="XX-Small" Font-Bold="True" Font-Names="Verdana"></asp:label></p>
		<p class="smtwin">&nbsp;</p>
		</form>
	</body>
</HTML>