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
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,909
Downloads 1,395
CodeID
DB ID
ANmarAmdeen
601
Revisions
v1.0
Friday
August
10
2018