<%@ Language = "VBScript" %>
<% OPTION EXPLICIT %>
<%
	dim strDomainName
	
	' Set Content type
	Response.ContentType="text"

	strDomainName = lcase(Request.ServerVariables("HTTP_HOST"))		
	
	if Instr(strDomainName, "parson") > 0 then 
		DoParsonRobot
	
	elseif	Instr(strDomainName, "localhost") > 0 then 
		DoParsonRobot	
	
	' ************************ Directory sites Follow *********************
		
	elseif	Instr(strDomainName, "clarity") > 0 then 
		DoIslandRobot

	elseif	Instr(strDomainName, "go-where") > 0 then 
		DoIslandRobot
	
	elseif	Instr(strDomainName, "deals-24") > 0 then 
		DoIslandRobot
		
	elseif	Instr(strDomainName, "edir") > 0 then 
		DoIslandRobot
		
		
	' *********************** The Islands... starts **************************
	
	elseif Instr(strDomainName, "halcyonislands.") > 0 then 		
		DoIslandRobot
		
	elseif Instr(strDomainName, "lithnos.") > 0 then 
		DoIslandRobot
	
	elseif Instr(strDomainName, "bleroche.") > 0 then 		
		DoIslandRobot
	
	elseif Instr(strDomainName, "guinola.") > 0 then 	
		DoIslandRobot	
	
	elseif Instr(strDomainName, "soucique.") > 0 then 		
		DoIslandRobot
		
	elseif Instr(strDomainName, "quayhaven.") > 0 then 		
		DoIslandRobot
		
	elseif Instr(strDomainName, "stormcay.") > 0 then 		
		DoIslandRobot
		
	' *********************** The Islands...    ends **************************
	else
		DoParsonRobot
	end if
	
	sub DoParsonRobot
		%>
# robots.txt file
User-agent: *
Disallow: /*/
Disallow: /info.asp
		<%		
	end sub
	
	sub DoIslandRobot
		%>
# robots.txt file
User-agent: *

		<%		
	end sub
		
	
%>