Ciao a tutti![]()
Vorrei sapere come mai al riavvio del computer global.asa non inizializza le application? Devo per forza aprire global.asa e effettuare qualche modifica, ad esempio mettere un punto salvare il file e poi cancellare quel punto e salvare di nuovo, solo facendo cosi mi parte Application.
Posto il codice del global.asa:
Grazie a tuttiCodice PHP:Sub Application_OnStart
call getRegioniProvince
End Sub
Function getRegioniProvince
Dim objXML, arrProvince(), arrRegioni(), arrServizi()
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.load Server.MapPath("../xml/variables.xml")
Dim AllItemsProv, AllItemsReg, AllItemsServ
'---------- CARICA PROVINCE
Set AllItemsProv = objXML.selectNodes("//provincia")
For i = 0 to (AllItemsProv.Length - 1)
redim preserve arrProvince(1,i)
arrProvince(0,i)=AllItemsProv(i).text
arrProvince(1,i)=AllItemsProv(i).GetAttribute("idProv")
Next
Application.Lock
Application("province")=arrProvince
Application.UnLock
'--------- CARICA REGIONI
Set AllItemsReg = objXML.selectNodes("//regione")
For i = 0 to (AllItemsReg.Length - 1)
redim preserve arrRegioni(1,i)
arrRegioni(0,i)=AllItemsReg(i).text
arrRegioni(1,i)=AllItemsReg(i).GetAttribute("idReg")
Next
Application.Lock
Application("regioni")=arrRegioni
Application.UnLock
Set AllItemsProv = Nothing
Set AllItemsReg = Nothing
Set objXML = Nothing
End Function
Sub Application_OnEnd
End Sub

Rispondi quotando
