<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
On Error Resume Next
%>
<% if Request("Session") = "none" then%>
<%= L_TIMEOUT_TEXT %>
<%= L_REFRESH_TEXT %>
<% else %>
<%
Dim currentobj, infoobj
Dim adminserver, lasterr, cont, logonfailure, thisinst, adminobj
' check for our session vars... if they are missing we need to regrab from the cookies...
%>
<% if Session("Browser") = "" or Session("FONTSIZE") = "" then %>
<% Response.write ("") %>
<% else %>
<%
Dim adminpath
dim debug
debug = False
adminpath = "IIS://localhost/w3svc/"+Request.ServerVariables("INSTANCE_ID")
if debug then
Response.write Request.ServerVariables("AUTH_USER") & "
"
Response.write Request.ServerVariables("AUTH_PASSWORD") & "
"
Response.write adminpath & "
"
end if
Set currentobj=GetObject(adminpath)
lasterr = err
if err = &H800401E4 or err = 70 then
Response.Status = "401 access denied"
cont = False
logonfailure = True
else
if err=0 then
cont=True
else
cont=False
logonfailure = False
end if
end if
%>
<% if cont then %>
<%
dim w3svc, site
Set infoobj=GetObject("IIS://localhost/w3svc/info")
if (Request.ServerVariables("INSTANCE_ID")=infoobj.AdminServer) then
Set w3svc = GetObject("IIS://localhost/w3svc")
if err = &H800401E4 or err = 70 then
Session("isAdmin")=False
else
Session("isAdmin") = True
end if
else
Session("isAdmin")=false
end if
if debug then
Response.write err
end if
%>
<%= L_ISM_TEXT %>
<% else %>
<% if not logonfailure then %>
<%= L_NOADSI_TEXT %>
<%= L_ERROR_TEXT %><%= err %> <%= err.description %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>