Find tekststrenge i udtræk

Har du proevet med InStr?

If InStr(result, "No entries found for the selected source", 1) > 0 Then
blabla
End If

hvis jeg var dig ville jeg tjekke allerede i SQL'en når du trækker data ud fra DB.

strSQL = "select count kolonne as Isthere FROM tabel WHERE kolonne = "No entries found for the selected source" OR = "No match found""

conn.execute(strSQL)

if rs("isthere") > 0 then
' det du vil ha gjort
end if

/kovalt

Hvis  result  kun inden holder en af de 4 og ikke andet eks:

result = "NOT FOUND"
og ikke sådan her:
result = "NOT FOUND bladladfknakdf kdjhfakj"

Så kan du lave det sådan her.:


if inStr(1, "No entries found for the selected source,No match for,NOT FOUND,No data found", result, 1) > 0 then
  'result indeholdt en af de 4 ting

end if

Hvis result kan indeholdet noget andet som før vist:
result = "NOT FOUND bladladfknakdf kdjhfakj"


Så prøv med dette:


if inStr(1, "No entries found for the selected source",result,1)>0 OR _
  inStr(1, "No match for", result, 1) > 0 OR _
  inStr(1, "NOT FOUND", result, 1) > 0 OR _
  inStr(1, "No data found", result, 1) > 0 then
  'result indeholdt en af de 4 ting

end if

<%
Dim i
Dim arrFindText
arrFindText = Array("No entries found for the selected source", "No match for", "NOT FOUND", "No data found")

For i = 0 To UBound(arrFindText)
    If InStr(result, arrFindText(i)) > 0 Then
        Response.Write arrFindText(i) & "<BR>"
    End If
Next
%>