<%
'Skapa databaskoppling till databasen med IP-serierna
Set Conn = Server.CreateObject("ADODB.Connection")
ConnectString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("ip-to-country.mdb")
conn.open ConnectString

'Funktion för att konvertera IP-adress till IP-nummer
Function ConvertIP(sIP)
Dim arr
arr = Split(sIP,".")
ConvertIP = arr(0)*16777216 + arr(1)*65536 + arr(2)*256 + arr(3)
End Function

'Hämta besökarens IP-adress från servervaribeln
ipAddr=Request.ServerVariables("REMOTE_ADDR")

'Kolla om det är ett lokalt anrop
IF ipAddr="127.0.0.1" THEN
countryName="LOCALHOST"
countryCode="00"
ELSE
'Konvertera till IP-nummer med funktionen ovan
ipNum=ConvertIP(ipAddr)

'Hämta landsnamnet för aktuell IP-nummerserie
SET RS=conn.execute("SELECT COUNTRY_NAME, COUNTRY_CODE2 FROM ranges WHERE IP_FROM<="&ipNum&" AND IP_TO>="&ipNum&"")

'Liten felhantering
IF RS.EOF THEN
'Om IP-nummerserien av ngn anledning inte finns
countryName="unknown"
countryCode="00"
ELSE
'Annars
countryName=RS("COUNTRY_NAME")
countryCode=RS("COUNTRY_CODE2")
END IF

END IF

'Skriv ut resultat
Response.Write("You are from " & countryName & "
Your IP Address: "&ipAddr)
%>