<%

ip = Request.ServerVariables("REMOTE_ADDR")
Set nesne = Server.CreateObject("Microsoft.XMLHTTP")
veriyeri = "http://www.dnsstuff.com/tools/whois.ch?ip='"&ip&"'"


With nesne
.Open "GET",veriyeri,False,"",""
.Send
gelenveri = .Responsetext
End with

Set nesne = nothing
baslama = (InStr ( gelenveri,"country:")) + 12
if baslama=8 Then
baslama = (Instr(gelenveri,"Country:")) + 12
End if
bitis = Mid(gelenveri,baslama,4)
if trim(bitis)="tr" or trim(bitis)="TR" Then
Response.redirect ("tr/") 'burayı kendine göre değiştir
Elseif trim(bitis)="FR" or trim(bitis)="fr" Then
Response.Redirect ("fr/")
Else
Response.Redirect ("en/")
End if
%>