qUE TAL Miyakire !
Gracias por tu tiempo y ayuda, fijate que ya casi queda, pero el hijo me lo está devolviendo solo para el primero y los demas no los toma en cuenta, mira aqui esta como me aparece:
Y este es el código como lo tengo actualmente
Código ASP:
Ver original<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/conn_PMR2009.asp" -->
<%
'El Recordset para la consulta padre
Dim rsPadre
Dim rsPadre_cmd
Dim rsPadre_numFilas
Set rsPadre_cmd = Server.CreateObject ("ADODB.Command")
rsPadre_cmd.ActiveConnection = MM_conn_PMR2009_STRING
rsPadre_cmd.CommandText = "SELECT Tra_ID, Tra_NoModalidad, Tra_HomoclaveGeneral as clave, Tra_HomoclaveModalidad, Tra_Nombre, Tra_NombreModalidad FROM dbo.Tramite t WHERE t.Tra_NoModalidadTmp in (0,1) AND dep_ID = 100"
rsPadre_cmd.Prepared = true
Set rsPadre = rsPadre_cmd.Execute
rsPadre_numFilas = 0
%>
<%
'El Recordset para la consulta hijo
Dim rshijos
Dim rshijos_cmd
Dim rshijos_numRows
Set rshijos_cmd = Server.CreateObject ("ADODB.Command")
rshijos_cmd.ActiveConnection = MM_conn_PMR2009_STRING
rshijos_cmd.CommandText = "SELECT Tra_ID, Tra_NoModalidad as cveSec, Tra_HomoclaveGeneral as clave, Tra_HomoclaveModalidad, Tra_Nombre, Tra_NombreModalidad FROM dbo.Tramite t WHERE t.Tra_NoModalidadTmp > 0 AND Dep_ID =100 AND Tra_ID = " & rsPadre.Fields.Item("Tra_ID").Value
rshijos_cmd.Prepared = true
'Set rsPadre = rsPadre_cmd.Execute
'Set rshijos_cmd = Server.CreateObject ("ADODB.Command")
'rshijos_cmd.ActiveConnection = MM_conn_PMR2009_STRING
'rshijos_cmd.CommandText = "SELECT Tra_ID, Tra_NoModalidad as cveSec, Tra_HomoclaveGeneral as clave, Tra_HomoclaveModalidad, Tra_Nombre, Tra_NombreModalidad 'FROM dbo.Tramite t WHERE t.Tra_NoModalidadTmp > 0 AND Dep_ID =100"
'rshijos_cmd.Prepared = true
Set rshijos = rshijos_cmd.Execute
rshijos_numRows = 0
%>
<%
Dim Ciclo1_numFilas
Dim Ciclo1_indice
Ciclo1_numFilas = 10
Ciclo1_indice = 0
rsPadre_numFilas = rsPadre_numFilas + Ciclo1_numFilas
%>
<%
Dim Ciclo2_numFilas
Dim Ciclo2_indice
Ciclo2_numFilas = 10
Ciclo2_indice = 0
rshijos_numRows = rshijos_numRows + Ciclo2_numFilas
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sin título</title>
<link href="extras/Estilos.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!-- Muestro la tabla con los padre -->
<table width="296" border="1">
<tr>
<td width="134" class="LigasGral">M_Id</td>
<td width="146" class="LigasGral">Clave</td>
</tr>
<% While ((NOT rsPadre.EOF) AND(Ciclo1_numFilas <> 0)) %>
<tr>
<td class="LigasGral"><%=(rsPadre.Fields.Item("Tra_ID").Value)%></td>
<td class="LigasGral"><%=(rsPadre.Fields.Item("clave").Value)%></td>
</tr>
<tr>
<td colspan="2" class="LigasGral">
<table border="1">
<tr>
<td class="CeldaGridDet">M_ID</td>
<td class="CeldaGridDet">cveSec</td>
<td class="CeldaGridDet">Clave</td>
<td class="CeldaGridDet"> </td>
</tr>
<% While ((NOT rshijos.EOF) AND (Ciclo2_numFilas <> 0)) %>
<tr>
<td class="CeldaGridDet"><%=(rshijos.Fields.Item("Tra_ID").Value)%></td>
<td class="CeldaGridDet"><%=(rshijos.Fields.Item("cveSec").Value)%></td>
<td class="CeldaGridDet"><%=(rshijos.Fields.Item("clave").Value)%></td>
<td class="CeldaGridDet"> </td>
</tr>
<%
Ciclo2_indice=Ciclo2_indice+1
Ciclo2_numFilas=Ciclo2_numFilas-1
rshijos.MoveNext()
Wend
%>
</table>
</td>
</tr>
<%
Ciclo1_indice=Ciclo1_indice+1
Ciclo1_numFilas=Ciclo1_numFilas-1
rsPadre.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
rsPadre.Close()
Set rsPadre = Nothing
%>
<%
rshijos.Close()
Set rshijos = Nothing
%>
SALUDOS Y GRACIAS !