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

URLFile

Views 507 Downloads 217

'Server', 'remote', 'url', 'http', 'IsThere1', 'IsThere', 'find', 'search', 'directory'

ANmarAmdeen
326
File System Classic ASP
Revisions

v1.0