como hago esta consulta

[JuanRAPerez]

Código:

</table>
<%
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
	response.write "no hay registros en la base de datos"
else
	%>
	<table width="200" border="1">
		<%
	    rs_plato_tipo.movefirst
		Do While Not rs_plato_tipo.EOF
		%>
		<tr>
			<td>
			<%
			response.write rs_plato_tipo("plato_tipo")
			%>
			</td>
		</tr>
		<tr>
			<td>
			<%
			Valor_plato_tipo = rs_plato_tipo("plato_tipo")
			Command.CommandText= "SELECT plato_nombre FROM carta_comidas where plato_idioma='" &plato_idioma& "' and plato_ipo = '"&Valor_plato_tipo&"' order by plato_tipo"
			Set rs_plato_nombre=Command.Execute ()
			if rs_plato_nombre.eof or rs_plato_nombre.bof
				response.write "no hay registros en la base de datos"
			else
				%>
				<ul>
					<%
					Do While Not rs_plato_nombre.EOF
					%>
					<li>
						<%response.write rs_plato_nombre("plato_nombre")%>	
					</li>
					<%
					rs_plato_nombre.MoveNext 
					loop
					%>						
				</ul>
			</td>
		</tr>
		<%
		rs_plato_tipo.MoveNext 
		loop
		%>	
	</table>
	
<%
end if
%>

a ver si te funciona pero tengo dudas en tus campos en la segunda consulta