SCRIPT.ASP (FORCE LCID)

<% Session.LCID = 1033 ' United States %>
<% = FormatDateTime((Now), 1) %>	Saturday, January 28, 2012
<% = FormatDateTime((Now), 2) %>	1/28/2012
<% = FormatDateTime((Now), 3) %>	3:23:53 AM
<% = FormatDateTime((Now), 4) %>	03:23
<% = FormatDateTime(DateAdd("h", -8, Now), 4) %>	19:23
<% = FormatDateTime(DateAdd("h", +8, Now), 4) %>	11:23
<% = FormatCurrency(50000) %>	$50,000.00

<% Session.LCID = 1036 ' France %>
<% = FormatDateTime((Now), 1) %>	samedi 28 janvier 2012
<% = FormatDateTime((Now), 2) %>	28/01/2012
<% = FormatDateTime((Now), 3) %>	03:23:53
<% = FormatDateTime((Now), 4) %>	03:23
<% = FormatDateTime(DateAdd("h", -8, Now), 4) %>	19:23
<% = FormatDateTime(DateAdd("h", +8, Now), 4) %>	11:23
<% = FormatCurrency(50000) %>	50 000,00 F

<% Session.LCID = 1046 ' Brazil %>
<% = FormatDateTime((Now), 1) %>	sábado, 28 de janeiro de 2012
<% = FormatDateTime((Now), 2) %>	28/1/2012
<% = FormatDateTime((Now), 3) %>	03:23:53
<% = FormatDateTime((Now), 4) %>	03:23
<% = FormatDateTime(DateAdd("h", -8, Now), 4) %>	19:23
<% = FormatDateTime(DateAdd("h", +8, Now), 4) %>	11:23
<% = FormatCurrency(50000) %>	R$ 50.000,00

<% Session.LCID = 2070 ' Portugal %>
<% = FormatDateTime((Now), 1) %>	sábado, 28 de Janeiro de 2012
<% = FormatDateTime((Now), 2) %>	28-01-2012
<% = FormatDateTime((Now), 3) %>	3:23:53
<% = FormatDateTime((Now), 4) %>	03:23
<% = FormatDateTime(DateAdd("h", -8, Now), 4) %>	19:23
<% = FormatDateTime(DateAdd("h", +8, Now), 4) %>	11:23
<% = FormatCurrency(50000) %>	50.000.00 €

<% Session.LCID = 1034 ' Spain %>
<% = FormatDateTime((Now), 1) %>	sábado, 28 de enero de 2012
<% = FormatDateTime((Now), 2) %>	28/01/2012
<% = FormatDateTime((Now), 3) %>	3:23:53
<% = FormatDateTime((Now), 4) %>	03:23
<% = FormatDateTime(DateAdd("h", -8, Now), 4) %>	19:23
<% = FormatDateTime(DateAdd("h", +8, Now), 4) %>	11:23
<% = FormatCurrency(50000) %>	50.000 pta

---

GLOBAL.ASA (FORCE LCID)

<SCRIPT LANGUAGE='VBScript' RUNAT='Server'> Sub Session_OnStart ' Session.LCID = 1033 ' United States ' Session.LCID = 1036 ' France ' Session.LCID = 1046 ' Brazil ' Session.LCID = 2070 ' Portugal Session.LCID = 1034 ' Spain End Sub </SCRIPT>

---

SCRIPT.ASP (USER LCID)

<% strAcceptLanguage = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") strPos = InStr(1, strAcceptLanguage, ",") If strPos > 0 Then strAcceptLanguage = Left(strAcceptLanguage, strPos - 1) End If Select Case LCase(strAcceptLanguage) Case "en" strLCID = 1033 ' United States Case "fr" strLCID = 1036 ' France Case "pt-br" strLCID = 1046 ' Brazil Case "pt" strLCID = 2070 ' Portugal Case "es" strLCID = 1034 ' Spain Case Else strLCID = 2048 ' default End Select Session.LCID = strLCID %>

http://support.microsoft.com/kb/q229690/