| Respuesta: Menu con asp
uuuu a que no lo creen...
bueno, lo estoy haciendo funcionar... aunque es rejodido... en realidad lo que estoy probando ahora (y que al menos me armo el menu) es meter el asp en el trozo de javascript... de este modo...
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"]);
<%do while not objRec.EOF and objRec.BOF = false%>
stm_ai("p0i0",[0,"<%=objRec.fields("aplicacion")%>","","",-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);
stm_aix("p0i1","p0i0",[0,"<%=objRec.fields("nombresub")%>","","",-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]);
<%'if (Trim(objRec.fields("subapp"))= "SI") then
'do while not objRec1.EOF%>
stm_aix("p1i0","p0i1",[0,"<%'=objRec1.fields("sub2aplicacion")%>","","",0,-1,0,"Archivos.asp?strPerfil=<%=strPerfil%>","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);
//stm_aix("p1i1","p1i0",[0,"Consultar","","",-1,-1,0,"Archivos.asp?strAccion=pdf","frm_right","","","","",16,9,0,"","",0,0,0,0,1,"#B3D3E8",0,"#0000FF",1,"","fade.gif",3,3,0,0,"#FFFFFF","#FFFFFF","#666666"],150,0);
//stm_aix("p1i2","p1i0",[0,"En formato .xls","","",-1,-1,0,"Archivos.asp?strAccion=xls","frm_right","","","","",16,9,0,"","",0,0,0,0,1,"#B3D3E8",0,"#0000FF",1,"","fade.gif",3,3,0,0,"#FFFFFF","#FFFFFF","#666666"],150,0);
stm_ep();
<%'objRec1.MoveNext
' loop
' set objRec1 = nothing
'end if
objRec.MoveNext
loop
set objRec = nothing%>
al menos dio resultado, lo malo, son los submenús que no me los muestra porque no me deja incluir un ciclo while dentro de otro, lo que estoy haciendo es probar con recordsets y cuando funcione bien, reemplazarlo por xml...
eso... a penas lo tenga se los dejo como ejemplo...
:D |