![]() |
||||||
|
||||||
Bodrumlife Publications www.bodrumlife.com Tel: 0252 316 6840 |
||||||
|
||||||
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 %>
|
||||||