non è vero
il programma nn ti da nessun errore xkè (cerca nel tuo codice)
Catch ex As Exception ' <-- se c'è un eccezione:
'qui nn c'è niente
' equivale
'se c'è un errore kissenefrega non fare niente
End Try '<-- fine .. nn ha fatto niente..
ora hai capito
modifica il tuo codice cosi
codice:
Sub creaNodiXML()
Dim objXMLdoc As New XmlDocument
'Try
objXMLdoc.Load(Server.MapPath(".") & "\xml\utenti.xml")
Dim eleUtente As XmlElement = objXMLdoc.CreateElement("Session_" & Session.SessionID)
Dim attrUtente As XmlAttribute = objXMLdoc.CreateAttribute("user")
eleUtente.SetAttributeNode(attrUtente)
eleUtente.SetAttribute("user", Session("nome_amm") & " " & Session("cognome_amm"))
Dim root As XmlElement = objXMLdoc.Item("UtentiConnessi")
root.AppendChild(eleUtente)
Dim permUtente As XmlAttribute = objXMLdoc.CreateAttribute("permesso")
eleUtente.SetAttributeNode(permUtente)
eleUtente.SetAttribute("permesso", "amministratore")
root = objXMLdoc.Item("UtentiConnessi")
root.AppendChild(eleUtente)
Dim dataIngresso As XmlAttribute = objXMLdoc.CreateAttribute("data")
eleUtente.SetAttributeNode(dataIngresso)
eleUtente.SetAttribute("data", Date.Now)
root = objXMLdoc.Item("UtentiConnessi")
root.AppendChild(eleUtente)
objXMLdoc.Save(Server.MapPath(".") & "\xml\utenti.xml")
'Catch ex As Exception
'End Try
End Sub