IP nummer

det ved jeg at man kan, jeg ved desvære bare ikke hvordan du gør i ASP :-(

Det tror jeg altså ikk man kan - hvis man laver ip lookup på min IP så siger den holland hehe

Når man skal se hvor det er fra har det vel egentlig ikke noget med ASP at gøre, har det? Det er jo bare hit counteren der er lavet i ASP. Måden man aflæser IP nummeret på må vel være den samme ligegyldigt hvordan man har programmeret hit counteren, ikke?
Mvh. Marie

Nu har jeg overhovedet ikke forstand på ASP, men kan du ikke prøve at finde hostnamet og så se efter om eks. DK indgår deri... Hvis det gør, så kommer personen jo fra Danmark :)

nok bedre med ".dk"

http://www.ripe.net/perl/whois

Der kan man da lave Europæisk lookup - så lav en ASP side der henter data fra den og søg efter .dk eller .de eller .se eller hvad du nu vil søge efter

Det er faktisk muligt at få en gratis IP til land databse med 90-95% nøjagtighed.

Her kan du se databasen:
http://ip-to-country.webhosting.info/node/view/6

Så kan du lave noget kode som dette der finder landet i databasen:

' Se: http://ip-to-country.webhosting.info/node/view/55
'------------------------------------------------------------------
Dim arrAsgIp, strDottedIp
Function DottedIp(userIP)
If Trim("[]" & userIP) <> "[]" Then
    arrAsgIp = Split(userIP,".")
    strDottedIp = arrAsgIp(0)*16777216 + arrAsgIp(1)*65536 + arrAsgIp(2)*256 + arrAsgIp(3)
  Else
    strDottedIp = "noIp"
  End If
DottedIp = strDottedIp
End Function

Dim strCountry, strCountry2

Function GetCountry(ip)
'Convert IP
  strDottedIp = DottedIp(ip)
  Dim strIP2Conn
  Dim Conn
  Dim Rs
  Dim strIP2SQL
  'If there is a valid IP address
  If strDottedIp <> "noIp" Then
    strIP2SQL = "SELECT * FROM Country WHERE IP_From <= " & strDottedIp & " and IP_To >= " & strDottedIp & ""
    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("ip-to-contry.mdb")
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")
    Conn.Open ConnStr
    Rs.Open strIP2SQL, Conn
    If Rs.EOF Then
      strCountry = "(unknown)"
      strCountry2 = "xx"
    Else
      strCountry = Rs("Country")
      strCountry2 = Rs("Country2")
    End If
    Rs.Close
    Set Rs = Nothing
    Conn.Close
    Set Conn = Nothing
  Else
    strCountry = "(unknown)"
    strCountry2 = "xx"
  End If
End Function


ip = Request.ServerVariables("REMOTE_ADDR")
GetCountry (ip)
response.write strCountry  & "..." & strCountry2

Skal jeg oprette en ekstra database til dette? Jeg mener ud over den Hit counteren kører på?
Mvh. Marie

Hej eagleeye
Mener du jeg skal downloade databasen fra den adresse du nævner? ( undskyld hvis jeg er lidt langsom)
Mvh. Marie

Ja du skal downloade database indholdet herfra. Det du downloader er en CSV fil.
http://ip-to-country.webhosting.info/node/view/6

Filen ligger i en zip fil som du lige skal havde pakket ud, så skulle du gerne få en fil som hedder ip-to-country.csv.

CSV filen kan du så importer til din database, hvilken database bruger du?
Bruger du Access kan du enten lave en ny database.mdb fil og havde tabellen i den eller hvade tabellen i en database fil du har i forvejen.

Jeg aner ikke om det kan bruges til noget som helst, jeg ved bare at det fines i asp:

http://www.cyscape.com/showbrow.asp?bhcp=1

(ved hellere ikke om det koster noget :-) )

Hej eagleeye
Kan vi genoptage tråden, hvor vi slap? Jeg har haft travlt med andre ting, så hvis du har tid, ville det være fint.
Mvh. Marie

Hej eagleeye
Du fik aldrig mine points?
Mvh. Marie