Search! Keyword skal deles hvis f.eks. det er to ord!

Brug:

split(request("keyword), " ")

og do while loop i mellem dem.

Vil gerne have at du sætter det ind i koden ellers fatter jeg ikke helt hvad mener bare et eksempel :)

Kigger lige med

:-)

Har selv prøvet med spilt men kan ikke få det til at virke :/ Hjælp en eller anden :)

Skal alle ord være i en kolonne for at komme med eller skal bare et af dem være der ??

Her er din koden tilrettet så den med OR mellem det alle ord..:


<% Response.Buffer = True %>

<%
strKeyword = Trim(Request.Form("Keyword"))


If Len(strKeyword) = 0 Then

  Response.Clear
  Response.Redirect("rightmain.asp")

Else

  strKeyword = Replace(strKeyword,"'","''")

End If

ordArray = Split(strKeyword, " ")
strSQLWhere = ""
strSQL = "SELECT Id, Emne, Link, Besk, Titel, Karakter, Fag, Name, Email FROM link2 WHERE "
for i = lbound(ordArray) to ubound(ordArray)
  if strSQLWhere <> "" then strSQLWhere = strSQLWhere & " OR "
  strSQLWhere = strSQLWhere & "(Emne LIKE '%" & ordArray(i) & "%')"
next
for i = lbound(ordArray) to ubound(ordArray)
  if strSQLWhere <> "" then strSQLWhere = strSQLWhere & " OR "
  strSQLWhere = strSQLWhere & "(Link LIKE '%" & ordArray(i) & "%')"
next
for i = lbound(ordArray) to ubound(ordArray)
  if strSQLWhere <> "" then strSQLWhere = strSQLWhere & " OR "
  strSQLWhere = strSQLWhere & "(Besk LIKE '%" & ordArray(i) & "%')"
next
for i = lbound(ordArray) to ubound(ordArray)
  if strSQLWhere <> "" then strSQLWhere = strSQLWhere & " OR "
  strSQLWhere = strSQLWhere & "(Title LIKE '%" & ordArray(i) & "%')"
next
for i = lbound(ordArray) to ubound(ordArray)
  if strSQLWhere <> "" then strSQLWhere = strSQLWhere & " OR "
  strSQLWhere = strSQLWhere & "(Karakter LIKE '%" & ordArray(i) & "%')"
next
for i = lbound(ordArray) to ubound(ordArray)
  if strSQLWhere <> "" then strSQLWhere = strSQLWhere & " OR "
  strSQLWhere = strSQLWhere & "(Fag LIKE '%" & ordArray(i) & "%')"
next

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.connectionstring = "Provider=SQLOLEDB;Data Source=xxx.xxx.xxx.xxx;Initial Catalog=xxxxxx.dk; User ID=xxxxxx.dk;Password=xxxxx;"

Conn.Open

Set rs = Conn.Execute(strSQL)

If Not (rs.BOF Or rs.EOF) Then

Do While Not rs.EOF

URL = rs("Link")
Besked = rs("Besk")
Titel = rs("Titel")
ID = rs("ID")
Karakter = rs("Karakter")
Fag = rs("Fag")

Link = "<b><a href=answer.asp?nummer=" & ID & " target='blank'>" & Titel & "</a></b>"

Response.Write "<li>" & Link & "</li>" & " <br> Fag: " & Fag & " - Karakter: " & Karakter & " - Tryk på link for beskrivelse :)"

rs.MoveNext
Loop
Else

Response.Write "<li>Desværre din søgning gav intet resultat :("

End If

Conn.Close
Set Conn = Nothing
%>

Hej, jeg har lige prøvet at bruge det på noget jeg har gang i, men den søger ikke på to ord???

Her er koderne:

<%
strKeyword = Trim(Request.Form("soeg"))


If Len(strKeyword) = 0 Then

  Response.Clear
  Response.Redirect("default.asp")

Else

  strKeyword = Replace(strKeyword,"'","''")

End If

