11 gennaio 2007 alle 11:58:10

<element>
<text type="translation">LANG_MENU_INTRODUZIONE</text>
<link type="instruction">introduzione.asp</link>
<target>_self</target>
<role></role>
<flag type="instruction">sXMLVersion="IT"</flag>
</element>
<element>
<text type="translation">LANG_MENU_INTRODUZIONE</text>
<link type="instruction">introdution.asp</link>
<target>_self</target>
<role></role>
<flag type="instruction">sXMLVersion="EN"</flag>
</element>

---------------
Si Vis Pacem Para Bellum

11 gennaio 2007 alle 13:27:43
Modificato il 11 gennaio 2007 alle 18:16:27

<%
Sub DisplayToolBar()
Dim totaletesto, totaletarget, totalelink, ind, iMenu
Dim oXML, NodeList, Node, SubNodeList, SubNode
Dim tempNode, tempText
Dim RigaMenu, RigaInit, RigaElements
'AGGIUNGERE LE DUE DICHIARAZIONI DI VARIABILE SEGNATE IN NERETTO mFlag e bOKLang
Dim TotaleMenu, TotaleInit, mRole, bOk, bOKLang, mLink, mTarget, mTarget1, mText,mFlag

TotaleMenu = ""
TotaleInit = ""

Set oXML = GetNewXMLDocument("toolbar")
Set NodeList = oXML.selectNodes("menu")
ind = 0
iMenu = 0
For Each Node In NodeList

RigaMenu = ""
RigaInit = ""
RigaElements = ""

Set SubNodeList = Node.selectNodes("element")
For Each SubNode In SubNodeList
mRole = GetXMLValue("role", SubNode)
mLink = GetXMLValue("link", SubNode)
mTarget = GetXMLValue("target", SubNode)
mText = GetXMLValue("text", SubNode)

' AGGIUNGERE LE SEGUENTI RIGHE

mFlag = GetXMLValue("flag", SubNode)
if mFlag="" then
bOKLang= true
else
bOKLang= mFlag
End if

if mTarget = "_blank" or mTarget = "_self" then
mTarget1 = mTarget
mTarget = "target=""" & mTarget & """"
else
if mLink = "" then
mLink = "Java_Script:void(0);"
else
mTarget = "target=""_self"""
mTarget1 = "_self"
end if
end if

if mrole = "" then
mrole = -1
end if

bOk = false
Select Case mRole
Case -1
bOk = true
Case -2
If isAuthorized(ROLE_NEWS) Then
bOk = true
End If
Case ROLE_USER
If sPseudo <> "" Then
bOk = true
End If
Case 0
If sPseudo = "" Then
bOk = true
End If
Case Else
If isAuthorizedBin(mRole) Then
bOk = true
End If
End Select
' AGGIUNGERE L'AND SULLA VARIABILE BOOLEANA bOkLang

If bOk and bOKLang Then
if RigaMenu = "" then
RigaMenu = " <td nowrap=""nowrap""><a class=""mainlevel-trans"" id=""menu_" & ind & """ title=""" & mText & """ href=""" & mLink & """ " & mTarget & ">" & mText & "</a></td>" & vbCrLf
RigaInit = " document.getElementById(""menu_" & ind & """).onmouseover = function() { ms.hideCurrent();}" & vbCrLf
else
RigaInit = " var tmenu_" & ind & " = ms.addMenu(document.getElementById(""menu_" & ind & """));" & vbCrLf
RigaElements = RigaElements & " tmenu_" & ind & ".addItem(""" & mText & """, """ & mLink & """, """ & mTarget1 & """, 0);" & vbCrLf
end if
End if
Next
TotaleInit = TotaleInit & RigaInit & RigaElements
TotaleMenu = TotaleMenu & RigaMenu

Set SubNodeList = Nothing
ind = ind + 1
Next
Set NodeList = Nothing
Set tempNode = Nothing
Set oXML = Nothing

if ind > 0 then
response.write " <_div id=""wrapMenu"">" & vbCrLf
response.write " <_div id=""topMenu"">" & vbCrLf
response.write " <table id=""topmenu"" cellSpacing=""0"" cellPadding=""0"">" & vbCrLf
response.write " <tr valign=""top"">" & vbCrLf
response.write TotaleMenu & vbCrLf
response.write " <td width=""100%""></td>" & vbCrLf
response.write " </tr>" & vbCrLf
response.write " </table>" & vbCrLf
response.write " </_div>" & vbCrLf
response.write " </_div>" & vbCrLf

response.write " <_Script type=""text/Java_Script"" language=""Java_Script"">" & vbCrLf
response.write " if (TransMenu.isSupported()) {" & vbCrLf
response.write " TransMenu.backgroundColor = ""#000000"";" & vbCrLf
response.write " var ms = new TransMenuSet(TransMenu.direction.down, 1, 0, TransMenu.reference.bottomLeft);" & vbCrLf
response.write TotaleInit & vbCrLf
response.write " TransMenu.renderAll();" & vbCrLf

response.write " var init1 = function(){TransMenu.initialize();}" & vbCrLf
response.write " if (window.attachEvent) {" & vbCrLf
response.write " window.attachEvent(""onload"", init1);" & vbCrLf
response.write " }else{" & vbCrLf
response.write " TransMenu.initialize();" & vbCrLf
response.write " }" & vbCrLf

response.write " }" & vbCrLf
response.write " </_Script>" & vbCrLf
end if
End Sub
%>

---------------
Silvio Andrighetti Formaggini (Piosky)

http://www.roadrunners.to.it
Sito Prove
http://www.piosky.somee.com
msn : chat_silvio@hotmail.com