Søgefunktion?

Forslag, ikke testet!
----------------------------------------

\' Definer array variabel
Dim arrOrd

\' Lav et array ved at splitte soeg ved mellemrum
arrOrd = Split(Request.Form(\"soeg\"),\" \")

\' SQL statement
strSQL = \"select * from soeg where \"

\' Gennemløb array og where clauses
For t = LBound(arrOrd) to UBound(arrOrd)
  strSQL = strSQL & \"((bruger like \'%\" & arrOrd(t) & \"%\') or (beskrivelse like \'%\" & aarOrd(t) & \"%))\"
  if t < UBound(arrOrd) then
    strSQL = strSQL & \" or \"
  end if
Next

\' Tilføj order by
strSQL = strSQL & \" ORDER by attraktion\"
----------------------------------------
// Claus

Rettelser - hmm:

\' Gennemløb array og dan where clauses

strSQL = strSQL & \"((bruger like \'%\" & arrOrd(t) & \"%\') or (beskrivelse like \'%\" & aarOrd(t) & \"%\'))\"

\' Gennemløb array og where clauses
For t = LBound(arrOrd) to UBound(arrOrd)
  strSQL = strSQL & \" or bruger like \'%\" & arrOrd(t) & \"%\') or beskrivelse like \'%\" & aarOrd(t) & \"%\"
Next

strSQL = Replace(strSQL, \" or \", \" \", 1, 1)

Jeg dropper alle parenteser, og vælger at starte med \" or \", og derefter fjerne det førest \" or \"

ALT skal findes, derfor ingen parenteser

nordclc > Den siger:

Microsoft VBScript runtime error \'800a000d\'

Type mismatch: \'aarOrd\'

når jeg bruger dit forslag.. har taget højde for den rettelse du har lavet :\'(

Gør den også det hvis du bruger min, og sørger for at der er et mellemrum i søgeteksten?

Vi kan gardere os mod det andet bagefter

Næ, vi behøver ikke gardere os, den vil også virke hvis der ingen mellemrum er

Jeg manglede vist en lille pling til sidst, og havde en parentes for meget, undskyld:

\' Gennemløb array og where clauses
For t = LBound(arrOrd) to UBound(arrOrd)
  strSQL = strSQL & \" or bruger like \'%\" & arrOrd(t) & \"%\' or beskrivelse like \'%\" & aarOrd(t) & \"%\'\"

strSQL = Replace(strSQL, \" or \", \" \", 1, 1)

giver stadig samme fejl :(

Det hele ser nu sådan ud:

<%
If Request.Form(\"soeg\") <> \"\" then

    Set DB = Server.CreateObject(\"ADODB.Connection\")
    DBSti = \"DBQ=\" & Server.Mappath(\"../db/attraktioner.mdb\")
    DB.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBSti

\' Definer array variabel
Dim arrOrd

\' Lav et array ved at splitte soeg ved mellemrum
arrOrd = Split(Request.Form(\"soeg\"),\" \")

\' SQL statement
strSQL = \"select * from soeg where \"

\' Gennemløb array og where clauses
For t = LBound(arrOrd) to UBound(arrOrd)
  strSQL = strSQL & \" or attraktion like \'%\" & arrOrd(t) & \"%\' or korttekst like \'%\" & aarOrd(t) & \"%\'\"
strSQL = Replace(strSQL, \" or \", \" \", 1, 1)
  if t < UBound(arrOrd) then
    strSQL = strSQL & \" or \"
  end if
Next

\' Tilføj order by
strSQL = strSQL & \" ORDER by attraktion\"


    Set rs = db.Execute (SQL)
    If not rs.eof then
    do until rs.eof
%>

jeg har rette nogle af mine tabeller i db det er derfor du vil se at det er noget andet der står i min sql end tidligere.

Det lader til at den ikke kan lide det array!?

Request.Form(\"soeg\") må ikke være tom!

Find lige ud af hvor den fejler

Prøv at sige
Response.Write (Ubound(arrOrd))
Response.End

lige efter Split-linien

så skriver den 1???

og hvis jeg søger på et enkelt ord skriver den 0 og søger jeg på 3 ord skriver den 2 dvs den tæller de mellemrum jeg har lavet???

Den tæller hvor mange poster der er i array\'et (minus en, da første post er nummer 0).

Hvilken linie kommer fejlen så i?

Hej, du blander vore løsninger:

\' Gennemløb array og where clauses
For t = LBound(arrOrd) to UBound(arrOrd)
  strSQL = strSQL & \" or attraktion like \'%\" & arrOrd(t) & \"%\' or korttekst like \'%\" & aarOrd(t) & \"%\'\"
strSQL = Replace(strSQL, \" or \", \" \", 1, 1)
  if t < UBound(arrOrd) then
    strSQL = strSQL & \" or \"
  end if
Next

skal være

\' Gennemløb array og where clauses
For t = LBound(arrOrd) to UBound(arrOrd)
  strSQL = strSQL & \" or attraktion like \'%\" & arrOrd(t) & \"%\' or korttekst like \'%\" & aarOrd(t) & \"%\'\"
Next

strSQL = Replace(strSQL, \" or \", \" \", 1, 1)
 

DVS den skal hedde:

<%
If Request.Form(\"soeg\") <> \"\" then

    Set DB = Server.CreateObject(\"ADODB.Connection\")
    DBSti = \"DBQ=\" & Server.Mappath(\"../db/attraktioner.mdb\")
    DB.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBSti

\' Definer array variabel
Dim arrOrd

\' Lav et array ved at splitte soeg ved mellemrum
arrOrd = Split(Request.Form(\"soeg\"),\" \")

\' SQL statement
strSQL = \"select * from soeg where \"

\' Gennemløb array og where clauses
For t = LBound(arrOrd) to UBound(arrOrd)
  strSQL = strSQL & \" or attraktion like \'%\" & arrOrd(t) & \"%\' or korttekst like \'%\" & aarOrd(t) & \"%\'\"
Next

strSQL = Replace(strSQL, \" or \", \" \", 1, 1)

\' Tilføj order by
strSQL = strSQL & \" ORDER by attraktion\"


    Set rs = db.Execute (SQL)
    If not rs.eof then
    do until rs.eof
%>

Sorry, men jeg har ikke prøvet at arbejde med array før.

Nå der var ikke nogen som kunne hjælpe mig så det virkede .. sorry.

Nå, du kunne altså ikke findu ud af vore svar, og få dem indarbejdet i din side så det virkede, sorry

ASP er ikke så nemt, så det er bare med at klø på