<%@ 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.
'//
' ///////////////////////////////////////////////////////
Dim vBMID, goStr , StartPageID
StartPageId = 233 ' // The ID of your startpage
Call ChangeLang
vBMID = Request.QueryString("BMID").Item
If vBMID = "" Then
goStr = "Read.asp?DocID=" & Cstr(StartPageId)
' // goStr = "Main.asp" // If you want to use a static home-page
Else
goStr = "Read.asp?DocID=" + Cstr(vBMID)
End IF
Function ChangeLang()
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, LanguageImage, SiteTitle FROM Languages WHERE ID = " & vLangId
objRs.Open strSQL, objConn, 1, 3
Session("SiteTitle") ="Mega Scotland 2010"
If Not objRs.EOF And Not objRs.BOF Then
Session("contentLanguage") = objRs("ID").Value
Session("contentLanguageCode") = objRs("Code").Value
Session("SiteTitle") = objRs("SiteTitle").Value
End If
Set objRs = Nothing
Set objConn = Nothing
End Function
%>
Mega Scotland 2010