Response.clear

albert albert

12y1.6kLearn iOS Programming

Hi everybody,

I have this:
[code]

If ds.Tables.Count > 0 AndAlso ds.Tables(0).Rows.Count > 0 Then
lblMessage.Text = "Er zijn geen resultaten gevonden."

lblMessage.Text = String.Empty

Dim fc As Byte() = csv.Export(ds.Tables(0))

Response.Clear()

Response.ContentType = "text/csv"

Response.AddHeader("Content-Disposition", "attachment;filename=facturatie.csv")

Response.OutputStream.Write(fc, 0, fc.Length)

Response.End()

Else

lblMessage.Text = "Er zijn geen resultaten gevonden."

End If

[/code]

I dont want to show the lbMessage when there is found results. But because of the Response.Clear() method clears the HTML. SO that doesnt work. So how to manage that you will not see the lbMessage() when results found

Thank you

2 Replies

Know the answer? Post it — somebody with the same question will find it here.

albert albert12y ago
?? Then you will see the message if if there are no results. But the message will not go away when there are results. So THe message will stay. That is the issue. this is the hole method:

[code]
Protected Sub btnExport_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnExport.Click
LblMelding.Text = String.Empty
Dim merk As Integer
' export dingen doen
Dim csv As New DealerportalControl.CsvExport()
Dim ds As DataSet

PasType = String.Empty
For Each item As ListItem In ChlPassType.Items
If (item.Selected) Then
If Not String.IsNullOrEmpty(PasType) Then PasType &= ","
PasType &= item.Value
End If
Next
If User.IsInRole("DA") Then
ds = GlobalBLL.wsCertificaat.GetCertificatenForExportDA(GetFormatDateFromString(tbStartDatum.Text), GetFormatDateFromString(tbEindDatum.Text), PasType)
Else

ds = GlobalBLL.wsCertificaat.GetCertificatenForExport(GetFormatDateFromString(tbStartDatum.Text), GetFormatDateFromString(tbEindDatum.Text), PasType, Context.Profile("BedrijfID"))
End If
If ds.Tables.Count > 0 AndAlso ds.Tables(0).Rows.Count > 0 Then
' lblMessage.Text = String.Empty
Response.Write(lblMessage.Text = String.Empty)
Dim fc As Byte() = csv.Export(ds.Tables(0))
Response.Clear()
lblMessage.Text = String.Empty
Response.ContentType = "text/csv"
Response.AddHeader("Content-Disposition", "attachment;filename=facturatie.csv")
Response.OutputStream.Write(fc, 0, fc.Length)
Response.End()
Else
lblMessage.Text = "Er zijn geen resultaten gevonden."
Server.ClearError()
'Response.Flush()

End If

End Sub

[/code]
Jignesh Trivedi12y ago
hi,

your code itself remove the content of lblMessage label ...

I think try after remove lblMessage.Text = String.Empty sentence.

hope this will help you.