He conseguido que me funcione con =true
pero solo me funciona si utilizo el idioma italiano, en cualquiera de los otros dos idiomas: español o inglés no me va.
Paso el código para ver si así puden indicarme cual puede ser el problema:
-----------------------
Código:
<%if select_idioma = "" then
'Conexión a dsn con ACCESS
Set Conn= Server.CreateObject("ADODB.Connection")
Set Command= Server.CreateObject("ADODB.Command")
Conn.open "DSN=galandum.com"
Command.ActiveConnection=Conn
Command.CommandType=adCmdText
Command.CommandText= "SELECT distinct plato_idioma FROM carta_comidas order by plato_idioma"
Set rs_plato_idioma=Command.Execute ()
<!-- 'Fin conexion a dsn con ACCESS -->%>
<form name="form1" method="post" action="carta_comidas.asp">
<select name="select_idioma" id="select_idioma">
<option selected="""">Seleccione idioma</option>
<%rs_plato_idioma.movefirst
do until rs_plato_idioma.eof%>
<option value="<%=rs_plato_idioma("plato_idioma")%>"><%=rs_plato_idioma("plato_idioma")%></option>
<%rs_plato_idioma.movenext
loop%>
</select>
<input type="submit" value="Selecciona idioma">
</form>
<%dim plato_idioma
'Recogemos el valor de selec_idioma
plato_idioma=request.form("select_idioma")
plato_idioma=server.HTMLEncode(plato_idioma)
'response.write plato_idioma
Command.CommandText= "SELECT distinct plato_tipo FROM carta_comidas where plato_idioma='" &plato_idioma& "'"
Set rs_plato_tipo=Command.Execute ()
if rs_plato_tipo.eof or rs_plato_tipo.bof then
'response.write "no hay registros en la base de datos"
else%>
<table width="100%" border="1">
<%rs_plato_tipo.movefirst
Do While Not rs_plato_tipo.EOF%>
<tr>
<td>
<%response.write "<strong>" & rs_plato_tipo("plato_tipo") & "</strong>"%>
</td>
</tr>
<%Valor_plato_tipo = rs_plato_tipo("plato_tipo")
'plato_dia=True
'response.write plato_dia
'response.write "valor_plato_tipo= " & valor_plato_tipo
Command.CommandText= "SELECT plato_nombre, plato_dia, plato_precio FROM carta_comidas where plato_idioma='" &plato_idioma& "' and plato_tipo = '"&Valor_plato_tipo&"' and plato_dia = True order by plato_tipo"
Set rs_plato_nombre=Command.Execute ()
if rs_plato_nombre.eof or rs_plato_nombre.bof then
response.write "no hay ningún plato en la base de datos"
else%>
<%Do While Not rs_plato_nombre.EOF%>
<tr>
<td><%=rs_plato_nombre("plato_nombre")%></td>
<td><%=rs_plato_nombre("plato_precio") & "€"%></td>
<td><%=rs_plato_nombre("plato_dia")%></td>
</tr>
<%rs_plato_nombre.MoveNext
loop%>
<%rs_plato_tipo.MoveNext
end if
loop%>
</table>
<%end if%>
<%rs_plato_idioma.close
rs_plato_tipo.close
conn.close
else
response.write "hola"
end if%>
Gracias por todo