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,910
Downloads 1,396
CodeID
DB ID
ANmarAmdeen
602
Revisions
v1.0
Friday
August
10
2018