HEX

File: D:/web/itpartnership/test.asp
<html>
<head>
</head>
<body>
<%

ReturnLocaleData 0, "Current"
ReturnLocaleData 1033, "English (US)"
ReturnLocaleData 2057, "English (UK)"
ReturnLocaleData 4105, "English (Canada)"
ReturnLocaleData 3081, "English (Australia)"
ReturnLocaleData 1036, "French"
ReturnLocaleData 1033, "English (US)"

Sub ReturnLocaleData(locale, description)
  If locale <> 0 Then Session.LCID = locale
  Response.Write "<b>" & description & " (LCID = " & Session.LCID & ")</b><br>"
  Response.Write "Long date: " & FormatDateTime(Date, 1) & "<br>"
  Response.Write "Short date: " & FormatDateTime(Date, 2) & "<br>"
  Response.Write FormatCurrency(1.05, 2) & "<br>"
  Response.Write FormatNumber(1000000,2) & "<br>"
  Response.Write "<br>"
End Sub

%>

</body>
</html>