YA AHORA LO ESTOY HACIENDO CON UNA SOLA CONEXION Y PASANDOLE VARIAS CONSULTAS
EL ERROR ME DA EN ESTA LINEA
sql1 ="select * from menu where activado='s' and cod_menu_padre=" & PADRE & "" EN ESTA
set rstabla=con.excute(sql1)%> AKI DA EL ERROR
VUELVO A PONER CODIGO COMPLETO HASTA LINEA DE ERROR
<% DIM DIV, I
' dim sql()
dim menu
div=0
' i=1
dim e
e= 1
SET con=SERVER.CREATEOBJECT("ADODB.CONNECTION")
strconn="Data Source=CASHSQL;User ID=sa;Password="
con.open strconn
SQLQUERY="SELECT count(*) as menu FROM menu WHERE ACTIVADO='S' AND COD_MENU_PADRE=0"
SET RSTABLA=con.EXECUTE(SQLQUERY)
menu=rstabla("MENu")
' rstabla.close
' con.close
' set rstabla=nothing
'set con = nothing
'SET con=SERVER.CREATEOBJECT("ADODB.CONNECTION")
'strconn="Data Source=CASHSQL;User ID=sa;Password="
'con.open strconn
SQLQUERY="SELECT top " & e & " * FROM menu WHERE ACTIVADO='S' AND COD_MENU_PADRE=0 ORDER BY COD_SECUENCIAL"
SET RSTABLA=con.EXECUTE(SQLQUERY)
Select Case e
case 2
rstabla.movenext
case 3
rstabla.movenext
rstabla.movenext
case 4
rstabla.movenext
rstabla.movenext
rstabla.movenext
case 5
rstabla.movenext
rstabla.movenext
rstabla.movenext
rstabla.movenext
case 6
rstabla.movenext
rstabla.movenext
rstabla.movenext
rstabla.movenext
rstabla.movenext
End select
%>
<%'= sqlquery%>
<%
DIM PADRE
PADRE= RSTABLA("COD_SECUENCIAL")
DO while e<(menu+1)%>
<td width="18%" height="38">
<div id="<%= RSTABLA("NOMBRE")%>" style="position:relative; width:184px; height:20px; z-index:2;" onmouseout="ocultar('<%= "m" & i%>')" onmouseover="mostrar('<%= "m" & i%>')">
<table width="100%" border="0" cellspacing="1" cellpadding="1" bgcolor="#E1E1E1">
<tr>
<td>
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="#"><%= RSTABLA("NOMBRE")%></a> </font></b>
<div id="<%= "m" & i%>" style="position:absolute; width:182px; height:115px; z-index:2; left: 0px; top: 20px; visibility: hidden">
<table width="100%" border="0" cellspacing="1" cellpadding="1" bgcolor="#FFFFFF">
<% ' rstabla.close
' con.close
'set rstabla=nothing
'set con = nothing
%>
<%
'SET con1=SERVER.CREATEOBJECT("ADODB.CONNECTION")
'strconn1="Data Source=CASHSQL;User ID=sa;Password="
'con1.open strconn1
sql1 ="select * from menu where activado='s' and cod_menu_padre=" & PADRE & ""
set rstabla=con.excute(sql1)%> AKI DA EL ERROR