<%  Response.ContentType = "text/plain" %>
<%
Dim RobotBlocklist
Set RobotBlocklist = CreateObject("Scripting.Dictionary")
%>
<!--#INCLUDE VIRTUAL="/const/RobotBlock_Const.asp"-->
<!--#INCLUDE VIRTUAL="/tools/ExpiredDomain_Inc.asp"-->
<%
RQ_ServerName = Request.ServerVariables("SERVER_NAME")
If RobotBlocklist.Exists(RQ_ServerName) Then
%>User-agent: *
Disallow: /*
<%else%>User-agent: Googlebot
Disallow: /public/OfferInventResult.asp*
Disallow: /part_number/*
Disallow: /x/*
Disallow: /eCatalog/*
Disallow: /member/*
Disallow: /public/CompanyHighlightRedirect.asp*
Disallow: /public/ECatalogResultProductDetails.asp*
Disallow: /public/ECatalogSearch.asp*
Disallow: /public/OfferInventSearch.asp*
Disallow: /public/PartDetail.asp*
Disallow: /public/PostRequirement.asp*
Disallow: /public/PreEscrowList.asp*
Disallow: /public/PreferenceChange_Proc.asp*
Disallow: /public/Querymember.asp*
Disallow: /public/ReportedCompany.asp*
Disallow: /public/ReportedCompanyDetail.asp*
Disallow: /public/SuccessStory.asp*

User-agent: discobot
Disallow: /x/*
Disallow: /p/*
<%End If%>
<%
Function RobotBlocklist_Add(newDomain)
  If Not RobotBlocklist.Exists("" & newDomain) Then
    RobotBlocklist.Add "" & newDomain, "" & newDomain
  End If
End Function
%>