LineBreak driller mig.
Hej Eksperter...Jeg sidder og fumler lidt med noget kode som bare ikke lige vil som jeg.
Problemet ligger i at jeg skal hente en text fil via xmlhttp objektet. Indholdet skal jeg så gemme i en fil.
<%
dim objXMLHTTP
set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "http://www1.finn.no/jsp/xmlexport.jsp?partnerid=kobb&dtd=FINNIF-estateforsale32.dtd", false
objXMLHTTP.SetRequestHeader "Content-type", "text/html"
objXMLHTTP.Send
Tekst = Split(objXMLHTTP.ResponseText,vbCrLf)
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(Server.Mappath("myfirstfile.txt"))=true then
fs.DeleteFile(Server.Mappath("myfirstfile.txt"))
end if
Dim filename, fs, f
filename = "C:\smartinfo\webroot\finnxml\myfirstfile.txt"
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.CreateTextFile(filename,true)
For I = 0 to ubound(Tekst)
f.WriteLine(Tekst(i))
Next
f.close
Set f=nothing
Set fs=nothing
%>
Mit problem er bare at den textfil der kommer ud af det ikke er med linjeskift...
Hvad gør en klog?
