Spørgsmål / søgning efter et tilhørende svar?

Jeg lavede engang denne funktion til at dele en streng op i ord (checker for dobbelt mellemrum)

Dim s, sArray(), u, y

s = \"Din sætning med søge ord\"

i = 0

While s <> \"\"
  y = InStr(1, s, \" \", 1)
  If y = 0 Then
    y = Len(s)+1
  End If
  If y > 1 Then
    ReDim Preserve sArray(u)
    sArray(u) = Left(s,y-1)
    u = u + 1
  End If
  s = Mid(s,y+1)
Wend


  strSQL = \"SELECT * FROM tabelnavn WHERE \"
  strSQL = strSQL & \"(feltnavn LIKE \'%\" & sArray(LBound(sArray)) & \"%\')\"

  For n = LBound(sArray)+1 To UBound(sArray)
    strSQL = strSQL & \" \" & \"OR\" & \" (feltnavnigen LIKE \'%\" & sArray(n) & \"%\')\"
  Next

Måske kan du bruge det til noget?

ellers kan du måske finde noget her:

http://www.activeserverpages.dk/download/default.asp?mode=kategori&id=5

eller her:

http://www.netcoders.dk/sources.asp?mode=list_sources&tech_id=1