<%@ language=VBScript %>
<%
' ///////////////////////////////////////////////////////
' // CMS - M
' // Copyright 2004 Dimac Development/Duplo 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 = " "
if objRs.RecordCount > 1 Then
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
Else
Set objRs = Nothing
Set objConn = Nothing
GetLanguages = ""
End if
End Function
%>
<%
if Session("Member_Valid") = "TRUE" then
response.write "[Logout] "
response.write Session("Member_Name") & " "
else
response.write "[Login] "
end if
%>
