Søgning i Access

Jeg har et lille scripts her som jeg ikke kan få til at virke.

Det er 3 felter man søger i og man kan kun vælge en i hver af de 3 dvs. ikke textarea.


<%
fra = request("fra")
til = request("til")
dato = request("dato")

if fra = "" then
fra2 = ""
else
fra2 =  " (fra = '" & Replace(fra, ", ", "' OR fra = '") & "')"
end if

if til = "" then
til2 = ""
else
til2 =  " (til = '" & Replace(til, ", ", "' OR til = '") & "')"
end if

if dato = "" then
dato2 = ""
else
dato2 =  " (dato = '" & Replace(dato, ", ", "' OR dato = '") & "')"
end if

if fra = "" then
fra2 = ""
TotalStr = TotalStr
else
TotalStr = TotalStr & " AND " & fra2 & ""
end if

if til = "" then
til2 = ""
TotalStr = TotalStr
else
TotalStr = TotalStr & " AND " & til2 & ""
end if

if dato = "" then
dato2 = ""
TotalStr = TotalStr
else
TotalStr = TotalStr & " AND " & dato2 & ""
end if

TotalStr = TotalStr & ")"

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

%>


Dette kommer i body
<%
Set testRS = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM test "&TotalStr&" ORDER BY ID DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/test.mdb")
testRS.Open strSQL, strDSN, 1
If Not (testRS.BOF Or testRS.EOF) Then
  testRS.PageSize = 20
  testRS.AbsolutePage = intPage
  intRecCount = testRS.PageSize
  intPageCount = testRS.PageCount
  Response.Write "Side " & intPage & " af " & intPageCount & "&nbsp;"
end if
%>
<%
if testRS.EOF AND testRS.BOF then
%>