problema con XMLHTTP

[mr_chiocco]

ho un grosso problema...

questo codice mi funziona solo in locale, pubblicato sul server del sito non funziona...

strURL = "email.asp"
Set objXML = Server.CreateObject("Microsoft.XMLHTTP") 
objXML.Open "get", strURL, False
objXML.Send 
html = objXML.responseText 
Set objXML = Nothing

mi da:
error '80004005'

alla riga:
objXML.Open "get", strURL, False

da cosa potrebbe dipendere???

[viki1967]

L'oggetto XMLHTTP è supportato dal server?

http://support.microsoft.com/default...;EN-US;q305053

[viki1967]

Originariamente inviato da viki1967
L'oggetto XMLHTTP è supportato dal server?

http://support.microsoft.com/default...;EN-US;q305053

Cmq, invece di utilizzare il componente "XMLHTTP" usa "SERVERXMLHTTP.4.0" o il
"SERVERXMLHTTP.3.0"

[mr_chiocco]

grazie mille, ma per usare uno degli altri 2 componenti devo modificare il codice? e come?

[mr_chiocco]

il codice attuale è questo:

response.expires = -1500 
response.AddHeader "PRAGMA", "NO-CACHE" 
response.CacheControl = "PRIVATE"

strURL = "email.asp"
Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
objXML.Open "get", strURL, False
objXML.Send 
html = objXML.responseText 
Set objXML = Nothing

[Alethesnake]

microsoft.xmlhttp è piuttosto obsoleto, per utilizzare versioni più recenti ti è sufficiente cambiare il createObject sostituendolo con versioni più recenti. ovviamente devi verificare se e quale versione è installata sul server.
in alternativa puoi utilizzare la funzione postata qui
, anche se un po' vecchia (al momento siamo, mi pare, alla versione 6).

se ti da ancora errore prova a specificare l'url completo della pagina, a partire da http. non mi risulta si possa mettere solo il nome della pagina come hai fatto tu (con questo non voglio dire che sia necessariamente sbagliato, ma non l'ho mai visto fare)

[mr_chiocco]

mitico!

funziona!

bastava inserire l'indirizzo completo, non ci avevo proprio pensato....

grazie.

strURL = "http://www.nomesito.it/email.asp"
Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
objXML.Open "get", strURL, False
objXML.Send 
html = objXML.responseText 
Set objXML = Nothing