<%@Language="VBScript"%> <% 'Create an instance of ActiveTarget object Set ActiveObj = Server.CreateObject("ACTarget.IPGEO") IP=Trim(Request("IP")) Host=Trim(Request("Host")) if Host<>"" then IP=ActiveObj.DnsLookup(Host) end if if IP="" then 'Get the current ActiveTarget version, IP database version and status VersionInfo = ActiveObj.Version 'Get the ip address of current visitor ClientIP = ActiveObj.ClientIP 'Return the two letters country code like us,uk etc. VisitorCountry= ActiveObj.ClientRegion 'Return full country name like United States, United Kingdom etc. VisitorFullCountry = ActiveObj.ClientFullRegion end if if IP<>"" then 'Custom ip address to two letters country code lookup IPCountry = ActiveObj.Lookup(CStr(IP)) 'Custom ip address to full country name lookup IPFullCountry=ActiveObj.FullLookUp(CStr(IP)) end if 'If you want to query location with a hostname, 'you can first use ActiveObj.DNSLookup(HostName) to resolve it to ip address. 'Free the instance Set ActiveObj=nothing %> About the filter About the filter
<% if ip="" then%> The Internet address you are currently using (<%=ClientIP%>) is registered as being in:
     <%=VisitorFullcountry%>


<%=VersionInfo%>
<%end if%>