<% Response.Buffer = TRUE %>
GeoIP Test
GeoIP Test
<%
if Request.Form("values") = "Test Values" then
hostname = "www.yahoo.com"
else
hostname = Request.Form("hostname")
end if
if Request.Form("submit") = "Submit" then
set geoip = Server.CreateObject("GeoIPCOMEx.GeoIPEx")
geoip.set_db_path("C:\Program Files\GeoIP\")
geoip.find_by_name(hostname);
city = geoip.city;
Response.Write("| Results |
|---|
")
Response.Write("| Hostname | " + hostname + " |
")
Response.Write("| GeoIP City Value | " + city + " |
")
Response.Write("
")
end if
%>