Author: M.Towler (1 May 07 6:10am)
If that is true then all you would need to do is strip the IP address into the octets and then re-order then.... and REMOTE_HOST is the DNS name for the ip address it would be REMOTE_ADDR
Try this i have tested it and it works :)
'Created by Marc Towler (email@example.com)
'Available for free use, do not remove this header
Dim strOct1, strOct2, strOct3, strOct4
StrBLkey = "KEY HERE"
strIP = Request.ServerVariables("REMOTE_ADDR")
strOct1 = Left(strIP,3)
strOct2 = Mid(strIP,4,4)
strOct3 = Mid(strIP,8,3)
strOct4 = Right(strIP,3)
strNewIP = strOct4 & strOct3 & strOct2 & "." & strOct1
strLookup = StrBLkey & "." & strNewIP & ".dnsbl.httpbl.org"
Post Edited (2 May 07 6:26pm)