<%@ language=VBScript %>
<%
' ///////////////////////////////////////////////////////
' // Dimac CMS
' // Copyright 2004-2008 Dimac Development AB, Sweden
' // www.Dimac.net
' //
' // NOTE:
' // You are not allowed to remove this
' // Copyright information without written
' // permission from Dimac Development.
' ///////////////////////////////////////////////////////
vBM = Request.QueryString("BM").Item
If vBM = "Y" Then
vOL = " onLoad=""AddFav();"" "
Else
vOL = " "
End if
Function GetLanguages()
Dim strResult, vLangId, objConn, objRs, strSQL, strSep, strLang, strID
vLangId=Request.QueryString("lang")
If vLangId = "" And Session("contentLanguage") <> "" Then
vLangId = CStr(Session("contentLanguage"))
End If
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
objConn.Open GetConStr("SiteResources\Data\")
strSQL = "SELECT ID, Code, Description, LanguageImage, ShowFlag FROM Languages"
objRs.Open strSQL, objConn, 1, 3
strResult = " "
While Not objRs.EOF
strLang = objRs("Description").Value
strFlag = CStr(objRs("ShowFlag").Value)
strID = CStr(objRs("ID").Value)
If vLangId = strID And IsNumeric(strID) And strID <> "" Then
Session("contentLanguage") = Cint(strID)
Session("contentLanguageCode") = objRs("Code").Value
End If
If strFlag = "1" Then
strLang = ""
ElseIf Len( strLang ) > 2 Then
strLang = "[" & strLang & "]"
End If
If strID <> vLangId Then strLang = "" & strLang & ""
strResult = strResult & strLang & " "
objRs.MoveNext
Wend
Set objRs = Nothing
Set objConn = Nothing
GetLanguages = strResult
End Function
%>
