MSXML4.ServerXMLHTTP

[Gemini]

Ciao a tutti
ho trovato questo codice per controllare se un file esiste su un altro server:


<%

'l'url da scaricare
StrURL = "http://www.aspitalia.org/chat/"

Set objXMLHTTP = Server.CreateObject("MSXML4.ServerXMLHTTP")
objXMLHTTP.Open "GET", StrURL, false

' richiama il file + status code HTTP
objXMLHTTP.Send
statuscode = objXMLHTTP.ResponseStatus
Set objxml = Nothing

if CInt(statuscode) = 200 then
Response.write ("Il file esiste!")
else
Response.write ("Il file non esiste: errore HTTP " & statucode )
end if

%>


ma non accade niente perchè esce dalla procedura quando arriva a Set objXMLHTTP = Server.CreateObject("MSXML4.ServerXMLHTTP").
cosa devo installare sulla mia macchina e dove cercare?
Ho provato su msdn, ma non ci ho capito nulla.
Grazie

[Mems]

Che errore ti da?
CreateObject failed? Stringa dell'interfaccia non valida?

[Gemini]

Ciao, non ricevo nessun errore.
Il codice l'ho inserito in un procedura e quando crea l'oggetto blocca la procedura e continua con il codice che si trova dopo la procedura

[Mems]

Vediamo il tuo codice.

[Gemini]

<%

'l'url da scaricare
StrURL = "http://www.aspitalia.org/chat/"

Set objXMLHTTP = Server.CreateObject("MSXML4.ServerXMLHTTP")
objXMLHTTP.Open "GET", StrURL, false

' richiama il file + status code HTTP
objXMLHTTP.Send
statuscode = objXMLHTTP.ResponseStatus
Set objxml = Nothing

if CInt(statuscode) = 200 then
Response.write ("Il file esiste!")
else
Response.write ("Il file non esiste: errore HTTP " & statucode )
end if

%>

[Mems]

Te hai parlato di una procedura... io qui vedo del codice strutturato.

[optime]

Originariamente inviato da Mems
Te hai parlato di una procedura... io qui vedo del codice strutturato.

deliziaci dissertando sulle differenze tra procedura e codice strutturato nel contesto delle pagine asp.

[Mems]

Originariamente inviato da optime
deliziaci dissertando sulle differenze tra procedura e codice strutturato nel contesto delle pagine asp.

Deliziaci tu che sei più bravo.
Io faccio il cuoco di professione...

[Gemini]

Non vedo quale sia la differenza. Sempre non funziona:

function GetImagePath(byref objrs, type_item)
StrURL = percorsoImmaginiSmallAss & "img-"&replace(type_item,"_","-")&"-" & objrs("id_"&type_item) & "-1." & objrs("estensione_immagine1")

Set objXMLHTTP = Server.CreateObject("MSXML4.ServerXMLHTTP")
objXMLHTTP.Open "GET", StrURL, false

' richiama il file + status code HTTP
objXMLHTTP.Send
statuscode = objXMLHTTP.ResponseStatus
Set objxml = Nothing

strImg = percorsoImmaginiSmallAss & "img-non-disponibile.jpg"
if CInt(statuscode) = 200 then
strImg = percorsoImmaginiSmallAss & "img-"&replace(type_item,"_","-")&"-" & objrs("id_"&type_item) & "-1." & objrs("estensione_immagine1")
end if
GetImagePath = strImg
end function

[optime]

Originariamente inviato da Mems
Deliziaci tu che sei più bravo.
Io faccio il cuoco di professione...

ottima ritirata chissà com'è che viene sempre fuori che fai il cuoco