La idea sería algo como esto:
Código ASP:
Ver original<%
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
%>
<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) %>
<tr>
<td class="LigasGral"><%=(rsPadre.Fields.Item("Tra_ID").Value)%></td>
<td class="LigasGral"><%=(rsPadre.Fields.Item("clave").Value)%></td>
</tr>
<TR COLSPAN="2">
<%
vSQL = "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
Set rshijos.Open vSQL
%>
<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) %>
<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>
<%
rshijos.MoveNext()
Wend
rshijos.Close
%>
</table>
<%
rsPadre.MoveNext()
Wend
%>
Revísalo y dinos si hay algo que no funcione
Saludos