i'm trying to use the xml thing. This is the function i'm using
Function fetch(url, dest)
xml.open "GET", url, false
xml.send
Dim content
content = xml.responsetext
If xml.status = 200 then
fetch = false
Exit Function
End If
str.type = 1
str.open
str.write content
str.savetofile dest, 2
End Function
when i pass http://www.funnymail.com/webdata/cs/20030428.gif and "c:\comics\241.gif" into the function it gives me the error...
Microsoft JET Database Engine error '800401e4'
No current record.
/scripts2save/comicadder.asp, line 76
line 76 is 'xml.send'. Any ideas?
Topic Options
Post Options
Thanks(0)
