I'm using the below code to export my dataset in a CSV format. Everything works on our test server but when we push to the internet i get the following error when trying to export.
Error message in IE:
Internet Explorer cannot download <page name> from <site name>
Internet Explorer was not able to open this internet site. The requested site is either unavailable or cannot be found. Please try again later.
Code:Dim ds As DataSet = New DataSet Dim cn As SqlConnection Dim cmd As SqlCommand Dim filename As String Dim dr As SqlDataReader Dim i As Integer Dim sb As System.Text.StringBuilder cn = New SqlConnection(ConfigurationSettings.AppSettings("MedicareDBconn")) filename = "MemberList.csv" cmd = New SqlCommand("SELECT m.FirstName, m.LastName, m.Gender, A.DateActivity, ad.Street1, ad.Street2, ad.City, ad.State, ad.Zip, p.PhoneNumber " _ & " FROM dbo.MemberNote MN INNER JOIN " _ & " dbo.Member m INNER JOIN " _ & " dbo.ContactInfoAddress cia ON m.ContactInfoID = cia.ContactInfoID INNER JOIN " _ & " dbo.Address ad ON ad.AddressID = cia.AddressId ON MN.MemberID = m.MemberID INNER JOIN " _ & " dbo.Note N ON MN.NoteID = N.NoteID INNER JOIN " _ & " dbo.Activity A ON m.MemberID = A.MemberID LEFT OUTER JOIN " _ & " dbo.Phone p INNER JOIN " _ & " dbo.ContactInfoPhone cip ON p.PhoneID = cip.PhoneID ON m.ContactInfoID = cip.ContactInfoID " _ & " WHERE (N.DispositionTypeID IN ('148', '149', '150', '151')) AND (A.UserID = 37) AND (m.DoNotCall IS NULL) " _ & " GROUP BY m.FirstName, m.LastName, m.Gender, A.DateActivity, ad.Street1, ad.Street2, ad.City, ad.State, ad.Zip, p.PhoneNumber", cn) cmd.Connection.Open() dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) sb = New System.Text.StringBuilder 'For field Names For i = 0 To dr.FieldCount - 1 If i < (dr.FieldCount - 1) Then sb.Append(Chr(34) & dr.GetName(i) & Chr(34) & ",") Else sb.Append(Chr(34) & dr.GetName(i) & Chr(34) & vbCrLf) End If Next 'For field Values While dr.Read() For i = 0 To dr.FieldCount - 1 If i < (dr.FieldCount - 1) Then sb.Append(Chr(34) & dr.GetValue(i).ToString & Chr(34) & ",") Else sb.Append(Chr(34) & dr.GetValue(i).ToString & Chr(34) & vbCrLf) End If Next End While dr.Close() cn.Close() Response.Clear() Response.ContentType = "application/octet-stream" Response.AddHeader("content-disposition", "attachment; filename=""" & filename & """") 'Write the file directly to the HTTP output stream. Response.Write(sb.ToString) Response.End()


Reply With Quote
