Menu con asp

[pali_wichis]

Hola Adler... no entiendo bien lo que quisiste decir...
lo que pasa es esto: tengo (por ahora) dos recordsets, uno lleno con menus y el segundo con submenus. Como no todos los menus tienes submenus, lo que hago es lo siguiente:

Código:

<script type="text/javascript">
var id = '<%=strPerfil%>';
<!--
stm_bm(["menu0a7f",820,"","blank.gif",0,"","",0,0,250,50,1000,1,0,0,"","",0,0,1,1,"default","hand",""],this);
stm_bp("p0",[1,4,0,0,1,2,13,16,100,"progid:DXImageTransform.Microsoft.Fade(overlap=.5,enabled=0,Duration=0.40)",-2,"",-2,70,0,0,"#7F7F7F","#F2F2F2","",3,0,0,"#666666"]);
stm_ai("p0i0",[0,"Sistema Documentación","","",-1,-1,0,"","_self","","","","",13,0,0,"","",0,0,0,0,1,"#8AAEC6",0,"#8AAEC6",0,"","",3,3,0,0,"#FFFFFF","#FFFFFF","#003366","#003366","bold 8pt Arial","bold 8pt Arial",0,0],155,20);
<%do while not objRec.EOF and objRec.BOF = false
    if (Trim(objRec.fields("subapp"))= "SI") then 
       do while not objRec1.EOF and objRec1.BOF = false%>  ES EN ESTA FILA DONDE ME DA EL ERROR: Se requiere un objeto
/doc_sarina/newmenu.asp, línea 200

            stm_aix("p0i1","p0i0",[0,"<%=objRec1.fields("subaaplicacion")%>","","",-1,-1,0,"","_self","","","","",0,0,0,"fadearrow1.gif","fadearrow2.gif",16,9,0,0,0,"#FFFFFF",1,"#B7CEE2",0,"fade.gif","",3,3,0,0,"#CCCCCC","#FFFFFF","#999999","#000000","8pt Arial","8pt Arial"],155,0);
            stm_bp("p1",[1,4,0,0,1,1,16,0,100,"stEffect(\"slip\")",-2,"",-2,85,1,3,"#7F7F7F","transparent","",3,1,1,"#999999","",-1,-1,0,"#FFFFF7","",3,"",-1,-1,0,"#FFFFF7","",3,"",-1,-1,0,"#FFFFF7","",3,"",-1,-1,0,"#FFFFF7","",3,"","","","",0,0,0,0,0,0,0,0]);
            stm_aix("p1i0","p0i1",[0,"<%=objRec1.fields("sub2aplicacion")%>","","",0,-1,0,"<%=objRec1.fields("sspaginainicio")%>","frm_right","","","","fadearrow2.gif",16,9,0,"","",0,0,0,0,1,"#B3D3E8",0,"#0000FF",1,"","fade.gif",3,3,0,0,"#FFFFFF","#FFFFFF","#666666"],155,0);
<%      objRec1.MoveNext
          loop
             set objRec1 = nothing

else%>
stm_aix("p0i1","p0i0",[0,"<%=objRec.fields("nombresub")%>","","",-1,-1,0,"<%=objRec.fields("paginainicio")%>","frm_right","","","","",0,0,0,"fadearrow1.gif","fadearrow2.gif",16,9,0,0,0,"#FFFFFF",1,"#B7CEE2",0,"fade.gif","",3,3,0,0,"#CCCCCC","#FFFFFF","#999999","#000000","8pt Arial","8pt Arial"],155,0);  <%end if%>
stm_ep();
    <%objRec.MoveNext
        loop
            set objRec = nothing%>

Por eso la pregunta...