28 ottobre 2006 alle 18:11:09
Modificato il 28 ottobre 2006 alle 18:19:10

else
Dim NodeList, Node, SubNodeList, SubNode
Dim tempNode, tempText
Dim rigatesto, rigatarget, rigalink, rigarole, rigabullet, rigaflag

CreateTopTable "MainMenu", SQLEncrypt(sPseudo)


Set NodeList = GetNewXMLDocument("login")
Set SubNodeList = NodeList.selectNodes("element")
For Each SubNode In SubNodeList
rigatesto = GetXMLValue("text", SubNode)
rigatarget = GetXMLValue("target", SubNode)
rigalink = GetXMLValue("link", SubNode)
rigaflag = GetXMLValue("flag", SubNode)
rigabullet = GetXMLValue("bullet", SubNode)
rigarole = GetXMLValue("role", SubNode)

if trim(rigabullet) = "" then
rigabullet = GLOBAL_SITE_THEMES_PATH & sTheme & "/bullet.gif"
end if
if trim(rigatarget) = "" then
rigatarget = "_self"
end if
if trim(rigaflag) = "" then
rigaflag = 1
end if
if trim(rigarole) = "" then
rigarole = -1
end if

rigabullet = "<img src=""" & rigabullet & """ border=""0"" alt="""" width=""15"" height=""15"">&nbsp;"

DisplayMenuEntry rigarole, rigabullet, rigalink, rigatarget, rigaflag, rigatesto
Next
Set NodeList = Nothing
CreateBottomTable ""
qui finisce la parte aggiunta e poi, come detto, ci sono:
End If
End Sub