Find et ord i en tekst

<%
strTekst = "Jeg er en glad lille ABE"

If Instr("ABE", strTekst) > 0 Then
  A = 0
Else
  A = 1
End If

Response.Write A
%>

<%
TEXT = "Jeg er en glad lille ABE"

If Not Instr("ABE", TEXT) > 0 Then
  A = 0
Else
  A = 1
End If

Response.Write A
%>

Det virker kun hvis TEXT = "ABE"

Hvis der er andre ord virker det ikke

text = Request("text")

set words = conn.execute("select * from words")

do until words.eof
If Instr(lcase(words("word")), lcase(text)) > 0 Then
    Response.Redirect("EN SIDE")
ELSE
    Response.Redirect("EN ANDEN SIDE")
End If
words.movenext
loop

den fejler hvis der er flere ord i sætningen
så kommer den til EN ANDEN SIDE
selv om sætningen indeholdt ordet

If Not Instr(lcase(words("word")), lcase(text)) > 0 Then

hvorfor not?

Det ved jeg ikke - kan ikke tænke så langt omkring dit system - synes ikke rigtig du har givet nogen info. Men du har en tabel med nogle ord og hvis teksten fra Request("text") indeholder et ord som optræder i din tabel så skal den sende brugeren til en side - er det korrekt?

ja det er korrekt

og med not opføre den sig som om der altid indeholder et ord selvom den ike gør det

Det er klart. Men jeg ved ikke hvorfor, jeg har givet dig en løsning på hvordan du tjekkede din string for et ord.

Men man kunne jo gøre sådan her:

<%
text = Request("text")

set words = conn.execute("select * from words")

do until words.eof

  If InStr(LCase(words("word"), LCase(text)) > 0 Then
    strFejl = 1
  End If

words.movenext
loop

If strFejl = 1 Then
  Response.Write("Der opstod fejl")
Else
  Response.Write("Der opstod ikke fejl")
End If
%>

den er stadig ligeglad hvis der er andre ord, hvad med:
set word= conn.execute("select * from word")
do until word.eof
If Instr(lcase(word("word")), lcase(text)) > 0 then     Response.Redirect("Der opstod en fejl")
word.movenext
loop

Hvad mener du med hvis der er andre ord? Hvis vi nu siger du har giraf, abe og elefant tilføjet i din database, og du indtaster fx. elefant og giraf fejler dne så ikke?

ja den fejler hvís der er og men ikke hvis det er elefant giraf med kun mellemrum

Okay, det forstår jeg godt nok ikke. Må jeg få lov at se den side du sidder og arbejder på? Så kan jeg lige prøve mig frem :-)

´men du ka jo ikke bruge conn'en

Det er da også ligemeget. Jeg skal se din hjemmeside, så jeg kan prøve mig frem på den?

den skal blot vendes rigtigt

<%
TEXT = "Jeg er en glad lille ABE"
A = 0
If Instr(TEXT, "ABE") > 0 Then A = 1

Response.Write A
%>