ordArray = Split(strKeyword, " ")
strSQLWhere = ""
strSQL = "SELECT Catalogs.catalogName as UdskrivNavn, Products.ProductID, products.productDesc, Products.ProductName, Products.CatalogID FROM Products, catalogs where Catalogs.catalogNameID = Products.CatalogID"
    strSQL = strSQL & " AND (products.productName LIKE '%" & strKeyword & "%')"
    strSQL = strSQL & " OR (products.productDesc LIKE '%" & strKeyword & "%')"
   
for i = lbound(ordArray) to ubound(ordArray)
  if strSQLWhere <> "" then strSQLWhere = strSQLWhere & " OR "
  strSQLWhere = strSQLWhere & "(Products.ProductName LIKE '%" & ordArray(i) & "%')"
next
for i = lbound(ordArray) to ubound(ordArray)
  if strSQLWhere <> "" then strSQLWhere = strSQLWhere & " OR "
  strSQLWhere = strSQLWhere & "(products.productDesc LIKE '%" & ordArray(i) & "%')"
next

Set con = server.CreateObject("ADODB.Connection")
      Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../e-handel/db/database.mdb")

Set rs = Con.Execute(strSQL)

Tak for dit svar :)
Det ser fint ud men der kommer en fejl jeg ikke kan gennemskue :/
her er den:

Microsoft OLE DB Provider for SQL Server error '80040e14'

Line 1: Incorrect syntax near 'Where'.

/search.asp, line 60

Den kommer når jeg sætter det ind som du har skrevet det!
Plz hjælp så skal du nok få dine points :)

Hov du skal jo lige have hvad line det er i dit script line 60 denne:

Set rs = Conn.Execute(strSQL)

:)

Doh jeg har stavet et af dine kolonne navne forkert ... Dein kolonne hedder titel og ikke som jeg har skevet title, så prøv at rette denne linie:
  strSQLWhere = strSQLWhere & "(Title LIKE '%" & ordArray(i) & "%')"

Til:
  strSQLWhere = strSQLWhere & "(Titel LIKE '%" & ordArray(i) & "%')"

Har jeg rettet nu men fejlen er der stadig! HULK :( fatter det ikke :/

Jeg har prøvet din kode på min maskine og det virker fint.. Hvis man ikke angivet et søgeord bliver WHERE tom så prøv at ændre denne linie:

strSQL = "SELECT Id, Emne, Link, Besk, Titel, Karakter, Fag, Name, Email FROM link2 WHERE "

Til disse to:

strSQL = "SELECT Id, Emne, Link, Besk, Titel, Karakter, Fag, Name, Email FROM link2"
if ubound(ordArray) > 0 then strSQL = strSQL & " WHERE "

Er alle kolonner defineret som tekst i databasen ?

ARGH!!!!!!!!!
Når jeg søger på et ord viser den alle enteries i databasen.... når jeg søger på to ord kommer samme fejl som før :/
Ja ID og Karakter i min database er ikke tekst!

Prøv at ændre:

strSQL = "SELECT Id, Emne, Link, Besk, Titel, Karakter, Fag, Name, Email FROM link2"
if ubound(ordArray) > 0 then strSQL = strSQL & " WHERE "


Til bage igen
strSQL = "SELECT Id, Emne, Link, Besk, Titel, Karakter, Fag, Name, Email FROM link2 WHERE "

prøv også at fjern karakter fra WHERE delen for at se om det evt er den kolonne som giver fejl:

for i = lbound(ordArray) to ubound(ordArray)
'  if strSQLWhere <> "" then strSQLWhere = strSQLWhere & " OR "
'  strSQLWhere = strSQLWhere & "(Karakter LIKE '%" & ordArray(i) & "%')"
next

Du må tjekke på at alle kolonne navne er stavet rigtigt for jeg kan ikke få fejlen frem når jeg bruger koden.

Har tjekket de foskellige ting nu med intet hjalp :/
Det er godt nok mystisk!
Nu får jeg fjlen lige gyldig hvad jeg søger på! Hvis du vil kan du prøve selv på www.paniktimen.dk

Hvad system tester du den på?
Den server jeg har siden på kører men win 2000 og microsoft SQL server! Ved ikke om det gør nogen forskel...

Jeg bruger Access database...

Da du havde dette virkede det så uden fejl??

strSQL = "SELECT Id, Emne, Link, Besk, Titel, Karakter, Fag, Name, Email FROM link2 WHERE"
strSQL = strSQL & " (Emne LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Link LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Besk LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Titel LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Karakter LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Fag LIKE '%" & strKeyword & "%')"

Ellers kan du prøve at tilføje en kolonne af gang starte med dette:

strSQL = "SELECT Id, Emne, Link, Besk, Titel, Karakter, Fag, Name, Email FROM link2 WHERE "
for i = lbound(ordArray) to ubound(ordArray)
  if strSQLWhere <> "" then strSQLWhere = strSQLWhere & " OR "
  strSQLWhere = strSQLWhere & "(Emne LIKE '%" & ordArray(i) & "%')"
next


og derefter:
strSQL = "SELECT Id, Emne, Link, Besk, Titel, Karakter, Fag, Name, Email FROM link2 WHERE "
for i = lbound(ordArray) to ubound(ordArray)
  if strSQLWhere <> "" then strSQLWhere = strSQLWhere & " OR "
  strSQLWhere = strSQLWhere & "(Emne LIKE '%" & ordArray(i) & "%')"
next
for i = lbound(ordArray) to ubound(ordArray)
  if strSQLWhere <> "" then strSQLWhere = strSQLWhere & " OR "
  strSQLWhere = strSQLWhere & "(Link LIKE '%" & ordArray(i) & "%')"
next

Da jeg kørte med det gamle virkede det fint :)
Bortset fra at den søgte på det som et ord jo :) men den kom med de rigtige resultater og det hele :)
Men nu prøver jeg lige det du forslog :)

