Søgning flere ord

Tjah, nu virker min søgefunktion som splitter søgestrengen op og søger på alle søgeord perfekt. Problemet er nu bare, at resultaterne skal fungere som link til hhv. produkt og varegruppe.
Så langt - så godt. Problemet er nu bare, at mine 2 links til Detaljemenu og Varenavn kun linker til 1.ord i Detaljemenu og Varenavn. Resten er skåret væk - sikkert pga. split-funktionen i søgescriptet.

De to problemlinks:
Response.Write "<td width=120 bgcolor='" & bgcolor & "'>" & "<a href=prodframe.asp?Detaljemenu=" & Detaljemenu & ">" & Detaljemenu & "</a>"
Response.Write "<td bgcolor='" & bgcolor & "'>" & "<a href=prodframe.asp?Varenavn=" & Varenavn & ">" & Varenavn & "</a>"

Måske kan nogen se en løsning ?

<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/hovedmenu.mdb")
Set myCon = Server.CreateObject("ADODB.Connection")
myCon.Open strDSN

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

newstring = Request.Form("T1")

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

Else

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

End if

newsplit = split(newstring)

SQL = "SELECT * FROM Produkter"
SQLwhere = "("
for i = lbound(newsplit) to ubound(newsplit)
  if SQLwhere <> "(" then SQLwhere = SQLwhere & ") AND ("
  SQLwhere = SQLwhere & "Varenr LIKE '%" & newsplit(i) & "%' AND Webstatus='www'"
  SQLwhere = SQLwhere & " OR (Varenavn LIKE '%" & newsplit(i) & "%') AND Webstatus='www'"
  SQLwhere = SQLwhere & " OR (Varebeskrivelse LIKE '%" & newsplit(i) & "%') AND Webstatus='www'"
  SQLwhere = SQLwhere & " OR (Detaljemenu LIKE '%" & newsplit(i) & "%') AND Webstatus='www'"

next
if SQLwhere <> "(" then SQLwhere = SQLwhere & ") ORDER BY Detaljemenu ASC"

if SQLwhere <> "(" then SQL = SQL & " WHERE " & SQLwhere

Set rs = mycon.Execute(SQL)

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

Do while not rs.EOF

Pris=rs("Pris")
Varenavn=rs("Varenavn")
Varenr=rs("Varenr")
Detaljemenu=rs("Detaljemenu")

Dim v, bgcolor
if v = 1 then
bgcolor="ffffff"
v=2
Else
bgcolor="f2f2f2"
v=1
End if

Response.write "<TR width=100% >"
Response.Write "<td width=120 bgcolor='" & bgcolor & "'>" & "<a href=prodframe.asp?Detaljemenu=" & Detaljemenu & ">" & Detaljemenu & "</a>"
Response.Write "<td bgcolor='" & bgcolor & "'>" & "<a href=prodframe.asp?Varenavn=" & Varenavn & ">" & Varenavn & "</a>"
Response.Write "<td align=right width=90 bgcolor='" & bgcolor & "'>" & "<font style='font-size:8 pt;'>" & "(" & formatnumber((Pris),2) & ")"
Response.Write "<td align=right width=90 bgcolor='" & bgcolor & "'>" & formatnumber((Pris)*1.25)
Response.Write "<td align=right width=70 bgcolor='" & bgcolor & "'>" & "<form method='GET' action='shopcart.asp' onsubmit='return FrontPage_Form1_Validator(this)' name='FrontPage_Form1'><input type='submit' value='Køb' style='font-family: Verdana; font-size: 8 pt; color: #000000'><input name='Quantity' value='1' onclick=""this.value=''"" size='2' style='font-family: Verdana; font-size: 8 pt;'>" & "</td>"
Response.Write "<input type='hidden' name='Action' value='AddItem'><input type='hidden' name='Price' value='" & Pris & "'><input type='hidden' name='ProductID' value='" & Varenr & "'><input type='hidden' name='ProductName' value='" & Varenavn & "'></form>" & "</td>"

rs.movenext
loop

Else

Response.write "</td>"
Response.write "</tr>"

bla. bla. bla.
osv. osv. osv.