Funktion för insensitive sök fungerar ej

HEJ!

Det känns som att felet inte ligger i funktionen, utan i ditt anrop, dvs i sql:en. Har du skrivit enligt exemplet, och alla parenteser finns med, och på rätt ställe?

Snygg funktion förresten! (Jo, jag vet att det inte är din, men ändå!)

ta bort alla

as String

Hej!
Tackar för svaret - well, har kopierat koden rakt av och det är i funktionens kod som felet dyker upp - men det kanske har med det att göra ändå. Själva SQL-queryn ser ut såhär:

SQLE = "SELECT namn FROM tabell WHERE namn + text + alt LIKE '%" & AccIns("search") &"%' ORDER BY namn DESC"

Har även testat att bara skapa en tom sida.asp med ingen ASP-kod förutom själva funktionen (alltså helt enkelt en sida utan innehåll men med ovanstående ASP-kod inlagd innaför head-taggarna) - och samma fel dyker upp då...

Jo - visst är det en fin funktion - synd bara att jag inte får igång det hela riktigt ;)

Tackar dock för ovanstående tips - har laborerat och skalat om, men samma fel dyker upp om och om igen, dessvärre...

Hmm, kan man skriva "... WHERE namn + text + alt LIKE ..."?

Aldrig sett, eller gjort, söker själv endast i ett fält i sändern. Men det går kanske? Prova med & istället. + är det ovanligt man ser, fast det brukar fungera.

Hej igen.

Johnny:
SQL-satsen fungerade innan, så det borde fungera - men för säkerhetsskull har jag provat med endast:

SQLE = "SELECT namn FROM tabell WHERE namn LIKE '%" & AccIns("search") &"%' ORDER BY namn DESC"

Dessvärre utan någon förändring - om jag kör endast funktionen i en separat test-sida - utan övrig kod borde det väl inte generera några felmeddelanden om koden är rätt, eller!?
Var ett tag sedan jag pysslade med sånt här - är därför ganska rostig om man säger så ;) - tacka för tipset dock, och har som sagt nu provat med en enklare SQL-sats (som skall hitta resultat ändå, då jag söker på namnet huvudsakligen).

LarsG:
Tackar även för ditt tips - får dessvärre inte det att fungera då heller - men jag kanske har missuppfattat dig något. Har testat de två nedanstående sätten:

<%
Function AccIns(Str)
    Dim CurLtr * 1
    For x = 1 To Len(Str)
        CurLtr = Mid(Str, x, 1)
        Select Case CurLtr
            Case "e", "é", "è", "ê", "ë", "E", "É", "È", "Ê", "Ë"
                AccIns = AccIns & "[eéèêëEÉÈÊË]"
            Case "a", "à", "â", "ä", "A", "À", "Â", "Ä"
                AccIns = AccIns & "[aàâäAÀÂÄ]"
            Case "i", "ì", "ï", "î", "I", "Ì", "Ï", "Î"
                AccIns = AccIns & "[iïîìIÏÎÌ]"
            Case "o", "ô", "ö", "ò", "O", "Ô", "Ö", "Ò"
                AccIns = AccIns & "[oôöòOÔÖÒ]"
            Case "u", "ù", "û", "ü", "U", "Ù", "Û", "Ü"
                AccIns = AccIns & "[uûüùUÛÜÙ]"
            Case "c", "ç", "C", "Ç"
                AccIns = AccIns & "[cCçÇ]"
            Case Else
                AccIns = AccIns & CurLtr
        End Select
    Next
End Function
%>

...vilket ger:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
/search.asp, line 9, column 11
Dim CurLtr * 1
----------^

Dvs andra raden i funktionen - men som sagt, antar att det inte riktigt är som ovan du menar.

Har även testat nedanstående variant:

Function AccIns(Str)
    Dim CurLtr
    For x = 1 To Len(Str)
        CurLtr = Mid(Str, x, 1)
        Select Case CurLtr
            Case "e", "é", "è", "ê", "ë", "E", "É", "È", "Ê", "Ë"
                AccIns = AccIns & "[eéèêëEÉÈÊË]"
            Case "a", "à", "â", "ä", "A", "À", "Â", "Ä"
                AccIns = AccIns & "[aàâäAÀÂÄ]"
            Case "i", "ì", "ï", "î", "I", "Ì", "Ï", "Î"
                AccIns = AccIns & "[iïîìIÏÎÌ]"
            Case "o", "ô", "ö", "ò", "O", "Ô", "Ö", "Ò"
                AccIns = AccIns & "[oôöòOÔÖÒ]"
            Case "u", "ù", "û", "ü", "U", "Ù", "Û", "Ü"
                AccIns = AccIns & "[uûüùUÛÜÙ]"
            Case "c", "ç", "C", "Ç"
                AccIns = AccIns & "[cCçÇ]"
            Case Else
                AccIns = AccIns & CurLtr
        End Select
    Next
End Function

Nu får jag visserligen inget felmeddelande för funktionen i sig - men däremot fungerar inte sökningen - ger inga resultat...

Well, pulade vidare lite ytterligare efter era förslag - finner inte riktigt vad som gjorts sen ovan (om något) men nu fungerar det :) Tackar för hjälpen.

Slutgiltig och fungerande kod:
(fungerar för övrigt med första SQL-satsen)

<%
Function AccIns(Str)
    Dim CurLtr
    For x = 1 To Len(Str)
        CurLtr = Mid(Str, x, 1)
        Select Case CurLtr
            Case "e", "é", "è", "ê", "ë", "E", "É", "È", "Ê", "Ë"
                AccIns = AccIns & "[eéèêëEÉÈÊË]"
            Case "a", "à", "â", "ä", "A", "À", "Â", "Ä"
                AccIns = AccIns & "[aàâäAÀÂÄ]"
            Case "i", "ì", "ï", "î", "I", "Ì", "Ï", "Î"
                AccIns = AccIns & "[iïîìIÏÎÌ]"
            Case "o", "ô", "ö", "ò", "O", "Ô", "Ö", "Ò"
                AccIns = AccIns & "[oôöòOÔÖÒ]"
            Case "u", "ù", "û", "ü", "U", "Ù", "Û", "Ü"
                AccIns = AccIns & "[uûüùUÛÜÙ]"
            Case "c", "ç", "C", "Ç"
                AccIns = AccIns & "[cCçÇ]"
            Case Else
                AccIns = AccIns & CurLtr
        End Select
    Next
End Function
%>

Än en gång, tack för hjälpen båda två :)

Koden du hämtat är för VB, och där kan (måste?) man berätta vad variabeln ska vara till. Det förstod LarsG meddetsamma, jag nu. :r
Det står CurLtr * 1, och det fungerar inte med VBScript. Därför kom jag på att jag hade fel.

Det står tom "With a few little modifications, it works great with ASP too!" vid exemplet. Det är det du gjort nu. Tipsa dem, så lägger de kanske till koden, eller länkar till wF.

Vad som skiljer ditt näst senaste från ditt senaste försök?
Säg det, så är det på internet! :P