Admin/Mods Unable to Block IPs

 
'******************************************
'****        Banned IP's               *****
'************************** ****************
Private Function bannedIP()

     'Declare variables
     Dim rsIPAddr
     Dim strCheckIPAddress
     Dim strUserIPAddress
     Dim blnIPMatched
     
     'Intilise variable
     blnIPMatched = False
     
     'Get the users IP
     strUserIPAddress = getIP()

     'Intialise the ADO recordset object
     Set rsIPAddr = Server.CreateObject("ADODB.Recordset")

     'Get any banned IP address from the database
     'Initalise the strSQL variable with an SQL statement to query the database to count the number of topics in the forums
     If strDatabaseType = "SQLServer" Then
          strSQL = "EXECUTE " & strDbProc &  "BannedIPs"
     Else
          strSQL = "SELECT " & strDbTable & "BanList.IP FROM " & strDbTable & "BanList WHERE " & strDbTable & "BanList.IP Is Not Null;"
     End If

     'Query the database
     rsIPAddr.Open strSQL, adoCon

     'Loop through the IP address and check 'em out
     Do while NOT rsIPAddr.EOF and NOT blnIPMatched
     
          'Get the IP address to check from the recordset
          strCheckIPAddress =  rsIPAddr("IP")
          
          'See if we need to check the IP range or just one IP address
          'If the last character is a * then this is a wildcard range to be checked
          If Right(strCheckIPAddress, 1) = "*"   Then
               
&n bsp;            'Remove  the wildcard charcter form the IP
                strCheckIP Address = Replace(strCheckIPAddress, "*", "", 1, -1,  1)
               
            'See  if whats left of the IP  matches
               I f strCheckIPAddress = Mid(strUserIPAddress, 1, Len(strCheckIPAddress)) Then blnIPMatched = True
                 &nbs p;        
           'Else check the IP address  metches     
          E lse
               'Else  check to see if the IP address match
               If strCheckIPAddress = strUserIPAddress Then blnIPMatched =  True
          
        End If

          'Move to the next  record
          rsIPAddr.MoveNext
        Loop

     'Clean  up
     rsIPAddr.Close
     Set rsIPAddr = Nothing

     'Return the function
     bannedIP = blnIPMatched
End Function