Tema: xml en ASP
Ver Mensaje Individual
  #19 (permalink)  
Antiguo 27/08/2002, 13:53
Avatar de bakanzipp
bakanzipp
 
Fecha de Ingreso: noviembre-2001
Ubicación: santiago de shilli
Mensajes: 2.554
Antigüedad: 23 años, 5 meses
Puntos: 0
Re: xml en ASP

Bueno para los que leyeron este post y les interese...despues de 2 dias de trabajo logre realizar mi proposito...asi ke como dice vgaray "Tan libre como gratuito".

1.-La idea era enviar un xml desde un sitio virtual hacia otro. Tengo un xml en

<a href='ir.asp?http://www.mi_sitio.com/session/banda.xml ' target='_blank'>www.mi_sitio.com/session/banda.xml ...</a>

y deseo enviarlo y guardarlo en

<a href='ir.asp?http://www.otro_sitio.com/session/nuevo_xml.xml' target='_blank'>www.otro_sitio.com/session/nuevo_xml.xml...</a>

2.-Para esto se necesita una pagina de envio.asp que estara alojada en www.mi_sitio.com y una pagina de receepcion.asp ubicada en www.otro_sitio.com

Envio.asp
Código:
  
&lt;%
DIM mi_xml,strPostXML
	
set mi_xml = Server.CreateObject(&quot;Msxml2.DOMDocument&quot;) 
mi_xml.async = false
on error resume next
  'carga del xml
  mi_xml.load(Server.MapPath(&quot;/sessiones/banda.xml&quot;))
  strPostXML = mi_xml.xml
  if err.number&lt;&gt;0 then  		
    Response.Write err.Description 
    Response.End 
  end if
		
set mi_xml = nothing
%&gt;			
&lt;html&gt;
&lt;head&gt;
&lt;/head&gt;
&lt;form name=formulario method=post action=&quot;www.otro_sitio/recepcion.asp&quot;&gt;
&lt;input type=hidden name=xml value=&quot;&lt;%=strPostXML%&gt;&quot;&gt;
&lt;script language=&quot;javascript&quot;&gt;
	document.formulario.submit();
&lt;/script&gt;

&lt;/form&gt;
&lt;/html&gt;
recepcion.asp

Código:
  
&lt;%
function fct_Session_Guardar(ObjXml)
 on error resume next
  ObjXml.save(server.MapPath(&quot;sessiones/nuevo_xml.xml&quot;))
  if err.number &lt;&gt; 0 then
   fct_Session_Guardar = false
  else
   fct_Session_Guardar = true
  end if
end function

set objXML=server.CreateObject(&quot;MSXML2.DOMDocument&quot;)
'carga del xml
objXML.loadXML request(&quot;xml&quot;)

fct_Session_Guardar objXML
Response.Write &quot;Guardado&quot;
PD:gracias a la colaboracion de henryzs

<center><font face=verdana size=1 color=blue>¸„.-·~¹°”ˆ˜¨Bakanzipp¨˜ˆ”°¹~·-.„¸[/CODE]</center>