Her er hele default.asp:
<%@ language=VBScript %>
<!--#include file="GlobalResources/Scripts/GlobalData.asp"-->
<%
' ///////////////////////////////////////////////////////
' // 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 = 271 ' // 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
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
%>
<html>
<head>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<!-- Minus AutoDato -->
<title><%=Session("SiteTitle")%></title>
</head>
<frameset rows="69,*" framespacing="0" border="0" frameborder="0">
<frame name="top" src="Top.asp" marginwidth="10" marginheight="10" scrolling="no" noresize>
<frameset cols="200,*">
<frame name="menu1" src="Menu.asp" marginwidth="10" marginheight="10" scrolling="auto" noresize>
<frame name="main" src="<%=goStr%>" marginwidth="0" marginheight="0" scrolling="auto" noresize>
</frameset>
<noframes>
<body>
<p><%=langErrorBrowser%></p>
</body>
</noframes>
</frameset>
</html>
