SQL-sætninger

Det gør du ikke.

Du bliver nødt til at bruge flere SQL sætninger.

split søge teksten op i ord med Split funktionen

eksakt => 1 LIKE
alle ord => n LIKE med AND imellem
et ord => n LIKE med OR imellem

Jeg regnede også med at det ville blive til flere SQL-sætninger ;-)

Mener du således?:

<%
        If Request.Form("avanceret") = "1" Then
      ' # DEN EKSAKTE FRASE
          strSoegeord = Split(strSoegeord," ")
          For i = LBound(strSoegeord) To UBound(strSoegeord)
              strSQL = "SELECT * FROM artikler WHERE "
              strSQL = strSQL & " (Titel 1 LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " OR (Blikfang 1 LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " OR (Indhold 1 LIKE '%" & strSoegeord(i) & "%')"
          Next
        ElseIf Request.Form("avanceret") = "2" Then
      ' # ALLE ORDENE
          strSoegeord = Split(strSoegeord," ")
          For i = LBound(strSoegeord) To UBound(strSoegeord)
              strSQL = "SELECT * FROM artikler WHERE "
              strSQL = strSQL & " (Titel n LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " AND (Blikfang n LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " AND (Indhold n LIKE '%" & strSoegeord(i) & "%')"
          Next
        Else
      ' # MINDST ÉT AF ORDENE
          strSoegeord = Split(strSoegeord," ")
          For i = LBound(strSoegeord) To UBound(strSoegeord)
              strSQL = "SELECT * FROM artikler WHERE "
              strSQL = strSQL & " (Titel n LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " OR (Blikfang n LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " OR (Indhold n LIKE '%" & strSoegeord(i) & "%')"
          Next
        End If
%>
(Note: Jeg har ændret strTekst til strSoegeord)

Apo

Ikke helt

Hvordan så?

<%
        If Request.Form("avanceret") = "1" Then
      ' # DEN EKSAKTE FRASE
              strSQL = "SELECT * FROM artikler WHERE "
              strSQL = strSQL & " (Titel LIKE '%" & strSoegeord & "%')"
              strSQL = strSQL & " OR (Blikfang LIKE '%" & strSoegeord & "%')"
              strSQL = strSQL & " OR (Indhold LIKE '%" & strSoegeord & "%')"
        ElseIf Request.Form("avanceret") = "2" Then
      ' # ALLE ORDENE
          strSoegeord = Split(strSoegeord," ")
              strSQL = "SELECT * FROM artikler WHERE "
          For i = LBound(strSoegeord) To UBound(strSoegeord)
              strSQL = strSQL & " (Titel LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " AND (Blikfang LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " AND (Indhold LIKE '%" & strSoegeord(i) & "%')"
          Next
        Else
      ' # MINDST ÉT AF ORDENE
          strSoegeord = Split(strSoegeord," ")
              strSQL = "SELECT * FROM artikler WHERE "
          For i = LBound(strSoegeord) To UBound(strSoegeord)
              strSQL = strSQL & " (Titel LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " OR (Blikfang LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " OR (Indhold LIKE '%" & strSoegeord(i) & "%')"
          Next
        End If
%>

ser mere rigtig ud

Hm.

2 og 3 sidste mangler faktisk yderligere en OR mellem hvert gennemløb af løkken.

Arne > Jeg har først tid til at kigge på det i morgen aften (jeg havde ikke regnet med svar så hurtigt ;-) ).

Men hvordan mangler der yderligere en OR mellem hvert gennemløb?

Apo

ElseIf Request.Form("avanceret") = "2" Then
      ' # ALLE ORDENE
          strSoegeord = Split(strSoegeord," ")
              strSQL = "SELECT * FROM artikler WHERE "
          For i = LBound(strSoegeord) To UBound(strSoegeord)
              If i > LBound(strSoegeord) Then
                strSQL = strSQL & " OR "
              End If
              strSQL = strSQL & " ((Titel LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " AND (Blikfang LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " AND (Indhold LIKE '%" & strSoegeord(i) & "%'))"
          Next
        Else
      ' # MINDST ÉT AF ORDENE
          strSoegeord = Split(strSoegeord," ")
              strSQL = "SELECT * FROM artikler WHERE "
          For i = LBound(strSoegeord) To UBound(strSoegeord)
              If i > LBound(strSoegeord) Then
                strSQL = strSQL & " OR "
              End If
              strSQL = strSQL & " ((Titel LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " OR (Blikfang LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " OR (Indhold LIKE '%" & strSoegeord(i) & "%'))"
          Next
        End If

Så har jeg kigget på det, men jeg kæmper med følgende fejl:

Microsoft VBScript runtime error '800a000d'
Type mismatch
/Soeg.asp, line 237

Det virker tilsyneladende som det skal, når jeg fjerner følgende:

<%
    ' # TÆLLER ANTAL FUNDNE RESULTATER
        Set rs2 = myConn.Execute("SELECT COUNT(*) AS Resultater_Count FROM artikler WHERE (Titel LIKE '%" & strSoegeord & "%' OR Blikfang LIKE '%" & strSoegeord & "%' OR Indhold LIKE '%" & strSoegeord & "%')")
        If rs2("Resultater_Count") = 1 Then
          strResultater = "resultat."
        ElseIf rs2("Resultater_Count") > 1 Then
          strResultater = "resultater."
        Else
          strResultater = "resultater."
        End if
%>

Ovenstående har virket hidtil, men skaber åbenbart en konflikt når jeg bruger de nye SQL-sætninger. Kan du se hvor fejlen er/hvad der skal rettes?

Apo

hvilken linier 237 ?

Linje 237:

Set rs2 = myConn.Execute("SELECT COUNT(*) AS Resultater_Count FROM artikler WHERE (Titel LIKE '%" & strSoegeord & "%' OR Blikfang LIKE '%" & strSoegeord & "%' OR Indhold LIKE '%" & strSoegeord & "%')")

er strSoegeord en string eller et array påd et sted i koden ?

strSoegeord er en string

strSoegeord overføres fra inputfeltet via en QueryString (hvis du kan bruge det til noget)

Alt foretages på den samme side (Soeg.asp)

Hvis det hjælper dig bedre, ser den øverste del af koden (søgeresultater) således ud:

<%
' # INDSÆTTER SØGERESULTATER -------------------------------------------------------------------------------------------------------------

    If Request.QueryString("Soegeord") <> "" Then

    ' # HENTER SØGEORD
        strSoegeord = Trim(Request.QueryString("Soegeord"))

        If Request.QueryString ("Side") = "" Then
          Response.Redirect "Soeg.asp?Soegeord=" & strSoegeord & "&Side=1"
        End If

'        If Len(strSoegeord) = 0 Then
      ' # HVIS DER IKKE ER SKREVET I FELTET
'          Response.Clear
'          Response.Redirect("Soeg.asp")
'        Else
      ' # HVIS DER ER SKREVET I FELTET
'          strSoegeord = Replace(strSoegeord,"'","''")
'        End If

    ' # SKABER DNSLESS FORBINDELSE TIL DATABASEN
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\www\db\artikler.mdb"
        Set myConn = Server.CreateObject("ADODB.Connection")
        myConn.Open strDSN

    ' # INDSÆTTER PAGING-FUNKTION
        intPage = Request("Side")
        If isNumeric(intPage) = False Or intPage < 1 Then
          intPage = 1
        End If

    ' # ÅBNER RECORDSETTET
        Set rs = Server.CreateObject("ADODB.RecordSet")

        strAvanceret = Request.Form("avanceret")
        If strAvanceret = "1" Then
      ' # SØGER PÅ DEN EKSAKTE FRASE
          strSQL = "SELECT * FROM artikler WHERE "
          strSQL = strSQL & " (Titel LIKE '%" & strSoegeord & "%')"
          strSQL = strSQL & " OR (Blikfang LIKE '%" & strSoegeord & "%')"
          strSQL = strSQL & " OR (Indhold LIKE '%" & strSoegeord & "%')"
        ElseIf strAvanceret = "2" Then
      ' # SØGER PÅ ALLE ORDENE
          strSoegeord = Split(strSoegeord," ")
          strSQL = "SELECT * FROM artikler WHERE "
          For i = LBound(strSoegeord) To UBound(strSoegeord)
              If i > LBound(strSoegeord) Then
                strSQL = strSQL & " OR "
              End If
              strSQL = strSQL & " ((Titel LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " AND (Blikfang LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " AND (Indhold LIKE '%" & strSoegeord(i) & "%'))"
          Next
        Else
      ' # SØGER PÅ MINDST ÉT AF ORDENE
          strSoegeord = Split(strSoegeord," ")
          strSQL = "SELECT * FROM artikler WHERE "
          For i = LBound(strSoegeord) To UBound(strSoegeord)
              If i > LBound(strSoegeord) Then
                strSQL = strSQL & " OR "
              End If
              strSQL = strSQL & " ((Titel LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " OR (Blikfang LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " OR (Indhold LIKE '%" & strSoegeord(i) & "%'))"
          Next
        End If

    ' # TÆLLER ANTAL FUNDNE RESULTATER
        Set rs2 = myConn.Execute("SELECT COUNT(*) AS Resultater_Count FROM artikler WHERE (Titel LIKE '%" & strSoegeord & "%' OR Blikfang LIKE '%" & strSoegeord & "%' OR Indhold LIKE '%" & strSoegeord & "%')")
        If rs2("Resultater_Count") = 1 Then
          strResultater = "resultat."
        ElseIf rs2("Resultater_Count") > 1 Then
          strResultater = "resultater."
        Else
          strResultater = "resultater."
        End if

    ' # FORKORTER SØGETEKST, HVIS OVER 25 TEGN
        If Len(Request.QueryString("Soegeord")) <= 25 Then
          strSoegeord2 = Request.QueryString("Soegeord")
        Else
          strSoegeord2 = Left(Request.QueryString("Soegeord"),25) & "..."
        End If
%>

Apo

Hvis den her:

strSoegeord = Split(strSoegeord," ")

udføres så er strSoegeord jo etarray af String

Okay, så er strSoegeord et array... Men hvad skal jeg ændre i tællefunktionen (jeg er ikke helt med)?

Opgaven har udviklet sig lidt mere end først antaget, så jeg forhøjer pointene :-)

Jeg forstår slet ikke logikken.

Skal den query ikke bruge samme betingelser som den strSQL du opbygger ?

Jo, det skal den. Formålet er at vise brugeren hvor mange match/artikler, søgningen resulterede i.

Jeg ved dog ikke hvordan jeg skal ændre tælleren for at den virker med de nye SQL-sætninger...

Prøv noget a la dette:

<%
' # INDSÆTTER SØGERESULTATER -------------------------------------------------------------------------------------------------------------

    If Request.QueryString("Soegeord") <> "" Then

    ' # HENTER SØGEORD
        strSoegeord = Trim(Request.QueryString("Soegeord"))

        If Request.QueryString ("Side") = "" Then
          Response.Redirect "Soeg.asp?Soegeord=" & strSoegeord & "&Side=1"
        End If

'        If Len(strSoegeord) = 0 Then
      ' # HVIS DER IKKE ER SKREVET I FELTET
'          Response.Clear
'          Response.Redirect("Soeg.asp")
'        Else
      ' # HVIS DER ER SKREVET I FELTET
'          strSoegeord = Replace(strSoegeord,"'","''")
'        End If

    ' # SKABER DNSLESS FORBINDELSE TIL DATABASEN
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\www\db\artikler.mdb"
        Set myConn = Server.CreateObject("ADODB.Connection")
        myConn.Open strDSN

    ' # INDSÆTTER PAGING-FUNKTION
        intPage = Request("Side")
        If isNumeric(intPage) = False Or intPage < 1 Then
          intPage = 1
        End If

    ' # ÅBNER RECORDSETTET
        Set rs = Server.CreateObject("ADODB.RecordSet")

        strAvanceret = Request.Form("avanceret")
        If strAvanceret = "1" Then
      ' # SØGER PÅ DEN EKSAKTE FRASE
          strSQL = " WHERE "
          strSQL = strSQL & " (Titel LIKE '%" & strSoegeord & "%')"
          strSQL = strSQL & " OR (Blikfang LIKE '%" & strSoegeord & "%')"
          strSQL = strSQL & " OR (Indhold LIKE '%" & strSoegeord & "%')"
        ElseIf strAvanceret = "2" Then
      ' # SØGER PÅ ALLE ORDENE
          strSoegeord = Split(strSoegeord," ")
          strSQL = " WHERE "
          For i = LBound(strSoegeord) To UBound(strSoegeord)
              If i > LBound(strSoegeord) Then
                strSQL = strSQL & " OR "
              End If
              strSQL = strSQL & " ((Titel LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " AND (Blikfang LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " AND (Indhold LIKE '%" & strSoegeord(i) & "%'))"
          Next
        Else
      ' # SØGER PÅ MINDST ÉT AF ORDENE
          strSoegeord = Split(strSoegeord," ")
          strSQL = " WHERE "
          For i = LBound(strSoegeord) To UBound(strSoegeord)
              If i > LBound(strSoegeord) Then
                strSQL = strSQL & " OR "
              End If
              strSQL = strSQL & " ((Titel LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " OR (Blikfang LIKE '%" & strSoegeord(i) & "%')"
              strSQL = strSQL & " OR (Indhold LIKE '%" & strSoegeord(i) & "%'))"
          Next
        End If
      strSQLstar = "SELECT * FROM artikler" & strSQL

    ' # TÆLLER ANTAL FUNDNE RESULTATER
        strSQLcount = "SELECT COUNT(*) AS Resultater_Count FROM artikler" & strSQL
        Set rs2 = myConn.Execute(strSQLcount)
        If rs2("Resultater_Count") = 1 Then
          strResultater = "resultat."
        ElseIf rs2("Resultater_Count") > 1 Then
          strResultater = "resultater."
        Else
          strResultater = "resultater."
        End if

    ' # FORKORTER SØGETEKST, HVIS OVER 25 TEGN
        If Len(Request.QueryString("Soegeord")) <= 25 Then
          strSoegeord2 = Request.QueryString("Soegeord")
        Else
          strSoegeord2 = Left(Request.QueryString("Soegeord"),25) & "..."
        End If
%>

Det giver denne fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
ODBC driver does not support the requested properties.
/Soeg.asp, line 323

Linje 323 er denne: rs.Open strSQL, myConn, 1

(en del af en paging-funktion...)

Du skal nok bruge:

rs.Open strSQLall, myConn, 1

der

Endnu en fejl:

ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/Soeg.asp, line 323

Så skal du vist lige have checket indholdet af strSQLall !

der angler nok et mellemrum eller en en ' for meget eller sådan noget

Kan det passe at sætningen:
rs.Open strSQLall, myConn, 1

Skal hedde:
rs.Open strSQLstar, myConn, 1

?

(Efter udskiftning af sætningen kommer resultatet frem - Ingen fejlmeddelelser)

ja for pokker

jeg tænkte først på at kalde den strSQLall emn ombestemte mig så

sorry

Helt i orden :-)

Jeg har lige endnu et prob; Jeg får en fejlmeddelelse når jeg søger på enkelte bogstaver... Der står at søgningen resulterede i 5 resultater (på f.eks. bogstavet 'h'), men der hvor artiklerne skal vises får jeg følgende fejl:

Microsoft VBScript runtime error '800a000d'
Type mismatch
/Soeg.asp, line 402

Linje 402: Response.Write "<a href=""Soeg.asp?Soegeord=" & strSoegeord & "&Side=" & intNum & """ class=""link4"">" & intNum & "</a> "

er det ikke samme problem - at strSoegeord nu er blevet til et array ?

Hmm... Skal paging-linjerne så omskrives, og hvis, hvordan så?

Linjen stammer fra den sidste del af søgefunktionen, der indsætter paging på resultatsiderne.

Prøv:

Response.Write "<a href=""Soeg.asp?Soegeord=" & Trim(Request.QueryString("Soegeord"))
& "&Side=" & intNum & " class=""link4"">" & intNum & "</a> "

Det var åbenbart det der skulle til... Nu får jeg tilsyneladende ikke flere fejlmeddelelser :-)

Afsluttende spørgsmål:

Jeg synes ikke at der er synlig forskel på de 3 søgemetoder (resultaterne er de samme). Fungerer koden som den skal?

koden = SQLen

Ahh... Jeg får ikke værdien af 'avanceret' med i QueryStringen, så er det jo klart at resultaterne er de samme :-/

Har du et bud på hvordan jeg får smidt værdien af både Soegeord og Avanceret op i QueryStringen? Det her virker tilsyneladende ikke:

<form style="display: inline;" method="get" action="Soeg.asp?Soegeord=<%=Request.Form("soegeord")%>&amp;Avanceret=<%=Request.Form("avanceret")%>&amp;Side=1">

... Og smid lige et svar, så du kan få dine points :-)

Response.Write "<a href=""Soeg.asp?Soegeord=" & Trim(Request.QueryString("Soegeord"))
& "&Avanceret=" & Request.Form("avanceret") & "&Side=" & intNum & " class=""link4"">" & intNum & "</a> "

måske

og et svar

Nu var det i selve formularen jeg havde problemet ;-)

Tilsyneladende fandt jeg selv en måde at løse problemet på, og det ser ud til at fungere efter hensigten.

Arne, jeg siger mange tak for din tid og hjælp (og ikke mindst din tålmodighed!). Der er points på vej i din retning :-)

// Lukker

Apo