IsThere1_Remote

Checks if a file is found from a URL, finds a file in a remote server

CodeFunctionName
What is this?

Public

Tested

Original Work
Function IsThere1_Remote(URLFile)
Rett = False
dim xmlhttp
set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "HEAD", URLFile, false
xmlhttp.send
If xmlhttp.status = 200 then Rett = True
IsThere1_Remote = Rett
End Function

URLFile

Views 3,910

Downloads 1,396

CodeID
DB ID