<%
If CBool(advArray(20)) then
%>
<%
If Len(advArray(0)) > 0 then
%>
|
|
<%
End If
If Len(advArray(2)) > 0 then
%>
|
|
<%
End If
If Len(advArray(4)) > 0 then
%>
|
|
<%
End If
If Len(advArray(6)) > 0 then
%>
|
|
<%
End If
If Len(advArray(8)) > 0 then
%>
|
|
<%
End If
%>
|  "
End If
%>
|
 |
|
 |
 |
<%
'*** Begin Left Portal Bar
If (advArray(26) OR scr_Name = "default.asp") AND Instr(scr_Name, "admin") = 0 AND _
NOT scr_Name = "update.asp" AND _
NOT scr_Name = "post_new2.asp" AND _
NOT scr_Name = "process.asp" Then
sdd = dd(objConn)
strSQL = "SELECT * FROM " & tablPfx & "Main;"
set rsmain = objConn.Execute(strSQL)
head_left1 = rsmain(1): display_left1 = rsmain(2): top_left1 = rsmain(3)
head_left2 = rsmain(4): display_left2 = rsmain(5): top_left2 = rsmain(6)
head_left3 = rsmain(7): display_left3 = rsmain(8): top_left3 = rsmain(9)
head_right1 = rsmain(10): display_right1 = rsmain(11): top_right1 = rsmain(12)
head_right2 = rsmain(13): display_right2 = rsmain(14): top_right2 = rsmain(15)
head_right3 = rsmain(16): display_right3 = rsmain(17): top_right3 = rsmain(18)
with_left = rsmain(19): with_right = rsmain(20)
rsmain.close
templateName = "Main_Page_Center"
set rstmpl = objConn.Execute("SELECT " & tablPfx & "Template.body FROM " & tablPfx & "Template WHERE tname='" & templateName & "';")
If not rstmpl.EOF then strbody = rstmpl(0)
rstmpl.close
%>
<%
If advArray(27) then
%>
 |
 |
 |
 |
<%= head_left1 %> |
 |
|
<% Response.Write BuildContent(display_left1, top_left1, 1) %>
|
|
 |
 |
 |
|
|
|
|
|
<%= head_left2 %> |
|
|
<% Response.Write BuildContent(display_left2, top_left2, 2) %>
|
|
|
|
|
|
|
|
|
|
<%= head_left3 %> |
|
|
<% Response.Write BuildContent(display_left3, top_left3, 3) %>
|
|
|
|
|
|
<%
End If
%>
<%
End If
%>
| | | |