Error de sintaxis con números decimales

[Ire]

Tengo un problema con una web en asp.
Esta web tiene un apartado dinámico, se trata de un buscador en el que eligiendo varios parámetros nos muestra unos productos que cumplen las características seleccionadas.
La cosa es que en la base de datos Access hay dos campos que tienen valores decimales con coma por ej: 21,5 (el campo en la base de datos está definido como Número Doble).
Lo que ocurre es que en cuanto selecciono un valor con decimales en el buscador y le doy a Buscar, aparece el siguiente error:



Microsoft OLE DB Provider for ODBC Drivers error '80040e14'



[Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query expression 'modelo<>'' and (altura<161 or altura=161) and (altura>145,4 or altura=145,4) and (carrera<250 or carrera=250) and (carrera>63,5 or carrera=63,5)'.



/dinamic/cast/productos/resultado_caract.asp, line 67


En el resto de los casos, si los valores son enteros el buscador funciona bien. ¿Alguien puede ayudarme?

[FiNo]

Hola, podrías poner el código y además deberías utilizar en la sentencia where (altura <= 161)

[3pies]

Una opción es hacer un replace, para que te cambie la coma por un punto:

Código:

numero_a_buscar = replace(numero_a_buscar, ",", ".")

Salu2

[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!

[orharo2003]

Iniciado por 3pies

Código:

numero_a_buscar = replace(numero_a_buscar, ",", ".")

La otra opción es usar la función cdbl(numero_con_comas)