Culture settings....

[Guest]

Hi all,

I am using a free currency exchangerate webservice to update figures on my
web page. The code is fairly simple and works well for UK, and US Dollars -
but for some reason I cannot get the EURO symbol to work.

I read on microsoft site that using the optional "False" in:
Thread.CurrentThread.CurrentCulture = New CultureInfo("de-DE", False)

Surpresses the country's symbol and displays a euro one, but it does not
work. Instead it displays the number unformatted with a ? (question mark)
after the figure. Anyone know how i can get the euro symbol to work?

Dim CurrencySelector = DDL_Ex.SelectedItem.Text
Dim ExchangeRate = DDL_Ex.SelectedItem.Value

Select Case CurrencySelector
Case "GB Pound"
Thread.CurrentThread.CurrentCulture = New CultureInfo("en-GB")
_dr(dr("media").ToString + "_ACE") = (dr("ACE Value") /
1000000)
_dr(dr("media").ToString + "_PR") = (dr("PR Value") / 1000000)

Case "US Dollar"
Thread.CurrentThread.CurrentCulture = New CultureInfo("en-US")
_dr(dr("media").ToString + "_ACE") = ((dr("ACE Value") *
ExchangeRate) / 1000000)
_dr(dr("media").ToString + "_PR") = ((dr("PR Value") *
ExchangeRate) / 1000000)

Case "Euro"
Thread.CurrentThread.CurrentCulture = New CultureInfo("fr-FR",
False)
_dr(dr("media").ToString + "_ACE") = ((dr("ACE Value") *
ExchangeRate) / 1000000)
_dr(dr("media").ToString + "_PR") = ((dr("PR Value") *
ExchangeRate) / 1000000)
End Select

Thanks,

KS