Hejsan!!
Har ett skript enligt följnde:

<code>
function getHTML(url)
set httpReq = CreateObject("MSXML2.XMLHTTP.4.0")
httpReq.open "GET",url,true
httpReq.setRequestHeader "Cache-control","no-cache"
httpReq.setRequestHeader "pragma","no-cache"
httpReq.send
getHTML=httpReq.responseText
end function
</code>

filen som hämtas är en enrads textfil från en DreamBox. Problemet är att filen cacheas efter första hämtningen och inte uppdateras före man tömmer IE tempfilerna eller surfar till adressen och uppdaterar på det viset. Nån som vet hur man löser detta?

mvh Burre

Puh... Efter mycket sökande tror jag identifierat varför det fungerar så:

XMLHTTP anropar WinINet API. Om man ser på vilka val du har när du öppnar InternetOpenUrl() så anger man där med hjälp av en flagga hur den skall kontrollera cachen eller undvika att göra det.

Lättaste sättet at gå förbi det är att använda ServerXMLHTTP istälet för XMLHTTP:
<code>
Function getHTML(Url)
Dim objHTTP
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.open "GET", Url, False
objHTTP.setRequestHeader "Pragma", "no-cache"
objHTTP.setRequestHeader "Cache-Control", "no-cache"
objHTTP.send ""
getHTML = objHTTP.responseText
Debug.Print objHTTP.getAllResponseHeaders()
End Function
</code>

Puh... Efter mycket sökande tror jag identifierat varför det fungerar så:

XMLHTTP anropar WinINet API. Om man ser på vilka val du har när du öppnar InternetOpenUrl() så anger man där med hjälp av en flagga hur den skall kontrollera cachen eller undvika att göra det.

Lättaste sättet at gå förbi det är att använda ServerXMLHTTP istälet för XMLHTTP:
<code>
Function getHTML(Url)
Dim objHTTP
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.open "GET", Url, False
objHTTP.setRequestHeader "Pragma", "no-cache"
objHTTP.setRequestHeader "Cache-Control", "no-cache"
objHTTP.send ""
getHTML = objHTTP.responseText
Debug.Print objHTTP.getAllResponseHeaders()
End Function
</code>