<!--#include file="frontCommon.asp"-->
<%
Dim action : action   = Lcase(rq("action"))
If action="" And IsArray(gArrSinglePage) Then action=gArrSinglePage(0,0)

connOpen
Dim content : content = ""
Dim pageCnName
sql = "SELECT content,pageCnName FROM singlePage_zbinfos WHERE pageName='"& action &"'"
Set rs = conn.Execute(sql)
If Not rs.EOF Then
  content = rs(0)
  pageCnName = rs(1)
End If
rs.Close
Set rs = Nothing
%><!doctype html>
<html>
<head>
<%htmlHead%>
<title><%=pageCnName%>_<%=gcSiteTitle %></title>
<meta name="keywords" content="<%=gcSiteKeywords%>" />
<meta name="description" content="<%=gcSiteDescription%>" />
<link rel="stylesheet" type="text/css" href="/css/Default/front.css"/>
<style type="text/css">
<!--
#leftNav { width:200px;float:left; }
#rightMain {margin-left:5px;float:left;width:777px!important;width:785px;height:100px;padding:3px;text-align:left;border:1px solid silver; }
-->
</style>
</head>
<body>
<div id="main">
 <%SimpleNavHeader pageCnName%>
 <div id="leftNav">
  <div class="tabsVertical">
   <%
   Dim curItem,pageName,itemStyle
   For i=0 To UBound(gArrSinglePage,1)
     curItem  = gArrSinglePage(i,0)
     pageName = GetSingle(GetSql_SinglePageName(curItem))
     If GetLen(pageName)<1 Then pageName=gArrSinglePage(i,1)
     If LCase(action)=LCase(curItem) Then itemStyle="focus" Else itemStyle="blur"
   %>
   <span class="<%=itemStyle%>"><a href="<%=curItem%>.html"><%=pageName%></a></span>
   <%Next%>
   <div class="clear"></div>
  </div>
 </div>
 <div id="rightMain"><%=content%></div>
</div>
<div class="clear"></div>
<%SimpleNavFooter%>
</body>
</html>
<%connClose%>
