IsThere1_Remote

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

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

Parameters

URLFile

Views 40 Downloads 17

Perm link