Por favor ayuda para terminar de codificar un CICLO ANIDADO utilizando 2 tablas

[webbeginner]

En verdad agradezco tu ayuda

mira lo coloque de esta forma

Código PHP:

  <&#37;
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">&nbsp;</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">&nbsp;</td>
            </tr>
          <% 
          rshijos.MoveNext()
        Wend
                rshijos.Close
        %>
 
    <% 
  rsPadre.MoveNext()
Wend
%>
    </table>
<p>&nbsp;</p>
<p class="NivelPagina"> ************************************************************************************************</p>
<p>&nbsp;</p>
<!-- Muestro la tabla con los hijos -->
 
</body>
</html>
<%
rsPadre.Close()
Set rsPadre = Nothing
%>
<%
rshijos.Close()
Set rshijos = Nothing
%> 
   

Y me sale este error:

Código:

Error de compilación de Microsoft VBScript (0x800A03F3)
Se esperaba '='
/Pruebas-3.asp, línea 23, columna 17
Set rshijos.Open vSQL
----------------^

y si le pongo '=' en donde lo sugiere me aparece este otro error

Código:

Tipo de error:
ADODB.Command (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/Pruebas-3.asp, línea 3

que será?

Saludos!