<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="windows-874" AutoEventWireup="True" %>
<%@ Import Namespace="System.Xml" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Google Test</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim stUrl as String = "http://maps.googleapis.com/maps/api/geocode/xml?latlng=13.6942800,100.5461500&sensor=true"
Dim dom As New XmlDocument()
dom.Load(stUrl)
Dim nd As XmlNode = dom.SelectSingleNode("//result//address_component/long_name")
If nd IsNot Nothing Then
txtTest.Text = "InnerText: " & nd.InnerText
Else
txtTest.Text = "Not found"
End If
End Sub
</script>
</head>
<body>
<form id="frmMain" runat="server">
<asp:TextBox ID="txtTest" AutoPostBack="false" runat="server"></asp:TextBox>
</form>
</body>
</html>