Er næsten lig med

<form action="seek.php" method="post">
      <input type="hidden" name="seek" value="true"/>
      Søg: <input type="text" name="what" size="20"/> <input type="submit" value="Søg"/>
    </form>
    <?php
      $seek = $_REQUEST["seek"];
      if(isset($seek) && $seek=="true" ) {
        include("inc/conn.inc");
       
        $what = $_REQUEST["what"];
        $whatHTML = htmlspecialchars( $what, ENT_QUOTES );
       
        $result = mysql_query("SELECT * FROM snydekoder WHERE titel LIKE '%".$whatHTML."%'");
        if( mysql_num_rows( $result ) > 0 ) {
          print(" Din søgning på <b>".$what."</b> gav ".mysql_num_rows($result)." resultat(er) :<br/>");
          for($i=0; $i<mysql_num_rows($result); ++$i) {
            $entry = mysql_fetch_object($result);
            print(" - <a href='show.php?id=".$entry->id."'>".$entry->titel."</a><br/>");
          }
        } else {
          print(" Der kunne desværre ikke findes nogle koder udfra de informationer, du leverede. Prøv venligst igen...");
        }
      }
    ?>

sæt et % på hver side af søgeteksten...

sgren> Visual Basic??

mbl> Du kan bruge Instr funktionen:

InStr("1234b", "1234")

ups... skulle måske begynde og læse... og derefter gå ind og sove igen.
Sorry

Du kan læse nærmere om funktionen her: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vafctinstr.asp

Under forudsætning af at dine inputværdier ligger i et array, og du kan bruge en collection som returværdi. Så kan du bruge dette eksempel til at finde de værdier der opfylder dine kriterier.

Private Sub Command1_Click()
    Dim startArr(3) As String
    Dim resultCol As Collection
    startArr(0) = "1234a"
    startArr(1) = "1234b"
    startArr(2) = "123aa"
    startArr(3) = "123bb"

    Set resultCol = getResult("1234", startArr)

    For Each item In resultCol
        MsgBox item
    Next

End Sub

Function getResult(ByVal searchString As String, arr() As String) As Collection
    Dim item As Variant
    Dim col As Collection
    Set col = New Collection
    For Each item In arr
        If InStr(1, item, searchString) <> 0 Then
            col.Add item
        End If
    Next
    Set getResult = col
End Function

VH CK