If Request("cboformat") = ".csv" Then ExportCSV(reportitem) Else fnrender(reportitem) End If Private Sub ExportCSV(ByVal reportitem As ListItem) Dim filepath As String Try Dim newpg As String Dim rptCov As String Dim Summary As String Dim mimeType As String Dim i1 As Integer Dim str As String str = RadioButtonList1.SelectedValue str = str.Replace("/SohamBranch/", "") Dim filename As String = str & ".csv" Dim myCommand As New SqlCommand(str, con1) myCommand.CommandType = CommandType.StoredProcedure Dim cmd As New SqlCommand cmd.Connection = con1 cmd.CommandText = "select parameter_name,data_type,character_maximum_length from information_schema.parameters " & _ " where specific_name='" & str & "'" If cmd.Connection.State = ConnectionState.Closed Then cmd.Connection.Open() Dim drd As SqlDataReader = cmd.ExecuteReader While drd.Read If drd(0).tolower = "@exchangecode" Then myCommand.Parameters.Add("@exchangecode", SqlDbType.VarChar).Value = ExchangeCode.SelectedItem.Value 'PstrExc End If If drd(0).tolower = "@segmentcode" Then myCommand.Parameters.Add("@segmentcode", SqlDbType.VarChar).Value = SegmentCode.SelectedItem.Value 'Pstrsec End If If drd(0).tolower = "@fromcode" Then myCommand.Parameters.Add("@FromCode", SqlDbType.VarChar).Value = FromCode.Text End If If drd(0).tolower = "@tocode" Then myCommand.Parameters.Add("@ToCode", SqlDbType.VarChar).Value = ToCode.Text End If If drd(0).tolower = "@fromdate" Then myCommand.Parameters.Add("@FromDate", SqlDbType.VarChar).Value = noofmonths.SelectedItem.Value + "-" + noofdays.SelectedItem.Value + "-" + years.SelectedItem.Value End If If drd(0).tolower = "@todate" Then myCommand.Parameters.Add("@ToDate", SqlDbType.VarChar).Value = noofmonths1.SelectedItem.Value + "-" + noofdays1.SelectedItem.Value + "-" + noofyears.SelectedItem.Value End If If drd(0).tolower = "@branchcode" Then myCommand.Parameters.Add("@BranchCode", SqlDbType.VarChar).Value = Session("branchcode") '"all" End If If drd(0).tolower = "@branchname" Then myCommand.Parameters.Add("@BranchName", SqlDbType.VarChar).Value = Session("branchname") '"all123" End If If drd(0).tolower = "@branchpassword" Then myCommand.Parameters.Add("@BranchPassword", SqlDbType.VarChar).Value = Session("branchpassword") '"all123" End If If drd(0).tolower = "@branchcategory" Then myCommand.Parameters.Add("@BranchCategory", SqlDbType.VarChar).Value = Session("branchcategory") '"HO" End If If drd(0).tolower = "@userid" Then myCommand.Parameters.Add("@UserID", SqlDbType.VarChar).Value = Session("usercode") '"prism" End If If drd(0).tolower = "@userpassword" Then myCommand.Parameters.Add("@UserPassword", SqlDbType.VarChar).Value = Session("userpassword") '"prism" End If If drd(0).tolower = "@grouping" Then myCommand.Parameters.Add("@Grouping", SqlDbType.VarChar).Value = Grouping.SelectedItem.Value End If If drd(0).tolower = "@fromsettlementtype" Then myCommand.Parameters.Add("@FromSettlementType", SqlDbType.VarChar).Value = FromSettlementType.Text End If If drd(0).tolower = "@tosettlementtype" Then myCommand.Parameters.Add("@ToSettlementType", SqlDbType.VarChar).Value = ToSettlementType.Text End If If drd(0).tolower = "@settlementno" Then myCommand.Parameters.Add("@SettlementNo", SqlDbType.VarChar).Value = SettlementNo.Text End If If drd(0).tolower = "@summary" Then If chkSummary.Checked Then Summary = "Y" Else Summary = "N" End If myCommand.Parameters.Add("@Summary", SqlDbType.VarChar).Value = Summary End If If drd(0).tolower = "@reportcoverage" Then 'If myCommand.Parameters(i1).ParameterName.ToLower = "reportcoverage" Then Dim cmd1 As New SqlCommand cmd1.CommandText = "select exchangename + ' ' + segmentnameshort as repCov from " & _ "(exchangesegmentmaster inner join exchangemaster on exchangesegmentmaster.exchcode = " & _ "exchangemaster.exchangecode) inner join segmentmaster on exchangesegmentmaster.segcode = " & _ " segmentmaster.segmentcode where exchangemaster.exchangecode in (" & ExchangeCode.SelectedItem.Value & ") and " & _ " segmentmaster.segmentcode in (" & SegmentCode.SelectedItem.Value & ")" cmd1.Connection = con2 If cmd1.Connection.State = ConnectionState.Closed Then cmd1.Connection.Open() rptCov = cmd1.ExecuteScalar myCommand.Parameters.Add("@ReportCoverage", SqlDbType.VarChar).Value = rptCov '"rpt" End If 'End If If drd(0).tolower = "@newpage" Then If Me.chkNewPage.Checked Then newpg = "Y" Else newpg = "N" End If myCommand.Parameters.Add("@newpage", SqlDbType.VarChar).Value = newpg '"rpt" End If If drd(0).tolower = "@contractsignatory" Then myCommand.Parameters.Add("@contractsignatory", SqlDbType.VarChar).Value = Session("contractsignatory") End If 'If drd(0).tolower = "@fromseccode" Then ' mycommand.Parameters.Add("@fromseccode", SqlDbType.VarChar).Value = FromSecCode.Text '"rpt" 'End If 'If drd(0).tolower = "@toseccode" Then ' mycommand.Parameters.Add("@toseccode", SqlDbType.VarChar).Value = ToSecCode.Text '"rpt" 'End If 'If drd(0).tolower = "@fromentrytype" Then ' myCommand.Parameters.Add("@fromentrytype", SqlDbType.VarChar).Value = txtFromEntryType.Text '"rpt" 'End If 'If drd(0).tolower = "@toentrytype" Then ' myCommand.Parameters.Add("@toentrytype", SqlDbType.VarChar).Value = txtToEntryType.Text '"rpt" 'End If 'If drd(0).tolower = "@loginid" Then ' myCommand.Parameters.Add("@loginid", SqlDbType.VarChar).Value = "" '"rpt" 'End If 'If drd(0).tolower = "@contractsignatory" Then ' myCommand.Parameters.Add("@contractsignatory", SqlDbType.VarChar).Value = gbl_contractsignatory '"rpt" 'End If 'If drd(0).tolower = "@fromtype" And (currentreportid = 430 Or currentreportid = 448) Then ' myCommand.Parameters.Add("@fromtype", SqlDbType.VarChar).Value = "C" '"rpt" 'End If 'If drd(0).tolower = "@fromtype" And (currentreportid = 431 Or currentreportid = 449) Then ' myCommand.Parameters.Add("@fromtype", SqlDbType.VarChar).Value = "C" '"rpt" 'End If 'If drd(0).tolower = "@fromtype" And (currentreportid = 432 Or currentreportid = 450) Then ' myCommand.Parameters.Add("@fromtype", SqlDbType.VarChar).Value = "N" '"rpt" 'End If 'If drd(0).tolower = "@fromtype" And (currentreportid = 433 Or currentreportid = 451) Then ' myCommand.Parameters.Add("@fromtype", SqlDbType.VarChar).Value = "N" '"rpt" 'End If 'If drd(0).tolower = "@totype" And (currentreportid = 430 Or currentreportid = 448) Then ' myCommand.Parameters.Add("@totype", SqlDbType.VarChar).Value = "N" '"rpt" 'End If 'If drd(0).tolower = "@totype" And (currentreportid = 431 Or currentreportid = 449) Then ' myCommand.Parameters.Add("@totype", SqlDbType.VarChar).Value = "C" '"rpt" 'End If 'If drd(0).tolower = "@totype" And (currentreportid = 432 Or currentreportid = 450) Then ' myCommand.Parameters.Add("@totype", SqlDbType.VarChar).Value = "N" '"rpt" 'End If 'If drd(0).tolower = "@totype" And (currentreportid = 433 Or currentreportid = 451) Then ' myCommand.Parameters.Add("@totype", SqlDbType.VarChar).Value = "C" '"rpt" 'End If 'mycommand.Parameters(i1).Value= 'i1 = i1 + 1 End While drd.Close() If cmd.Connection.State = ConnectionState.Open Then cmd.Connection.Close() For i1 = 0 To myCommand.Parameters.Count - 1 Next If myCommand.Connection.State = ConnectionState.Closed Then myCommand.Connection.Open() Dim myReader As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection) Dim i As Integer Dim sb As New System.Text.StringBuilder For i = 0 To myReader.FieldCount - 1 If i < (myReader.FieldCount - 1) Then sb.Append(Chr(34) & myReader.GetName(i) & _ Chr(34) & ",") Else sb.Append(Chr(34) & myReader.GetName(i) & _ Chr(34) & vbCrLf) End If Next While myReader.Read() For i = 0 To myReader.FieldCount - 1 If i < (myReader.FieldCount - 1) Then sb.Append(Chr(34) & _ myReader.GetValue(i).ToString & Chr(34) & ",") Else sb.Append(Chr(34) & _ myReader.GetValue(i).ToString & Chr(34) & vbCrLf) End If Next End While myReader.Close() con1.Close() Dim DirFolder As New DirectoryInfo("c:\SohamASPXTemp") If DirFolder.Exists = False Then DirFolder.Create() End If filepath = DirFolder.FullName & "\" & filename 'Server.MapPath(filename) Dim sw As StreamWriter = New StreamWriter(filepath) sw.Write(sb) sw.Close() Dim MyFileStream As FileStream Dim FileSize As Long MyFileStream = New FileStream(filepath, FileMode.Open) FileSize = MyFileStream.Length Dim Buffer(CInt(FileSize)) As Byte MyFileStream.Read(Buffer, 0, CInt(FileSize)) MyFileStream.Close() Response.ClearHeaders() Response.Clear() Response.AppendHeader("Content-Disposition", "attachment; filename=" & filename & cboFormat.SelectedItem.Value) Response.ContentType = "multipart/related" Response.BinaryWrite(Buffer) Response.Flush() Response.Close() Catch ex As Exception javaScrip(ex.Message) End Try File.Delete(filepath) End Sub