' GetLanguageStrings:
' Returns an array with all text strings for users selected language
Function GetLanguageStrings(adoCon)
	If sid <> 0 Then ' User is logged in
		set rslang = SQLQuery(adoCon, "SELECT lang FROM languages WHERE lang_id =" & Usr(adoCon, sid, "lang"))
		langtext = rslang("lang")
		Set RS = SQLQuery(adoCon, "SELECT variable, " & langtext & " FROM tblLanguage")
	Else
		Set RS = SQLQuery(adoCon, "SELECT variable, " & Application("lhd_SysLng") & " FROM tblLanguage")
	End If
	Select Case RS.eof
    	Case False
    		RSArray = RS.getrows
		session("lhd_Language") = RSArray
        	'RSArray(Field, Record)
    	Case True
        	Response.Write "No Records were found"
	End Select 
	RS.Close
End Function


'LANG
'Returns the textstring for the given language variable
Function lang(strVar)
	LangArray = session("lhd_language")
       	Number_Of_Records = Cdbl(UBound(LangArray, 2))
	For R = 0 to Number_Of_Records
		if ucase(LangArray(0,R)) = ucase(strVar) then
			lang = LangArray(1,R)
			exit for
		end if
	Next
	if len(lang) = 0 then
		lang = "Text is missing in language table!"
	end if
End Function