PageRenderTime 34ms CodeModel.GetById 32ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/SQL/scripts/inc/mla_sql_lang.asp

http://github.com/khaneh/Orders
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%>