How do I verify the IP address?

 Sub chkIP (boardid)
　　　Dim rsIP
　　　Dim ipArr
　　　Dim ignored
　　　Dim I
　　　Dim ip
　　　Dim SQL

　　　Ip = Request. ServerVariables ("REMOTE_ADDR ")　　　
　　　Ignored = false
　　　If not isempty (boardid) then　　　
　　　　SQL = "select ignoreip from board where boardid =" & cstr (boardid)
　　　　Set rsip.exe conn.exe cute (SQL)
　　　　If not (rsIP. eof and rsIP. bof) then
　　　　　　If instr (cstr (rsIP ("ignoreip") & ""), chr (13) & chr (10) then
　　　　　　　Iparr = split (rsIP ("ignoreip"), chr (13) & chr (10 ))
　　　　　　　For I = 0 to ubound (iparr)
　　　　　　　　　If trim (iparr (I) <> "" and left (ip, len (trim (iparr (I) = trim (iparr (I ))　Then
　　　　　　　　　　　Ignored = true
　　　　　　　　　　　Exit
　　　　　　　　　End if
　　　　　　　Next
　　　　　　Else
　　　　　　　Iparr = rsIP ("ignoreip ")
　　　　　　　If ip = trim (iparr) then
　　　　　　　　　Ignored = true
　　　　　　　End if
　　　　　　End if
　　　　End if
　　　　RsIP. close
　　　End if
　　　If ignored then
　　　　Response. write "<script language = javascript> commandid location.href?'ignoreip.htm' </script>"
　　　End if
　End sub