How do I verify an IP address? _ Programming 10000 Q

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=conn.execute (SQL)
　　　　 If not (rsip.eof and RSIP.BOF) then
　　　　　　 If InStr (CStr (Rsip ("Ignoreip") & ""), Chr (&CHR) Then
　　　　　　　 Iparr=split (Rsip ("Ignoreip"), Chr (+) &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 For
　　　　　　　　　 End If
　　　　　　　 Next
　　　　　　 Else
　　　　　　　 Iparr=rsip ("Ignoreip")
　　　　　　　 If Ip=trim (Iparr) Then
　　　　　　　　　 Ignored=true
　　　　　　　 End If
　　　　　　 End If
　　　　 End If
Rsip.close
end if
Span Times New Roman '; Mso-hansi-font-family: ' Times mso-bidi-font-size:9.0pt ' > if ignored
then Times New Response.Write <script Language=jav ascript>window.location.href= ' ignoreip.htm ' </script> '
end if
end Sub"!--? xml:namespace prefix = o ns = "Urn:schemas-microsoft -com:office:office "/-->