Foros del Web » Programando para Internet » ASP Clásico »

Error leyendo xml

Estas en el tema de Error leyendo xml en el foro de ASP Clásico en Foros del Web. tengo una funcion que lee un xml con Microsoft.xmlhttp que se encuentra instalado tanto en mi servidor local como en el remoto donde alojo mis ...
  #1 (permalink)  
Antiguo 09/09/2013, 17:26
 
Fecha de Ingreso: noviembre-2011
Mensajes: 4
Antigüedad: 12 años, 6 meses
Puntos: 0
Error leyendo xml

tengo una funcion que lee un xml con Microsoft.xmlhttp que se encuentra instalado tanto en mi servidor local como en el remoto donde alojo mis sitios.
El problema es que en mi servidor local se muestra el contenido perfecto pero en el remoto todos los campos los muestra vacíos, que puede ser?

Asi queda en el Local


Asi se ve en el remoto


Gracias.

a continuación les muestro el código:

Cita:
for i = 1 to vfinal

Dim url,vTitu,vEncabezado,vItem1,vItem2,vItem3,vItem4, vItem5,vItem6,vCierre

url= "http://localhost/intranet/totalcasa.com.ar/wwwroot/images/list"&i&".xml"

Dim objHTTP, strBuff, objXML, WScript
Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", url, False
objHTTP.Send

If objHTTP.Status = 200 Then strBuff = BinaryToString(objHTTP.ResponseBody)

Set objHTTP = Nothing

If Len(strBuff) > 0 Then
Set objXML = CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.LoadXML(strBuff)
vTitu = trim(objXML.selectSingleNode("//titu").text)
vEncabezado = trim( objXML.selectSingleNode("//encabezado").text)
vItem1 = trim( objXML.selectSingleNode("//item1").text)
vItem2 = trim( objXML.selectSingleNode("//item2").text)
vItem3 = trim( objXML.selectSingleNode("//item3").text)
vItem4 = trim( objXML.selectSingleNode("//item4").text)
vItem5 = trim( objXML.selectSingleNode("//item5").text)
vItem6 = trim( objXML.selectSingleNode("//item6").text)
vCierre = trim( objXML.selectSingleNode("//cierre").text)
Set objXML = Nothing
End If

%>
<div class="portfolio">
<div class="tagline_left">
<h2><%= vTitu %></h2>
<p><%= vEncabezado %></p>
<ul id="list1">
<% if trim(vItem1)<>"" then %><li><%= vItem1 %></li><% end if %>
<% if trim(vItem2)<>"" then %><li><%= vItem2 %></li><% end if %>
<% if trim(vItem3)<>"" then %><li><%= vItem3 %></li><% end if %>
<% if trim(vItem4)<>"" then %><li><%= vItem4 %></li><% end if %>
<% if trim(vItem5)<>"" then %><li><%= vItem5 %></li><% end if %>
<% if trim(vItem6)<>"" then %><li><%= vItem6 %></li><% end if %>
</ul>
<p><%= vCierre %></p>
</div>

<div class="tagline_right"><img src="images/list<%=i%>.jpg"/></div>

<div class="clear"></div>
</div>
<%
next
%>

Última edición por fabyjk; 09/09/2013 a las 17:32 Razón: Agregar imagenes de referencia

Etiquetas: asp
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 15:25.