ASP routine to check valid IP address

function CheckDNS()
dim strRemAddr, strRemHost, objDNS, strHost, strRptDomain
strRemAddr = trim(Request.ServerVariables(“REMOTE_ADDR”))
strRemHost = trim(Request.ServerVariables(“REMOTE_HOST”))
if Err.number <> 0 Then
CheckDNS = False
End if
if left(strRemAddr,3) = “192″ or strRemAddr = “a.b.c.d” then
CheckDNS = True
else
CheckDNS = False
Response.Redirect(http://www.yoursitehere.com/denied.asp)
end if
end function