Dim objBrowser,ua,index,intRows,version
Set objBrowser = Request.ServerVariables
ua = objBrowser("HTTP_USER_AGENT")
index= InStr(ua,"MSIE")
If index > 0 Then
index = index + 5
version = mid(ua,index,1)
If version < 4 Then
Response.Redirect "browsers.htm"
End If
ElseIf InStr(ua,"Mozilla") AND InStr(ua,"compatible")=0 Then
index = InStr(ua,"Mozilla")
index = index + 8
version=mid(ua,index,1)
If version < 4 Then
Response.Redirect "browsers.htm"
End If
Else
Response.Write "Other than MS or NS "
End if
%>