copyright©1999-2006 bodrumlife publications      www.bodrumlife.com    info@bodrumlife.com 
 

 

<% adr="http://www.ip-adress.com/" set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP") StrHTTP.Open "GET" ,adr, false StrHTTP.Send kur = StrHTTP.Responsetext Set StrHTTP = Nothing kes = split(kur,"IP Location:") kes2=split(kes(1),"in") sehir=kes2(0) killaruna = split(kur,"alt=""ip address flag"">") killaruna2=split(killaruna(1),"") ulke=killaruna2(0) response.write "Sehir: "& sehir &"
" Response.Write "Ülke "&ulke %>