Forskellige søgninger

Jeg ville lave det med flere loops under hinanden f.eks.

SQL1 = SELECT * FROM nyheder WHERE tekst LIKE '%" & strKeyword & "%'
Set rs1 = objrec_anmedlese

og så kommer loopet her

så kan du lave flere med de søgefunktioner nedenunder

SQL2 = SELECT * FROM anmeldelser WHERE tekst LIKE '%" & strKeyword & "%'
Set rs2 = objrec_anmedlese

Hvis du forstår, hvad jeg mener

Problemet er at alt ligger i samme tabel, det er ligesom den ikke fatter, WHERE type = 'anmeldelse'

Type er et reserveret ord hvis du bruger den skal skrives på den måde: [type].

SQL1 = "SELECT Id, Titel, format, Tekst1, Tekst2 FROM [tekster] WHERE [type] = 'anmeldelse' AND"


vh    Hossein

Ok tak - Tester lige

Nope - Sorry Hossein.. Virker stadig ikke... www.games.zantiago.com - prøv at søg.. Det er alt for mærkeligt

send search siden + nogle rækker i din db så vil jeg kigge på det, hvis du vil.
mach3@get2net.dk

Er type altid = anmeldelse? efter din sql sætning den er?
Bil findes også i billede, derfor den henter det hele, du skal lave sådan at den matcher indtastede ord, er det ikke det som du vil have?

Mail Sendt

ok, jeg har kigget på det. Hvis du vil have at den henter eksakte ord, så skal du sammenligne længden af strKeyword med indholdet af et felt i din tabel. Dette felt kalder du fx KeyWord også skriver du et ord som er den mest relevante for den record. fx i min tabel har jeg nogle felter: URL, Discreption, datesubmitted og Name. Hvis det er
      URL                Discription        Name
www.microsoft.com    sælger software...    Microsoft

så hvis brugeren søger microsoft så hentes feltet.

<%
strKeyword = trim(Request.Form("search"))


If strKeyword <> "" Then
    Dim strConnect, SQL
    Dim RS
    strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("search.mdb") & ";"

    SQL = "SELECT * FROM Sites WHERE INSTR(Sites.Description,'" & strKeyword & "')"

    Set RS = Server.CreateObject("Adodb.Recordset")
    RS.Open SQL,strConnect

    Do Until RS.EOF
        If Len(strKeyword) >= 1 AND strKeyword = Lcase(RS("Name")) Then
            Response.Write "<A HREF='http://" & RS("URL") & "'>" & RS("URL") &"</A> - " & RS("Name") & "<BR>"
            Response.Write RS("Description") & "<BR><BR>"
        End If

        'If Len(strKeyword) <= 0 Then
        '    Response.Write "<A HREF='" & RS("URL") & "'>" & RS("URL") &"</A> - " & RS("Name") & "<BR>"
        '    Response.Write RS("Description") & "<BR><BR>"
       
        'End If
   
        RS.MoveNext
    LOOP
   
    RS.Close
   
End If

%>

Håber det hjælper.

vh      Hossein

Tak for det - Jeg får nok først kigget på det i morgen.. Vender lige tilbage..
/Bruhn

Jeg har kigget en gang til, jeg ved ikke hvordan man vælger typerne, men jeg gætter på at du har bestemmet i din tabel at hver record har en type hvis det er det så jeg legede lidt med sql sætningen, det er bare ()erne:

SQL = "SELECT * FROM tabel1 WHERE (([type] = 'e') and (tekst1 = '" & strKeyword & "' or tekst2 = '" & strKeyword& "')) "

den henter den eksakte tekst hvor brugeren indtaster fordi jeg brugte = og ikke like. Så hvis det er ikke i den tilhørende type så udskrives hellere ikke.

Jeg havde glemt at hente type og kunne derfor ikke sortere efter den - TAK FOR HJÆLPEN!!!

Jeg forstår ikke dit svar?!!: "kunne derfor ikke sortere efter den" sortering var ikke dit spørgsmål!!

Der var flere ting der var i vejen - Men løsningen blev at lavede en masse if sætninger - Plus at hente [Type] i SELECT sætningen!! Der var jo ik lavet en SELECT * - men SELECT Id, Titel, format, Tekst1 osv... Der havde vi glemt TYPE..!!