Gennemsøge en streng

kommer jo an på hvad du vil med det den finder,
hvis du bar vil replace gør du jo bare som ovenfor,
hvis den skal gøre noget ved et link er det noget andet

jeg vil gøre sådan at hvis der står www eller http i den skal der skal posten ikke gemmes i databasen

ok
så er det noget sammenligningshalløj
strMatch1 = "www"
strMatch2 = "http"
If (InStr(1, DINTEKSTSTRENG, strMatch1, 1) > 0) OR (InStr(1, DINTEKSTSTRENG, strMatch2, 1) > 0)Then
en eller anden fejlmeddelelse
else
put i db
end if

undskyld - kom til at trykke forkert... læg venligst et svar igen

har du fået det til at spille?

Er det Regular Expressions du efterlyser? (RegExp)

Undskyld, nej, det er det jo ikke. Men skulle du få brug for det ....

Function FormatText(str)

'    Lav Regular Expression object
    Set objRegExp = New RegExp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True

'    Konverter HTML-tags
    str = Server.HTMLEncode(str)

'    Udskift efter hinanden følgende mellemrum med " ":
    objRegExp.Pattern = "(\s) "
    str = objRegExp.Replace(str,"$1 ")

'    Lav enkelt linieskift
    str = Replace(str, vbcrlf, VbCrLf & "<br>" & vbCrLf)

'    Lav links (http og mailto)
    str = LinkString(str)

    FormatText = str
end function

Så laver du bare

<%=FormatText(RS("MitRecordSet")%>