her er koden:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/connCMS.asp" -->
<%
showdoc = request.QueryString("showdoc")
%>
<%
Dim rsShowfrontPage
Dim rsShowfrontPage_numRows
Set rsShowfrontPage = Server.CreateObject("ADODB.Recordset")
rsShowfrontPage.ActiveConnection = MM_connCMS_STRING
rsShowfrontPage.Source = "SELECT tblPAGES.id_art, tblPAGES.idtop_art, tblPAGES.title_art, tblPAGES.content_art, tblPAGES.date_created_art, tblPAGES.status_art, tblPAGES.ShowFrontpage FROM tblPAGES WHERE tblPAGES.idtop_art=" + Replace(rsShowfrontPage__KTColParam1, "'", "''") + " AND tblPAGES.status_art=3 AND tblPAGES.ShowFrontpage=1 "
rsShowfrontPage.CursorType = 0
rsShowfrontPage.CursorLocation = 2
rsShowfrontPage.LockType = 1
rsShowfrontPage.Open()
rsShowfrontPage_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" >
<html xmlns="
http://www.w3.org/1999/xhtml" xml:lang="en" lang="en" >
<head>
<title><%=mxiObj.getTitle()%></title>
<meta name="description" content="<%=getDescription%>">
<meta name="keywords" content="<%=getKeywords%>">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="blob.css" type="text/css" />
<base href="<%=getBaseURL%>" />
</head>
<body>
<div id="container" >
<div id="banner" >
<img src="images/blog_css_logo.gif" alt="" border="0" /> </div>
<div id="navbar">
<ul><li>
<%
Response.write ("menu.asp")' venstre menu
%>
</li>
</ul>
</div>
<div id="outer" >
<div id="inner">
<div id="left" ><h2>Menu venstre</h2><!-- venstre menu start-->
<A class=menulink href="index.asp">index</A><BR>
<A class=menulink href="links.asp">Links</A><BR>
<A class=menulink href="search.asp">Search</A><BR><BR>
Links<br />
</div>
<% if showdoc <> 1 Then
' vises default hvis der ikke er klikket på noget i højre menu
%>
<div id="right" ><%
Response.write ("menu.asp")' venstre menu
%>
</div>
<div id="content">
<% If rsShowfrontPage.EOF And rsShowfrontPage.BOF Then %>
Forside
<%else%>
<%=(rsShowfrontPage.Fields.Item("title_art").Value)%><br>
<%=(rsShowfrontPage.Fields.Item("content_art").Value)%>
<% End If ' end rsShowfrontPage.EOF And rsShowfrontPage.BOF %>
</div>
<%end if %>
<% if showdoc = 1 Then
'hvis der er klikket på punkt i højremenu
%>
<div id="right" >showdoc=1
<!--#include file="article_list.asp" -->
</div>
<div id="content">
showdoc=1
<!--#include file="article_detail.asp" -->
</div>
<%end if %>
<!-- end content -->
</div><!-- end inner -->
</div><!-- end outer -->
<div id="footer"><h1>footer</h1></div>
</div><!-- end container -->
</body>
</html>
<%
rsShowfrontPage.Close()
Set rsShowfrontPage = Nothing
%>
