Rod med søgefunktion ;o)

Oprettede du ikke også dette spm. igår?

Jo, men jeg har ændret lidt i det jeg laver - og det virker stadig ikke, derfor et nyt spørgsmål!

Nu kender jeg ikke lige så meget til ASP, men kunne det tænkes at den er case-censitiv så tin erklæring af StrKeyword (med stort S) bliver tolket som en anden variaben end strKeyword (med lille s) og at den derfor bare søger på "%%"?

tin=din ;)

Tja, det kan være du har fat i noget der - men hvordan tager jeg højde fpr det, sådan at jeg fx. kan søge på fOdBoLd?

Værdien af variablen er fuldstændig ligegyldig, men hvis der er rod med erklæringen er det muligt at strKeyword bare bliver "" og din søgning derfor bliver "% & "" & %" men jeg er som sagt ikke sikkert.

<%
Dim StrKeyword
StrKeyword = Replace(Request.Form("soeg"), "'", "''")
StrKeyword = LCase(StrKeyword)
'If strKeyword <> "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
StrSql = "SELECT * FROM annoncer WHERE annoncetekst LIKE '" & LCase(strKeyword) & "'"
Set objRec = Conn.Execute(StrSql)
%>

Her vil det komme hvis det er i din DB!

//>Rune

Nu har jeg sat det ind som du lige har skrevet, men hvor jeg før fandt ALT fra db, så finder den ingen ting nu - selvom jeg søger på ord som jeg ved er i db'en !?!

Læs denne artikel skrevet af Dennis Knappe, så vil du forstå det hele meget bedere...

http://activedeveloper.dk/aspdigital/kapitel2/search.asp

//>Rune

Det er nok fordi den nu søger på det præcise input i stedet for et pattern match. Prøv at tilføje %'erne igen.

Jeg har lige læst artiklen, og den var da ok - giver lige det grundlæggende!

Men jeg har lige fundet ud af, at hvis jeg ufskriver StrKeyword, så står der ikke noget!!! Det fatter jeg altså ikke, men det må jeg jo lige prøve at ordne først!

Prøv at skrive:

Response.Write(Request.Form("soeg"))

//>Rune

Den udskriver ikke noget!!!

Der hvor jeg skriver i min form, ligger i en include file, men det giver vel ingen forskel?

Nej, det skulle ikke give nogen forskel... Det lydet lidt underligt det der sker.. Er du sikker på at du Submitter dine data'er, og at de ligger i en form og med methoden POST?

//>Rune

Dette er min form:

<Form name="menusoeg" method="POST" action="soegning.asp" style="margin:0px;">
<Input type="text" name="soegning" class="soeg">

og hvis jeg skriver Response.Write(Request.Form("soegning"))

så sker der ikke noget!

Ja - jeg ændrede lige name="soeg" til name="soegning" men det var bare lige for at prøve at gøre et eller andet!!

Men det er godt nok underligt!!!

Har du husket at slutte din <form> kode af igen? (</form>)

//>Rune

ja, også det!!

Så har jeg fundet fejlen - jeg har en case request.querystring("udvidet") hvor navnet ikke var rigtig!!

lol

//>Rune

Flot ikke ;o)

Hvordan kan jeg søge på to forskellige formfelter, sådan at hvis der er også er noget i felt nr 2, så skal det indgå i søgningen??

Her er de koder som jeg har bikset sammen!

<%
Dim StrKeyword
strKeyword = Trim(Request.Form("soegning"))

If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect Request.ServerVariables("HTTP_REFERER")
Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
    StrKeyword = LCase(StrKeyword)

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
StrSql = "SELECT * FROM annoncer WHERE annoncetekst LIKE '" & LCase(strKeyword) & "%'"

Set objRec = Conn.Execute(StrSql)
If Not (objRec.BOF Or objRec.EOF) Then
%>

så har jeg også fået det lavet!

LOL fair nok!
Thx 4 Poinz

//>Rune

Jeg har lige et spørgsmål, men sig lige til hvis jeg skal stille det som et nyt..

Bruger søger fx på Fugl og i en selectbox vælger bruger "alle typer"

Hvis "alle typer" vælges skal der kun søges sådan:

StrSql = "SELECT * FROM annoncer WHERE"
StrSql = StrSql & "(annoncetekst LIKE '" & LCase(strKeyword) & "%')"

Men hvis der vælges type = "blå" så skal der søges i db'en på alle de felter er har værdien fx 3,4 og 5 - men hvordan gør jeg det???

Jeg har prøvet lidt her, men jeg er ikke helt sikker på og jeg kan gøre det sådan!

strKeyword = Replace(strKeyword,"'","''")
    StrKeyword = LCase(StrKeyword)
    strKeyword2 = Replace(strKeyword2,"'","''")
    If strKeyword2 = "" then XXXXXXXXX??

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
StrSql = "SELECT * FROM annoncer WHERE"
StrSql = StrSql & "(annoncetekst LIKE '" & LCase(strKeyword) & "%')"
StrSql = StrSql & " AND (landsdel LIKE '" & strKeyword2 & "')"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
StrSql = "SELECT * FROM annoncer WHERE"
StrSql = StrSql & "(annoncetekst LIKE '" & LCase(strKeyword) & "%')"
StrSql = StrSql & " AND (landsdel LIKE '" & strKeyword2 & "' WHERE etfelt = 2)"

-du kan bare oprette et spm og lave en reference hertil når du har fået dit svar!

//>Rune