<% 
       Dim strRemoteIP
       Dim strParsedIP
       Dim strParsedIP2  
       Dim strRedirectPageName
       Dim strDesiredIPRange
       Dim strDesiredIPRange2

        strRemoteIP = request.servervariables("REMOTE_ADDR")

        'THIS WILL GRAB THE 8 LEFT-MOST CHARACTERS
        strParsedIP = Left(strRemoteIP, 11)
	strParsedIP2 = Left(strRemoteIP, 13)
	strParsedIP3 = Left(strRemoteIP, 13)

        strDesiredIPRange = "204.60.78.2"
        strDesiredIPRange2 = "72.10.101.193"
        strDesiredIPRange3 = "172.16.12.201"

	strRedirectPageName = "staff_index.htm"

        If strParsedIP =  strDesiredIPRange Then
            strRedirectPageName = "http://172.16.1.175/"
        End If

       If strParsedIP2 =  strDesiredIPRange2 Then
            strRedirectPageName = "http://172.16.1.175/"
        
        End If

        Response.Redirect(strRedirectPageName)
%>