MSSQL - Between to priser (tal)

Jeg ønsker at søge mellem to priser fra en formular eller streng i adresselinien, ved nedenstående kodestump.

Det resulterer dog i en kedelig fejl:
"Microsoft OLE DB Provider for SQL Server error '80040e21'
The requested properties cannot be supported."

Hvis jeg fjerner "BETWEEN" udtrykket, virker søgningen 100%, bare uden muligheden for at søge mellem de to priser, som er ønskeligt! :O(

Kan nogen hjælpe - jeg føler mig lost!

På forhand tak! ;O)

//Koden :

Produkttype = " '%' "
Lokalitet = " '%' "
Annoncetype = " '%' "
Fritekst = " '%' "
PrisMin = " '%' "
PrisMax = " '%' "

    if Request.Form("Produkttype") <> "" then
        Produkttype = " '%" & Request.Form("Produkttype")& "%' "
    end if
    if Request.Form("Lokalitet") <> "" then
        Lokalitet =  " '%" & Request.Form("Lokalitet")& "%' "
    end if
    if Request.Form("Annoncetype") <> "" then
        Annoncetype =  " '" & Request.Form("Annoncetype")& "' "
    end if
    if Request.Form("PrisMin") <> "" then
        PrisMin =  " '" & Request.Form("PrisMin")& "' "
    end if
      if Request.Form("PrisMax") <> "" then
        PrisMax =  " '" & Request.Form("PrisMax")& "' "
    end if
    if Request.Form("fritekst") <> "" then
        fritekst =  " '%" & Request.Form("fritekst")& "%' "
    end if
   
    '----------------------------------------------------------------------

    if Request.QueryString("Produkttype") <> "" then
        Produkttype = " '%" & Request.QueryString("Produkttype")& "%' "
    end if
    if Request.QueryString("Lokalitet") <> "" then
        Lokalitet =  " '%" & Request.QueryString("Lokalitet")& "%' "
    end if
      if Request.QueryString("Annoncetype") <> "" then
        Annoncetype =  " '" & Request.QueryString("Annoncetype")& "' "
    end if
    if Request.QueryString("PrisMin") <> "" then
        PrisMin =  " '" & Request.QueryString("PrisMin")& "' "
    end if
      if Request.QueryString("PrisMax") <> "" then
        PrisMax =  " '" & Request.QueryString("PrisMax")& "' "
    end if
    if Request.QueryString("fritekst") <> "" then
        fritekst =  " '%" & Request.QueryString("fritekst")& "%' "
    end if
   
set rsAds = Server.CreateObject("ADODB.Recordset")
rsAds.ActiveConnection = MM_conn_STRING
rsAds.Source = "SELECT * FROM ADS, USERS, TYPES WHERE AD_KATEGORI LIKE" & Produkttype & " AND U_LOKALITET LIKE" & Lokalitet & " AND AD_TYPE LIKE" & Annoncetype & " AND (AD_TITLE LIKE " & fritekst & " OR AD_DESCRIPTION LIKE " & fritekst & ") AND (AD_PRICE BETWEEN " & PrisMin & " AND " & PrisMax & ") AND AD_EXPIRED >= GetDate()  AND AD_POSTER = U_ID AND AD_TYPE = TYPE_ID AND U_LUKKET = 1 " & VarSorter & ""