Click here to Skip to main content
Click here to Skip to main content
Go to top

GeoIP - Where are your internet visitors coming from?

, 31 Aug 2003
Rate this:
Please Sign up or sign in to vote.
Where are your internet visitors coming from?
<!-- Add the rest of your HTML here -->

Introduction

With GeoIP you can detect where your visitors are coming from. You can use this information to deliver personalized information (see image below), reducing credit card fraud, analyzing web server logs (I use it for SNIFF), target banner ads, .... (see Solutions at MaxMind - http://www.maxmind.com/)


Click on the image for a test

Note

If you can install a component on your web server, you should download the GeoIP component from MaxMind . I wrote GeoIP.asp since my provider doesn't allow me to install components.

Prerequisite

(Updated 1.sep.03, new urls) You need the GeoIP database - http://www.maxmind.com/app/standard, and you need ADO 2.5 or later since GeoIP.asp uses the ADO Stream object to read the GeoIP database.

Installation

  1. Download the GeoIP.dat database from MaxMind
    http://www.maxmind.com/app/standard
  2. Put GeoIP.asp, example.asp and GeoIP.dat in a catalog on your web server.
  3. Test the installation by accessing the example.asp page
    http://yourserver/path/example.asp

Methods and Properties

GeoIP.asp exposes these public methods and properties

Properties

  • GeoIPDataBase - Sets the path and filename to GeoIP.dat
  • ErrNum - Returns the error number (if <> 0, there's an error)

Methods

  • lookupCountryName - Find an IP's country name
    • example: strCountryName = oGeoIP.lookupCountryName(strIP)
  • lookupCountryCode - Find an IP's country code
    • example: strCountryCode = oGeoIP.lookupCountryCode(strIP)

Using the code

It's rather simple to use this code:

<!--<span class="code-comment">#include file="GeoIP.asp"--></span>
<%
Dim oGeoIP,strErrMsg
Dim strIP,strCountryName,strCountryCode

Set oGeoIP = New CountryLookup
oGeoIP.GeoIPDataBase = Server.MapPath("GeoIP.dat")
If oGeoIP.ErrNum(strErrMsg) <> 0 Then
	Response.Write(strErrMsg)
Else
	strIP = request.ServerVariables("REMOTE_ADDR")
	strCountryName = oGeoIP.lookupCountryName(strIP)
	strCountryCode = oGeoIP.lookupCountryCode(strIP)
End If
Set oGeoIP = Nothing
%>

Have fun coding, Per

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

Per S
Web Developer
Norway Norway
No Biography provided

Comments and Discussions

 
QuestionCities? Pinmemberzorlus22-Nov-09 3:19 
QuestionHow to make custom geo-Ip solution... PinmemberAlex Kucherenko15-Sep-08 6:28 
GeneralOne more... PinmemberVasudevan Deepak Kumar7-Mar-06 22:48 
GeneralEuropean Union PinmemberSehl11-Jan-06 5:04 
GeneralTHANK U ! Pinmemberxlsc10-Apr-05 10:34 
GeneralSvensk flagga ist&#228;llet f&#246;r Dansk Pinmembermicke122-Aug-04 13:46 
GeneralRe: Svensk flagga ist&#228;llet f&#246;r Dansk PinsussPer Søderlind22-Aug-04 15:11 
GeneralRe: Svensk flagga ist&#228;llet f&#246;r Dansk Pinmembermicke122-Aug-04 15:35 
GeneralExcellent PinsussAnonymous10-Aug-04 13:48 
GeneralI am not in the USA PinsussAnonymous12-May-04 0:32 
GeneralRe: I am not in the USA PinmemberLandarzar6-Aug-06 5:14 
GeneralError PinsussAnonymous22-Feb-04 22:50 
GeneralRe: Error PinsussPer Søderlind22-Feb-04 23:25 
Generalerror PinmemberZaboss28-Dec-03 23:08 
GeneralRe: error PinsussPer Søderlind28-Dec-03 23:31 
GeneralRe: error PinmemberZaboss28-Dec-03 23:43 
GeneralFind users' city, region and country if ...... Pinmembergaryyuan9-Sep-03 9:43 
GeneralRe: Find users' city, region and country if ...... PinmemberPer Soderlind9-Sep-03 10:16 
GeneralRe: Find users' city, region and country if ...... Pinmembergaryyuan9-Sep-03 10:27 
GeneralRe: Find users' city, region and country if ...... PinmemberPer Soderlind9-Sep-03 10:36 
GeneralRe: Find users' city, region and country if ...... PinsussLomax_zzz1-Jan-05 16:17 
GeneralNice! Like it Pinmemberaspstudio1-Sep-03 12:37 
GeneralAwesome PinmemberLarry Antram12-Jan-03 16:34 
GeneralExcelent PinmemberJulio Rios10-Dec-02 7:29 
GeneralRe: Excelent PinmemberPer Soderlind10-Dec-02 8:37 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web01 | 2.8.140921.1 | Last Updated 1 Sep 2003
Article Copyright 2002 by Per S
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid