INF: How to Allow Search Crawlers to Index the MSIB Web Site

<!-- #include virtual="/nr/system/access/resolution.inc" -->
<%

On Error Resume Next

Dim strThisURL, pChannels

' Check if user has right to edit and approve the site.
If Not Autosession.UserCanModifySite Or Not Autosession.UserCanApprove Then
	Call Autosession.ManualLogin("Please log-in as administrator.", "/ChannelAllowRobot.asp")
End If

strThisURL = Request.ServerVariables("URL")
 
' Check that we're in update mode
If Not Autosession.isModeUpdate then
	' someone has called this ASP page directly. Redirect them back to this page in update mode.
	' NOTE: you cannot switch modes mid-page, therefore we must redirect back to this page.
	Response.Redirect( strThisURL & "?" & autosession.rootchannel.queryStringModeUpdate)
End If

Set pChannels = Autosession.RootChannel.Channels

Response.Write "Changing all channels and postings to allow robot following and indexing...<p>"

Call SetChannelsToAllowRobot(pChannels)

If Err.Number = 0 Then
    Call Autosession.CommitAll
	Response.Write "All Changes are committed successfully."
Else
	Call Autosession.RollbackAll
	Response.Write "Error " & Err & ": " & Err.Description
End If

Set pChannels = Nothing

'================================================
Sub SetChannelsToAllowRobot(ByRef pChannels)

	Dim pChannel
	
	On Error Resume Next

	For Each pChannel In pChannels

		pChannel.IsRobotFollowable = true
		pChannel.IsRobotIndexable  = true
		
		Response.Write "Channel ""<b>" & pChannel.Name & "</b>"""
		Response.Write " <font size=-2>IsRobotFollowable=" & pChannel.IsRobotFollowable 
		Response.Write " IsRobotIndexable=" & pChannel.IsRobotIndexable
		Response.Write "</font><br/>"
	
		If pChannel.Postings.Count > 0 Then
			Call SetPostingsToAllowRobot(pChannel.Postings)
		End If
		
		If pChannel.Channels.Count > 0 Then
			Call SetChannelsToAllowRobot(pChannel.Channels)
		End If

	Next

End Sub

'================================================
Sub SetPostingsToAllowRobot(ByRef pPostings)
	
	Dim pPosting

	On Error Resume Next

	For Each pPosting In pPostings

		pPosting.IsRobotFollowable = true
		pPosting.IsRobotIndexable  = true
		pPosting.Approve
		
		Response.Write "&nbsp &nbsp Posting ""<b>" & pPosting.Name & "</b>"""
		Response.Write " <font size=-2>IsRobotFollowable=" & pPosting.IsRobotFollowable 
		Response.Write " IsRobotIndexable=" & pPosting.IsRobotIndexable
		Response.Write "</font>"
	
	Next
	

End Sub

%>