Søgning MSSQL, problemer med 'between'

Jeg har en søge funktion, som virker, med undtagelse af søgning i en pris mellem x og y. Det er således 'between' statementet jeg ikke kan få til fungere.

Nogen der har en løsning?

På forhånd tak!

Kode:
<%
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 rsSearch = Server.CreateObject("ADODB.Recordset")
rsSearch.ActiveConnection = Conn_STRING
If NOT Request.QueryString("PrisMin") AND NOT Request.Form("PrisMin") = "" Then
rsSearch.Source = "SELECT * FROM ADS, tblAuthor, TYPES WHERE AD_KATEGORI LIKE" & Produkttype & " AND Location LIKE" & Lokalitet & " AND AD_TYPE LIKE" & Annoncetype & " AND (AD_TITLE LIKE " & fritekst & " OR AD_DESCRIPTION LIKE " & fritekst & " OR Username LIKE " & fritekst & ") AND (AD_PRICE BETWEEN " & PrisMin & " AND " & PrisMax & ") AND AD_EXPIRED >= GetDate()  AND AD_POSTER = username AND AD_TYPE = TYPE_ID AND active = 1 ORDER BY AD_ID DESC"
else
rsSearch.Source = "SELECT * FROM ADS, tblAuthor, TYPES WHERE AD_KATEGORI LIKE" & Produkttype & " AND Location LIKE" & Lokalitet & " AND AD_TYPE LIKE" & Annoncetype & " AND (AD_TITLE LIKE " & fritekst & " OR AD_DESCRIPTION LIKE " & fritekst & " OR Username LIKE " & fritekst & ") AND AD_EXPIRED >= GetDate()  AND AD_POSTER = username AND AD_TYPE = TYPE_ID AND active = 1 ORDER BY AD_ID DESC"
end if
rsSearch.CursorType = 0
rsSearch.CursorLocation = 2
rsSearch.LockType = 3
rsSearch.Open()
rsSearch_numRows = 0
count = 0
Do while Not rsSearch.EOF
count = count + 1
rsSearch.MoveNext
Loop
if count > 0 then
rsSearch.MoveFirst
end if
%>