Søgning i søgning

måske noget ala det her vil virke

<%
strKeyword = Trim(Request.Form("Keyword"))
strKeyword2 = Trim(Request.Form("Keyword2"))
strKeyword2 = Replace(strKeyword2,"'","''")
If Len(strKeyword) = 0 Then
    Response.Clear
    Response.Redirect("default.asp")
Else
    strKeyword = Replace(strKeyword,"'","''")
End If
strSQL = "SELECT ID, handelse, HanDato, IDmoni FROM Handelsetekst WHERE"
strSQL = strSQL & " ((id LIKE '%" & strKeyword & "%')"

if strKeyword2<>"" then
    strSQL = strSQL & " and (id LIKE '%" & strKeyword2 & "%')"
end if

strSQL = strSQL & ") OR ((handelse LIKE '%" & strKeyword & "%')"

if strKeyword2<>"" then
    strSQL = strSQL & " and (handelse LIKE '%" & strKeyword2 & "%')"
end if

strSQL = strSQL & ") order by handato desc"
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("_private/db.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
set rs = Server.CreateObject("ADODB.Recordset")
SQLstr = strSQL
rs.Open strSQL, myconn, 3
allrecords = rs.RecordCount

Hep = request("keyword")
%>

Hmm...jeg kan ikke helt få det til at virke. Den søger stadig i det hele og ikke kun i de poster fra den første søgning.
Mit felt hedder Keyword2, det skal det vel?

du skal sørge for at der er data i både strKeyword og strKeyword2 , når du søger anden gang (altså når du søger i resultatet).
Det der sker er at den løber samme søgning igennem to gange, anden gang tar den bare strKeyword2 med.

Jo feltet skal heddde Keyword2

er du kommet videre med den her?

Jeg beklager meget, at der er gået så lang tid.
Jeg har desværre fået noget eksta arbejde som jeg ikke havde regnet med.
Men jeg acceptere dit svar nu, og får spørgsmålet lukket. Så regner jeg med at få det til at virke.
Tak for hjælpen.