/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
- <%
- Dim gTArray(1000)
- Class mla_sql_lang
- Dim gCurrentLng
-
- Public Property Let lng (pLng)
- gCurrentLng = pLng
- InitTranslation()
- End Property
-
- Public Function getTerm(pId)
- getTerm = gTArray(pId)
- End Function
-
- Private Sub InitTranslation()
- Select Case gCurrentLng
- Case "FR" :
- %>
- <!-- #INCLUDE FILE="../lng/french.asp" -->
- <%
- Case Else :
- %>
- <!-- #INCLUDE FILE="../lng/english.asp" -->
- <%
- End Select
- End Sub
-
- End Class
- %>