Error de sintaxis con números decimales

[Ire]

Gracias por la corrección de <=. Pongo el código a ver si puedes ver qué pasa.

Los campos que tienen valores decimales son "altura" y "fuerza".

<%

fuerzamin=request.Form("fuerzamin")
fuerzamax=request.Form("fuerzamax")
alturamin=request.Form("alturamin")
alturamax=request.Form("alturamax")
dcmin=request.Form("dcmin")
dcmax=request.Form("dcmax")
carreramin=request.Form("carreramin")
carreramax=request.Form("carreramax")

criterios=""

if fuerzamin<>"no" or fuerzamax<>"no" then
if fuerzamin<>"no" and fuerzamax<>"no" then
criterios=criterios & " and (fuerza<"&fuerzamax&" or fuerza="&fuerzamax&") and (fuerza>"&fuerzamin& " or fuerza="&fuerzamin&")"
else
if fuerzamin<>"no" and fuerzamax="no" then
criterios=criterios & " and (fuerza>"&fuerzamin&" or fuerza="&fuerzamin&")"
else
criterios=criterios & " and (fuerza<"&fuerzamax&" or fuerza="&fuerzamax&")"
end if
end if
end if

if alturamin<>"no" or alturamax<>"no" then
if alturamin<>"no" and alturamax<>"no" then
criterios=criterios & " and (altura<"&alturamax& " or altura="&alturamax&") and (altura>"&alturamin&" or altura="&alturamin&")"
else
if alturamin<>"no" and alturamax="no" then
criterios=criterios & " and (altura>"&alturamin&" or altura="&alturamin&")"
else
criterios=criterios & " and (altura<"&alturamax&" or altura="&alturamax&")"
end if
end if
end if


if dcmin<>"no" or dcmax<>"no" then
if dcmin<>"no" and dcmax<>"no" then
criterios=criterios & " and (diametro_c<"&dcmax&" or diametro_c="&dcmax&") and (diametro_c>"&dcmin&" or diametro_c="&dcmin&")"
else
if dcmin<>"no" and dcmax="no" then
criterios=criterios & " and (diametro_c>"&dcmin&" or diametro_c="&dcmin&")"
else
criterios=criterios & " and (diametro_c<"&dcmax&" or diametro_c="&dcmax&")"
end if
end if
end if

if carreramin<>"no" or carreramax<>"no" then
if carreramin<>"no" and carreramax<>"no" then
criterios=criterios & " and (carrera<"&carreramax&" or carrera="&carreramax&") and (carrera>"&carreramin&" or carrera="&carreramin&")"
else
if carreramin<>"no" and carreramax="no" then
criterios=criterios & " and (carrera>"&carreramin&" or carrera="&carreramin&")"
else
criterios=criterios & " and (carrera<"&carreramax&" or carrera="&carreramax&")"
end if
end if
end if

set rstcilindro = Server.CreateObject("ADODB.RecordSet")
consultacilindro="SELECT * FROM cilindros WHERE modelo<>'' "& criterios & " order by modelo"
rstcilindro.Open consultacilindro, objConn, 3,3

%>

Muchas gracias y saludos!