<%@ language="vbscript"%>
<%
	Dim ServerPort
	ServerPort = Request.ServerVariables("SERVER_PORT")
	Dim ServerName
	ServerName = Request.ServerVariables("SERVER_NAME")
	

	'Set the response content type
	response.ContentType ="text/plain"
	
	'Block all crawling if serverport <> 80
	if ServerPort <> 80 then
		response.write("User-agent: *") & chr(13) & chr(10)
		response.write("Disallow: /") 
	else
		if instr(ServerName, "www.agoda")=0 then
			response.write("User-agent: *") & chr(13) & chr(10)
			response.write("Disallow: /") 
		End if
	End if
%>