Ecco lo script... mi da errore (oggetto mancante) alla nona riga nel ciclo if...
se volete vedere in azione come appare l'errore cliccate sul menu a sinistra su questo sito: www.estateincalabria.it
Grazie a tutti.
Ecco lo script:
<script language=javascript>
<!--
function clickCategory(CatIDStr)
{
var txtObj = document.all("t_" + CatIDStr);
var imgObj = document.all("i_" + CatIDStr);
if (txtObj.style.display == 'none')
{
txtObj.style.display ='';
imgObj.src = 'images/node_minus.gif';
}
else
{
txtObj.style.display = 'none';
imgObj.src = 'images/node_plus.gif';
}
}
//-->
</script>
<link href="estate.css" rel="stylesheet" type="text/css">
<body leftmargin="0"><table cellspacing="0" cellpadding="0" border=0>
<tr>
<td class="newmenu">
<%
if Request.QueryString("IDLingua")="" then
IDLingua=1040
else
IDLingua=Request.QueryString("IDLingua")
end if
%>
<%
strSQL = "SELECT * FROM GE03_Menu WHERE GE03_Relazione=0 AND (GE03_IDLingua =" & IDLingua & ") ORDER BY GE03_Ordine, GE03_Nome, ID"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, strConn, adOpenStatic, adLockReadOnly, adCmdText
If Not objRS.EOF Then
objRS.MoveFirst
Do While Not objRS.EOF
%>
<% If NumOfSubs(objRS("ID")) > 0 Then %>
<span title="<%=objRS("GE03_Descrizione")%>">
[img]images/trans.gif[/img]<img id="i_treeid_<%=objRS("ID") %>" onClick="clickCategory('treeid_<%=objRS("ID") %>')" height=9 src="images/node_plus.gif" width=9 border=0>
"" Then%><%=objRS("GE03_Link") %><%Else%>interna.asp?menu=<%=objRS("ID") %><%=ID%>&IDLingua=<%=IDLingua%><%End If%>" class="TreeMenu" onClick="clickCategory('treeid_<%=objRS("ID") %>');"><%=objRS("GE03_Nome") %></span>
<% Else %>
<span title="<%=objRS("GE03_Descrizione")%>">
[img]images/trans.gif[/img][img]images/node_final.gif[/img]
"" Then%><%=objRS("GE03_Link") %>interna.asp?menu=<%=ID%>&IDLingua=<%=IDLingua%>< %=objRS("ID") %><%Else%>interna.asp?menu=<%=ID%><%=objRS("ID") %><%End If%>" class="TreeMenu""><%=objRS("GE03_Nome") %></span>
<% End If %>
<% If NumOfSubs(objRS("ID")) > 0 Then %>
<%= DisplaySubs(objRS("ID")) %>
<% End If %>
<%
objRS.MoveNext
Loop
End If
objRS.Close
Set objRS = Nothing
%>
</td>
</tr>
</table>
<%
If Request("menu") <> "" Then
varOpenMenu = Request("menu")
Do While varOpenMenu <> 0
%>
<script>
clickCategory('treeid_<%=varOpenMenu%>')
</script>
<%
strSubOpen = "SELECT * FROM GE03_Menu WHERE ID=" & varOpenMenu & " ORDER BY GE03_Ordine, GE03_Nome, ID"
Set objSubopen = Server.CreateObject("ADODB.Recordset")
objSubOpen.Open strSubOpen, strConn, adOpenKeyset, adLockOptimistic, adCmdText
varOpenMenu = objSubOpen("GE03_Relazione")
' Response.Write "treeid_" & varOpenMenu
objSubOpen.Close
Set objSubOpen = Nothing
loop
End If
%>
<%
Function NumOfSubs(GE03_RelazioneID)
strSubCounter = "SELECT * FROM GE03_Menu WHERE GE03_Relazione=" & GE03_RelazioneID & " ORDER BY GE03_Ordine, GE03_Nome, ID"
Set objSubCounter = Server.CreateObject("ADODB.Recordset")
objSubCounter.Open strSubCounter, strConn, adOpenKeyset, adLockOptimistic, adCmdText
NumOfSubs = objSubCounter.RecordCount
objSubCounter.Close
Set objSubCounter = Nothing
End Function
Function DisplaySubs(GE03_RelazioneID)
strDisplaySub = "SELECT * FROM GE03_Menu WHERE GE03_Relazione=" & GE03_RelazioneID & " ORDER BY GE03_Ordine, GE03_Nome, ID"
Set objDisplaySub = Server.CreateObject("ADODB.Recordset")
objDisplaySub.Open strDisplaySub, strConn, adOpenKeyset, adLockOptimistic, adCmdText
%>
<div id="t_treeid_<%= GE03_RelazioneID %>" style="display: none; margin-left: 18px;">
<%
Do While Not objDisplaySub.EOF
%>
<% If NumOfSubs(objDisplaySub("ID")) > 0 Then %>
<span title="<%=objDisplaySub("GE03_Descrizione")%>">
[img]images/trans.gif[/img]
<img id="i_treeid_<%=objDisplaySub("ID") %>" onClick="clickCategory('treeid_<%=objDisplaySub("I D") %>')" height=9 src="images/node_plus.gif" width=9 border=0>
"" Then%><%=objDisplaySub("GE03_Link") %>interna.asp?menu=<%=objDisplaySub("ID")%>&IDLing ua=<%=IDLingua%><%Else%>interna.asp?menu=<%=objDis playSub("ID")%>&IDLingua=<%=IDLingua%><%End If%>" class="TreeMenu" onClick="clickCategory('treeid_<%=objDisplaySub("I D") %>');"><%=objDisplaySub("GE03_Nome") %></span>
<% Else %>
<span title="<%=objDisplaySub("GE03_Descrizione")%>">
[img]images/trans.gif[/img]
[img]images/node_final.gif[/img]
"" Then%><%=objDisplaySub("GE03_Link") %>interna.asp?menu=<%=objDisplaySub("ID")%>&IDLing ua=<%=IDLingua%><%Else%>interna.asp?menu=<%=objDis playSub("ID")%>&IDLingua=<%=IDLingua%><%End If%>" class="TreeMenu"><%=objDisplaySub("GE03_Nome") %></span>
<% End If %>
<% If NumOfSubs(objDisplaySub("ID")) > 0 Then %>
<%= DisplaySubs(objDisplaySub("ID")) %>
<% End If %>
<%
objDisplaySub.MoveNext
Loop
%>
</div>
<%
objDisplaySub.Close
Set objDisplaySub = Nothing
End Function
%>
Rispondi quotando
