I have a section of our intranet that I have removed anonymous access so I can grab the visitors network username. I have done this because some visitors have access to certain sections and forms. Plus so I can keep track of who has submitted what without having them log in (people here are tired of having to log into this or that)
On the main section of our intranet I have a page that shows the latest additions and updates. That information comes from a database that stores the page content, title and last modification of that page.
The data in that database is processed by using a combination of reading the page XMLHTTP to get the current page content and FileSystemObject to get the last mod date of that page. This process is triggered by either a form I submit after updating articles on our intranet or an included process when other data is updated. For example; when someone submits something to the company news section, part of my submit process will use XMLHTTP to read the content of that page (so it will grab what a visitor will see) and (after stripping the HTML) will save that in a database and use now() as the last mod date. I also use that DB table for searching.
So, anyway, I needed to explain all that to get to this&
On the sections of our intranet that I have anonymous access turned off the XMLHTTP does not work because ISUR (which I am guessing xmlhttp uses) is not an authenticated user and I actually get a 401 xmlHTTP.Status. Unfortunately, if I enable anonymous access (even with the authenticated access boxes checked) I am unable to grab Auth_User.
Is there a way I can have both my xmlhttp to work and also be able to grab Request.ServerVariables("A
? I am using IIS 6 on a Windows 2003 server.
A screenshot of my permissions can be seen at: http://www.cumminsnorthwest.com/MiscImg/IISAccess.jpg
Here is the code I am using for my xmlhttp:
Set xmlHTTP = CreateObject("MSXML2.Serve
xmlHTTP.open "GET", "http://infopage.cummins.com/CSE/Tools/Minutes.asp
CurrentPage = xmlHTTP.ResponseText
CurrentStatus = xmlHTTP.Status
CurrentReadiness = xmlHTTP.readyState
If CurrentStatus = 200 AND CurrentReadiness = 4 Then
'Function that grabs title from the page
TheTitle = GetTitle(CurrentPage)
Response.Write "Page Unavailable"
Set xmlHTTP = Nothing
Response.Write "<br>" & TheTitle & "<br>"
Thanks in advance for your help,