<%@ Page Language="VB" %>
<%@ Import Namespace="System.Globalization" %>
sub Page_Load(Sender as Object, e as EventArgs)
dim objRegion as RegionInfo
if Page.IsPostBack then
objRegion = new RegionInfo(btRegion.Text)
else
objRegion = RegionInfo.CurrentRegion
end if
lblMessage.Text = "Region: " & objRegion.Name & "
"
lblMessage.Text += "Full name: " & objRegion.EnglishName & "
"
lblMessage.Text += "Currency: " & objRegion.CurrencySymbol & "
"
lblMessage.Text += "ISO Currency: " & objRegion.ISOCurrencySymbol & "
"
lblMessage.Text += "Abbreviation: " & objRegion.ThreeLetterISORegionName & "
"
lblMessage.Text += "Metric system: " & objRegion.IsMetric
end sub
Your information:
Change to (i.e. 'US', 'FR', 'JP', etc):