/SQL/scripts/inc/mla_sql_lang.asp
ASP | 29 lines | 25 code | 4 blank | 0 comment | 0 complexity | e55b0428c9a03655af5309f23bdc8055 MD5 | raw file
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%>