örnek kod ekliyorum,düzenlemesi sana kalmış artık
<%
CEKILECEK="http://api.hostip.info/?ip=212.156.4.4"
function duz(a)
a=replace(a,"hostip","",1,-1,1)
duz=a
end function
Set rssOku = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
rssOku.async = False
rssOku.setProperty "ServerHTTPRequest", True
rssOku.Load CEKILECEK
If rssOku.parseError.errorCode <> 0 Then
Response.Write "<b>Hata:</b> " & rssOku.parseError.reason &"<br>"
Response.Write "<b>Satır:</b> " & rssOku.parseError.line &"<br>"
Response.Write "<b>Açıklama:</b> " & rssOku.parseError.srcText
End If
Set ObjeListesi1 = rssOku.getElementsByTagName("gml:name")
Set ObjeListesi2 = rssOku.getElementsByTagName("countryName")
Set ObjeListesi3 = rssOku.getElementsByTagName("countryAbbrev")
Set ObjeListesi4 = rssOku.getElementsByTagName("gml:coordinates")
For Each Obje In ObjeListesi1
response.write duz(Obje.childNodes(0).Text)
Next
response.write "<br />"
For Each Obje In ObjeListesi2
response.write Obje.childNodes(0).Text
Next
response.write "<br />"
For Each Obje In ObjeListesi3
response.write Obje.childNodes(0).Text
Next
response.write "<br />"
For Each Obje In ObjeListesi4
response.write Obje.childNodes(0).Text
Next
%>