Código asp:
Ver originalrec1 = objRec.getrows()
rec2 = objRec1.getrows()
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);
<%For i = 0 to UBound(rec1,2)
if (Trim(rec1(subapp,i))= "SI") then
For j = 0 to UBound(rec2,2)%> 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,"<%=rec2(subaaplicacion,j)%>","","",-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,"<%=rec2(sub2aplicacion,j)%>","","",0,-1,0,"<%=rec2(sspaginainicio,j)%>","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);
<% next 'j
else%>
stm_aix("p0i1","p0i0",[0,"<%=re1(nombresub,i)%>","","",-1,-1,0,"<%=rec1(paginainicio,i)%>","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();
<%
end if
next 'i%>
....