Hvordan tjekker jeg indholdet af en string?

Response.Write InStr([streng],[søgeord])
vil returnere det antal tegn inde i strengen, som søgeordet befandt sig. Er der intet fundet, vil det være lig 0.

http://www.2biaz.dk/diverse/aspfunctions/detaljer/#InStr

Simpel løsning: http://www.w3schools.com/vbscript/func_instr.asp

Men hvorfor må man ikke indtaste navnet på en hjemmeside?

Hej jeg er en tolv årig dren som hedder magnus jeg tror jeg har fundet det du leder efter. Jeg ville tro du skulle bruge eregi(); funktionen.
Her er et eksempel med php:
<?php
$http = "http";
$www = "www";
$href = "href"
$streng = "Her er din streng med www, http eller href i.";
if(eregi($streng, $www) || eregi($streng, $http) || eregi($streng, $href))// Hvis der er 'www', 'http' eller 'href' så skriver den noget ud.
{
print 'Der er http, href eller www i din streng.';
}
else// Elers hvis de ikke er der så skriv noget andet ud.
{
print 'Der er ikke http, href eller www i din streng.';
}
?>
Kan du bruge dette eksempel?

w13>> Lyder lidt som lige det jeg søgte. Korrekt at jeg kan bruge kommandoen således:

if inStr([streng],'www') > 0 then
  ' Kode der skal afvikles hvis der er www i teksten
else
  ' kode der skal afvikles hvis der ikke er www i teksten
end

?? - Hvis ja, så smid gerne et svar.

Årsagen til at jeg ikke vil tillade links, er at det er til en gæstebog, som pt. bliver spammet med alle mulige crap-links

Du skal overveje vbTextCompare så du får tjekket når der står "www" og "WWW"

erikjacobsen>> God pointe - Hvordan ville jeg evt. kunne bygge dette ind i ovenstående if-sætning??

Er pt. lidt ude i noget med:

if inStr([streng],'www') > 0 or inStr([streng],'http') > 0 or inStr([streng],'href') > 0 then
  bla bla

- Men skal selvfølgelig så også tage højde for store og små bogstaver

Ja, det er korrekt!
Og med vbTextCompare så skal det bare være:

if inStr([streng],'www',1) > 0 or inStr([streng],'http',1) > 0 or inStr([streng],'href',1) > 0 then

Og svar! :)

w13>> Undskyld mit sene svar, men har lige været på en forlænget weekend :o)

Du skriver er desværre ikke helt med på det der vbTextCompare?? - Kan ikke se at det indgår i den kodelinie du har skrevet??

Ahhh ...

0 = vbBinaryCompare - Perform a binary comparison
1 = vbTextCompare - Perform a textual comparison

Hmm ... Får nu følgende fejl:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'strMessage'

Min kode er som følger:

strMessage = server.HTMLEncode(Request.Form("messagefield"))
strMessage = Replace(strMessage, "'", "''")

IF inStr(strMessage,"www",1) > 0 or inStr(strMessage,"http",1) > 0 or inStr(strMessage,"href",1) > 0 THEN
...

Nogen gode ideer?

Hvis strMessage er tom kan der godt opstå problemer. Gives der ikke en fejllinje?

strMessager er ikke tom. Har også tjekket ved bare at sætte strMessage = "test besked indeholdende www" med samme resultat.

Får kun fejlen Type mismatch: 'strMessage'

Så prøv først at fjerne:
strMessage = Replace(strMessage, "'", "''")
Og derefter:
IF inStr(strMessage,"www",1) > 0 or inStr(strMessage,"http",1) > 0 or inStr(strMessage,"href",1) > 0 THEN

For at finde ud af, hvor fejlen opstår.

Ahh undskyld ... Mig der sover i timen. En fejl LINIE - Jo, sådan en får jeg, og fejllinien er

IF inStr(strMessage,"www",1) > 0 or inStr(strMessage,"http",1) > 0 or inStr(strMessage,"href",1) > 0 THEN

Det ser rigtigt ud.. Hvad hvis du fjerner alle ,1 ?

når du sætter compare-argumentet på, skal du angive start position

IF inStr(1,strMessage,"www",1) > 0 or inStr(1,strMessage,"http",1) > 0 or inStr(1,strMessage,"href",1) > 0 THEN

Fantastisk! - Var der det skulle til.

Morhan>> Har desværre accepteret w13's svar, så kan ikke give dig andet end gode tanker!