Søgekriterier i Access...

Hey all...

Jeg har en del problemmer med at få en søgeform til virke...
http://www.buttcher.dk/vin > Vinoversigt

Prøv at skrive 1000 i min-pris... Så skulle der ikke komme nogle vine ud... Men der kommer ti varenumre ud alligevel... Kort sagt: Den reagere ikke på min pris >= 1000 !!

Her submitdelen af koden:

If request("submit") <> "" then
    'Brugeren vil søge!
    strSQL = "SELECT * FROM vin WHERE "
   
    If Request("land") = "alle" then
        set area = conn.execute("SELECT OmrådeID FROM Område")
    Else
        set area = conn.execute("SELECT OmrådeID FROM Område WHERE LandID = " & Replace(Request("land"),","," OR LandID ="))
       
    End if
    strareaID = ""
    If Not area.EOF then
        While NOT area.EOF
            strareaID = strareaID & "OR OmrådeID = " & area("OmrådeID") & " "
        area.MoveNext
        Wend
    End if   
    strSQL = strSQL & "OmrådeID=" & Right(strareaID,Len(strareaID)-13)
   
    If Len(request("maxpris")) > 1    then
        strSQL = strSQL & " AND pris <= " & Request("maxpris")
    End if

    If Len(request("minpris")) > 1    then
        strSQL = strSQL & " AND pris >= " & Request("minpris")
    End if
   
    If request("fritekst") <> "" then
        strSQL = strSQL & " AND navn LIKE '%" & Request("fritekst") & "%'"
    End if
   
    If NOT Request("type") = "alle" then
        strSQL = strSQL & " AND type=" & Replace(Request("type"),","," OR")
    End if
   
    Response.Write strSQL & "<BR><BR>"
    set vin = conn.execute(strSQL)
   
    If not vin.EOF then
        While NOT vin.EOF
            Response.Write vin("varenummer") & "<BR>"
        vin.moveNext
        Wend
    End if
Else

......