Mangler 2 XMLHTTP link

Fandt selv den til billedet

cFIL = "tn00"&TB&".jpg"
cOUT = "C:\Inetpub\rss_code\thumb\"
cURL = Replace(rss.Links(i),"1/?temp=1196604","")

Dim objXML

Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET", cURL & cFIL, False
objXML.Send
Dim binXML
binXML = objXML.ResponseBody
Set objXML = Nothing

Dim objADO
Set objADO = Server.CreateObject("ADODB.Stream")
objADO.Type = 1
objADO.Open
objADO.Write binXML
objADO.SaveToFile cOUT & cFIL,2
Set objADO = Nothing

'SAVE FILE
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\Inetpub\killmyday.com\rss_code\kate.htm", True)

'Substitute xml.ResponseText with "strBuffer" to save the formatted
'page to file instead of the RAW data from the server.

MyFile.writeLine(ResponsePage)
MyFile.Close
'SAVE FILE