/SQL/scripts/inc/mla_sql_lang.asp

 1<%
 2	Dim  gTArray(1000)
 3	Class mla_sql_lang
 4		Dim gCurrentLng
 5
 6		Public Property Let lng (pLng)
 7			gCurrentLng = pLng
 8			InitTranslation()
 9		End Property
10
11		Public Function getTerm(pId)
12			getTerm = gTArray(pId)
13		End Function
14
15		Private Sub InitTranslation()
16			Select Case gCurrentLng
17				Case "FR" :
18%>
19					<!-- #INCLUDE FILE="../lng/french.asp" -->
20<%
21				Case Else :
22%>
23					<!-- #INCLUDE FILE="../lng/english.asp" -->
24<%
25			End Select
26		End Sub
27
28	End Class
29%>