selectlang.txt

Dim lang
Dim ssh
Dim HelpPage

Sub initHelpButton(ButtonReference, PageName)

' ButtonReference.href = "/DDT2000Office/doc/" & lang & PageName

HelpPage="/DDT2000Office/doc/" & lang & PageName
ButtonReference.href = "javascript:DisplayHelpPage()"
End Sub

Sub DisplayHelpPage()
dim HelpWindow
set HelpWindow=window.open(HelpPage,"DDT2000Help","height=480,width=640,status=no,toolbar=no,menubar=no,location=no,resizable=yes")
helpWindow.Focus
End sub


Sub ChangeLang()
window.external.ShowBrowserUI "LanguageDialog", null
window.location.reload
end sub



'---------------------
Sub TestLang
Dim I

I = InStr(lang,"-")
If I <> 0 Then lang = Left(lang, I-1)
On Error Resume Next
set ssh = document.stylesheets("SS" & lang)
Err.Clear
End Sub

'-----------------
Sub selectlang()
Dim WshShell
Dim Buff
Dim I

Buff=""
Set ssh = Nothing
On Error Resume Next
Set WshShell = CreateObject("WScript.Shell")
If Err = 0 Then	Buff = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\International\AcceptLanguage")
Err.Clear
Do
	I = InStr(Buff,",")
	If I = 0 Then
		lang = Buff
		Buff = ""
	Else
		lang = Left(Buff, I-1)
		Buff = Mid(Buff, I+1)
	End If
	If Len(lang) = 0 Then Exit Do
	testlang
Loop while ssh is nothing
if ssh is nothing then
	lang = window.clientinformation.browserlanguage
	testlang
end if
if ssh is nothing then
	lang = "en"
	testlang
end if
if not ssh is nothing then
	On Error Resume Next
	ssh.removerule 0
end if
Err.Clear
End Sub