Saludos:
Pueden ustedes indicarme como hacer lo siguiente porque no lo tengo nada claro, estoy atascado.
Qiero listar una carta de comidas de forma que se muestre de la manera siguiente:
Tipo Comida 1 (entremes)
Comida 1
Comida 2
Comida 3
Tipo comida 2 (Carnes)
Comida 1
Comida 2
Comida 3
Tipo comida 3 (pescados)
Comida 1
Comida 2
.
.
etc.
He intentado hacerlo con este código pero me salen los tipos de comida (entremes, carnes, pescados, postres) pero dentro de cada tipo solo me aparece una comida y no es ni la primera ni la ultima del recordset.
Tengo un select donde se listan los idiomas en los que se mostrará la carta (ingles, italiano o español).
Ese listado lo produce el recordset: rs_plato_idioma.
Hay dos recordset más:
rs_plato_tipo y rs_plato_nombre que listan los diferentes tipos de plato (entremes, carnes, pescados,postres) y los diferentes platos (gambas, flan, etc) respectivamente.
Para eso uso el siguiente código:
Código:
<% 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">
<%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
plato_idioma=request.form("select_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 ()
Command.CommandText= "SELECT plato_nombre FROM carta_comidas where plato_idioma='" &plato_idioma& "' order by plato_tipo"
Set rs_plato_nombre=Command.Execute ()%>
<table width="200" border="1">
<%rs_plato_tipo.movefirst
do until rs_plato_tipo.eof%>
<tr>
<td>
<%response.write rs_plato_tipo("plato_tipo")
rs_plato_tipo.movenext%>
</td>
<tr>
<td>
<%rs_plato_nombre.movefirst
for contador=rs_plato_tipo.eof to rs_plato_tipo.bof%>
<%
response.write rs_plato_nombre("plato_nombre")
rs_plato_nombre.movenext%>
<%next%>
</td>
</tr>
</tr>
<%loop%>
</table>
</body>
<%rs_plato_idioma.close
rs_plato_tipo.close
rs_plato_nombre.close
conn.close%>
Gracias a todos