Destruccion de instancia
Publicado por Hernan Contreras (1 intervención) el 04/11/2005 23:11:26
Buenos.. Necesito ayuda en estos dos casos ya que quiero destruir las instancias y no se cual es la mejor manera de hacerlo...... Espero pronto su respuesta ya que me urge esta solucion.. Muchisimas Gracias...
Dim stringXMLCarga
Dim stringXMLModFunciones
Dim ModuloConfi
ModuloConfi = Session("ListaModulos")
Function CargaXML(nombreArchivo)
Dim xmlDoc
Set xmlDoc = Server.CreateObject("MSXML.DOMDocument")
xmlDoc.Load (nombreArchivo)
CargaXML = xmlDoc.xml
End Function
Sub CargaFuncionesModulos(AppId,stringXML)
Dim xmlDoc
Dim xPath
Dim Modulos
Dim Funciones
Dim Procesados
Dim xmlNodo
Dim xmlNodosBusqueda
Set xmlDoc = Server.CreateObject("MSXML.DOMDocument")
xmlDoc.loadXML (stringXML)
xPath = "//R5001[R5002='" & AppId & "']"
Set xmlNodosBusqueda = xmlDoc.selectNodes(xPath)
For Each xmlNodo In xmlNodosBusqueda
Modulos = Modulos & xmlNodo.selectSingleNode("R5112").Text & "@@"
Funciones = Funciones & xmlNodo.selectSingleNode("R5123").Text & "@@"
Next
Call ProcesarModulos(AppId, Modulos, ModuloConfi, stringXML)
End Sub
Dim stringXMLCarga
Dim stringXMLModFunciones
Dim ModuloConfi
ModuloConfi = Session("ListaModulos")
Function CargaXML(nombreArchivo)
Dim xmlDoc
Set xmlDoc = Server.CreateObject("MSXML.DOMDocument")
xmlDoc.Load (nombreArchivo)
CargaXML = xmlDoc.xml
End Function
Sub CargaFuncionesModulos(AppId,stringXML)
Dim xmlDoc
Dim xPath
Dim Modulos
Dim Funciones
Dim Procesados
Dim xmlNodo
Dim xmlNodosBusqueda
Set xmlDoc = Server.CreateObject("MSXML.DOMDocument")
xmlDoc.loadXML (stringXML)
xPath = "//R5001[R5002='" & AppId & "']"
Set xmlNodosBusqueda = xmlDoc.selectNodes(xPath)
For Each xmlNodo In xmlNodosBusqueda
Modulos = Modulos & xmlNodo.selectSingleNode("R5112").Text & "@@"
Funciones = Funciones & xmlNodo.selectSingleNode("R5123").Text & "@@"
Next
Call ProcesarModulos(AppId, Modulos, ModuloConfi, stringXML)
End Sub
Valora esta pregunta


0