<%
on error resume next
%>
<script language="javascript">
<!--
function checkURL(url)
{
try
{
var http = new XMLHttpRequest();
http.open('HEAD', url, false);
http.send();
alert(http.status);
if (((http.status >= 100) && (http.status < 400)) || (http.status == 12029))
{
alert("BlueBird access available");
return true;
}
}
catch(err)
{
alert("Error123 : " + err.description);
return false;
}
alert("No Access to BlueBird");
return false;
}
//-->
</script>
<% if request("SD") = "" then
Response.Write("<script type='text/javascript'>if (checkURL('//bluebird/xxxxxxxx/')==true){location.href ='file://bluebird/xxxxxxx/'} else {location.href = 'BlueBirdAccess.asp?SD=1'};</script>")
end if
%>
<% if request("SD") = 1 then
BlueBirdTPICE = "file://xxxxxxx/xxxxxxx"
dim fs,fo
set fs=Server.CreateObject("Scripting.FileSystemObject ")
set fo=fs.GetFolder("//xxxxxxx/xxxxxxx")
FolderAttr = ""
FolderAttr = fo.Attributes
If (FolderAttr) = "16" then
%>
<script language="javascript">
<!--
alert("tpICE folder access available");
location.href = "<%=BlueBirdTPICE%>";
//-->
</script>
<%
Else
End if
set fo=nothing
set fs=nothing
end if
%>
<%
if err then
'response.write (err.description)
end if
%>