%@LANGUAGE="VBSCRIPT"%> <% ' *** Detect Browser And Redirect ' *** UltraSuite Server Behavior - 4205 - version 1.0 ' *** Created by Jag S. Sidhu - www.ultrasuite.com agent = Lcase(Request.ServerVariables("HTTP_USER_AGENT")) nslash = InStr(1,agent,"/",1) name = Left(agent, nslash -1) vers = Right(agent, Len(agent) - nslash) if InStr(1,name,"mozilla",1) > 0 Then if InStr(1,agent,"spoofer",1) = 0 AND InStr(1,agent,"compatible") = 0 Then name = "Netscape" Else If InStr(1,agent,"msie",1) > 0 Then name = "Microsoft" End If End If End If if InStr(1,name,"Microsoft",1) > 0 AND CSng(Left(vers,3)) >= 4.0 Then Response.Redirect("../aboutus/ReturnPolicy.asp") Else If InStr(1,name,"Netscape",1) > 0 AND CSng(Left(vers,3)) >= 4.0 Then Response.Redirect("../aboutus/ReturnPolicy.asp") Else If InStr(1,name,"Netscape",1) > 0 AND CSng(Left(vers,3)) >= 3.0 Then Response.Redirect("../aboutus/ReturnPolicy.asp") Else Response.Redirect("../aboutus/ReturnPolicy.asp") End If End If End If %>