Selvom jeg prøver med f.eks. kun "Emne" så kommer den med samme fejl :(

Haha, n00bs :>

Brug det her:

<form method="POST" action="index.asp?mode=submit">
  <p><input type="text" name="Ord" size="20"><input type="submit" value="Søg"></p>
</form>

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.connectionstring = "Provider=SQLOLEDB;Data Source=xxx.xxx.xxx.xxx;Initial Catalog=xxxxxx.dk; User ID=xxxxxx.dk;Password=xxxxx;"

Conn.Open

mode=Request("mode")
If mode="submit" Then


newstring = Request.Form("Ord")

if len(newstring) = 0 Then
Response.Clear
Response.Redirect("index.asp")

Else

newstring = Replace(newstring,"'","''")

End if

newsplit = split(newstring)

for i = lbound(newsplit) to ubound(newsplit)
SQL = "SELECT * FROM link2 WHERE Emne LIKE '%" & newsplit(i) & "%'"
strSQL = strSQL & " OR (Link LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Besk LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Titel LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Karakter LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Fag LIKE '%" & strKeyword & "%')"

next

Set rs = conn.Execute(SQL)

If not (rs.BOF or rs.EOF) Then

Do while not rs.EOF

URL = rs("Link")
Besked = rs("Besk")
Titel = rs("Titel")
ID = rs("ID")
Karakter = rs("Karakter")
Fag = rs("Fag")

Link = "<b><a href=answer.asp?nummer=" & ID & " target='blank'>" & Titel & "</a></b>"

Response.Write "<li>" & Link & "</li>" & " <br> Fag: " & Fag & " - Karakter: " & Karakter & " - Tryk på link for beskrivelse :)"


rs.movenext
loop

Else
Response.write "Desværre!"
End if

End if
%>

Weee kanon det virker efter lidt justering! :)
Sorry eagle men pointsne går næsten kun til Nightwitness! Men giver dig 10 for din flittighed :D
TAKKER NightWitness! :D

LOL magen til ***** kode skal man lede længe efter.

Den søger jo efter strKeyword som ikke er defineret for de fleste kolonner.
Den enste kolonne som søges i er Emne og så det enda kun det sidste ord som der blvier søgt efter ......

Hehe ja det ved jeg godt men har rettet den og nu virker den :) Ham der lavede den var vist lidt doven :)