Ver Mensaje Individual
  #4 (permalink)  
Antiguo 21/07/2005, 15:11
Avatar de The_Pretorian
The_Pretorian
 
Fecha de Ingreso: diciembre-2004
Ubicación: Lima - Peru
Mensajes: 267
Antigüedad: 20 años, 4 meses
Puntos: 0
Crear el XML en la PC Cliente desde ASP

Buenas tardes y gracias por responder:La idea es crear un XML desde el ASP en la PC Cliente, de preferencia en 'C:\', dicho XML sera despues leido por otros ASP y algunas presentaciones en Flash, en fin. Lo trabaje en PC en modo local y no me dio ningun problema, pero cuando lo puse en el Hosting... ahi si que me dio un error. Para la creacion del XML use la siguiente funcion:

Function regi_file_XML(strCodigo, strNombre)
Dim objRoot, objField, objPI, x
Set objDomXML = Server.CreateObject("Microsoft.XMLDOM")
objDomXML.preserveWhiteSpace = True
blnFileXMLExists = objDomXML.Load(strFileName)
If blnFileXMLExists = True Then
Set objRoot = objDomXML.documentElement
Else
Set objRoot = objDomXML.createElement("main")
objDomXML.appendChild objRoot
End If
Set objField = objDomXML.createElement("cod")
objField.Text = strCodigo
objRoot.appendChild objField ' Parametro Codigo
Set objField = objDomXML.createElement("nom")
objField.Text = strNombre ' Parametro Nombre
objRoot.appendChild objField
If blnFileXMLExists = False then
Set objPI = objDomXML.createProcessingInstruction("xml", "version='1.0'")
objDomXML.insertBefore objPI, objDomXML.childNodes(0)
End If
objDomXML.save strFileNameSet objDomXML = Nothing
Set objRoot = Nothing
Set objField = Nothing
Set objPI = Nothing
End Function

Me gustaria saber q necesito modificar para q el XML se grabe en la PC Cliente.

Atte
Jorge Diaz

Cita:
Iniciado por Myakire
Bueno, independientemente de si es correcto lo que deseas hacer. Aca te dicen como escribir en el cliente

Saludos
__________________
Creo que todas las cosas suceden por algo, no es eso que los demas llaman 'Destino'. Definitivamente Dios no juega a los dados...