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()