[ASP E XML] Strano problema in apertura file xml

serphilip

[ASP E XML] Strano problema in apertura file xml

Premetto che sono assolutamente inesperto in materia.
Sto cercando di recuperare un file xml che non risiede sul mio server, ma liberamente accessibile su un altro dominio.
Usando jscript riesco a farlo mediante questo codice:

<[EMAIL="%@language=JScript%"]%@language=JScript%[/EMAIL]>
<%
var objSrvHTTP;
objSrvHTTP = Server.CreateObject ("MSXML2.ServerXMLHTTP");
objSrvHTTP.open ("GET","fileremoto.xml", false);
objSrvHTTP.send ();
%>

Lo stesso codice in VBscript invece mi produce un errore:
<[EMAIL="%@LANGUAGE"]%@LANGUAGE[/EMAIL] = VBScript%>
<%
Dim objSrvHTTP
Set objSrvHTTP= Server.CreateObject("Microsoft.XMLHTTP")
objSrvHTTP.Open "GET", "fileremoto.xml", false
objSrvHTTP.send()
%>

L'errore, riferito alla riga "objSrvHTTP.send()" è questo:

msxml3.dll error '80070005' Accesso negato.

Ovviamente la mia necessità è di usare VBscript.
Grazie in anticipo.

paocavo

Ciao Serphilip! Benvenuto nel Forum GT
L'oggetto Microsoft.XMLHTTP è obsoleto!
prova con:


<%@LANGUAGE = VBScript%>
<%
Dim objSrvHTTP
Set objSrvHTTP= Server.CreateObject("MSXML2.ServerXMLHTTP")
objSrvHTTP.Open "GET", "fileremoto.xml", false
objSrvHTTP.send()
 
        ' codice di risposta del server
        status = CInt(objSrvHTTP.status)
        Dim Out
        ' Se lo stato è 200, è ok
        If status = 200 Then
            response.write objSrvHTTP.responseText        
        Else
            response.write "errore di Connessione:<br >Codice di errore HTTP=" & status            
        End If
 
%>