[XML/ASP] Scripting.FileSystemObject probleem

[kingpaddo]

Ik heb een probleempje waar ik niet zo goed uitkom.
Ik haal van 2 verschillende sites gegevens op. Alleen de 1 keer gebruik een POST en de andere keer een GET (POST niet toegestaan).

Onderstaande functies worden uitgevoerd wanneer de bestaande files ouder zijn dan 15 minuten en opgeslagen in het bestand. Het principe werkt verder goed alleen worden er geen gegevens weggeschreven naar de file 'file2.xml' bij functie Get_file2() terwijl in de 1 situatie GetFile1() het wel goed gaat ?!

Ik hoop dat iemand me verder op weg kan helpen wat ik hier fout doe ?


<%
Sub Get_File1()
Response.Buffer = True
Dim objXMLHTTP, xml, fso, f1, text
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

' Notice the two changes in the next two lines:
xml.Open "POST", "http://adres1.nl/..../file.htm", False
xml.Send ""

text = xml.ResponseText

Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("D:\......\cgi-bin\file.xml", True)
' Write a line.
text = Replace(text, "& ", "& ")
f1.Write "<?xml version='1.0' encoding='ISO-8859-1'?>"
f1.Write (text)
' Close the file to writing.
f1.Close
Set xml = Nothing
End Sub

Sub GetFile_File2()
Response.buffer = True
Dim objXMLHTTP, xml2, fso2, f2, text2
Set xml2 = Server.CreateObject("Microsoft.XMLHTTP")

' Notice the two changes in the next two lines:
xml2.Open "GET", "http://adres2.nl/..../file.xml", False
xml2.Send

text2= xml2.ResponseText

Set fso2= CreateObject("Scripting.FileSystemObject")
Set f2 = fso2.CreateTextFile("D:\.....\cgi-bin\file2.xml", True)
' Write a line.
f2.Write (text2)
' Close the file to writing.
f2.Close
Set xml2 = Nothing
End Sub
%>

[kingpaddo]

Kleine aanvulling:

In het 2-de geval (Get_file2()) lijkt het erop dat die ergens blijft steken bij het wegschrijven van gegevens in de file. Deze file is in dit geval een correcte XML file van FOK in tegenssteliing van de 1-ste functie waar ik handmatig nog wat gegevens toevoeg in de 1-ste regel:

<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE remotetracker [
<!ELEMENT remotetracker (nieuws+)>
<!ELEMENT nieuws (id,titel,time,timestamp,reacties)>
<!ELEMENT id (#PCDATA)>
<!ELEMENT titel (#PCDATA)>
<!ELEMENT time (#PCDATA)>
<!ELEMENT timestamp (#PCDATA)>
<!ELEMENT reacties (#PCDATA)>
]>
<remotetracker>
<nieuws>
<id>24817</id>
<titel>Arie Haan bondscoach China</titel>
<time>22-12-2002 17:35</time>
<timestamp>1040574931</timestamp>
<reacties>18</reacties>
</nieuws>
</remotetracker>

Deze file moet dus worden opgeslagen op de server

[zoepercavia]

hoi

is bekend, maar wel zeer irritant probleem. Je moet even deze regel toevoegen:

code:

xml2.setProperty "ServerHTTPRequest", true

dan werkt het (ik heb er ook een dag overgedaan om daar achter te komen).

Zie ook http://support.microsoft....px?scid=KB;EN-US;Q281142&