Hejadodb.stream
jag har en sida (aspx) som kopiera en fil från en webserver till en klient(ett klient script)
Detta sker genom att en användare har klickat på en knapp
Detta fungerar ypperligt en gång
Går jag sen in på servern och ändrar i tex en text fil och klickar på knappen igen så får jag inget felmeddelande men klient filen har INTE skrivits över.
Har detta nått med nån cache att göra?
Se kod snutt nedanför
Tacksam för svar & ideer
//Henrik
function GetHttpFile(argFile, argCopyFromServerUrl, argCopyToClientFolder, argContentTypeExpected )
set oHTTP = CreateObject("msxml2.XMLHTTP")
MsgBox ("Kopiera från: " & argCopyFromServerUrl & argFile)
MsgBox ("Kopiera till: " & argCopyToClientFolder)
MsgBox (argContentTypeExpected)
oHTTP.open "GET", argCopyFromServerUrl & argFile, False
oHTTP.send
if oHTTP.status <> 200 then
msgbox "unexpected status = " _
& oHTTP.status & vbcrlf _
& oHTTP.statusText
exit function
end if
sContentTypeReturned = oHTTP.getResponseHeader("content-type")
if sContentTypeReturned <> argContentTypeExpected then
msgbox "unexpected content-type = " _
& sContentTypeReturned & vbcrlf _
& "expected = " & argContentTypeExpected
exit function
end if
set oStream = createobject("adodb.stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
oStream.type = adTypeBinary
oStream.open
oStream.write oHTTP.responseBody
oStream.savetofile argCopyToClientFolder &"/"& argFile, adSaveCreateOverWrite
set oStream = nothing
set oHTTP = nothing
' GetHttpFile = true
end function