<@ Language="VBScript" >< Response.Buffer=True ><!--#include file="includes/serverfunc.inc" -->< Dim zSiteInitialized,zGotSite,zImages,zIndex,zRoundRobin,zPortalControlChange zPortalControlChange=False zSiteInitialized=False zGotSite=False If IsEmpty(Session("Main_Initialized")) Then Session("Main_Initialized")=True Session("Main_Change_Site")=-1 Session("Main_Change_User")=-1 Session("Main_Change_Class")=-1 Session("Main_Change_Module")=-1 End If 'Session("System_DBConnected")=False If Not Session("System_DBConnected") Then Portal_GetSite zGotSite=True zSiteInitialized=True End If Set Conn=Session("System_DBConnection") zSiteClient=Session("Site_Client") If IsEmpty(Application("PortalControl_Counter")) Then Application("PortalControl_Counter")=-1 SetPortalEnvironment End If REM === Change Log Table === Q="Select * From ChangeLog Where chg_client='" & zSiteClient & "' Or chg_client='portal' " Set RS=Conn.Execute(Q) CheckError zSiteChange=False Do While Not RS.EOF If RS("chg_client")="portal" Then If Application("PortalControl_Counter")<>RS("chg_value") Then Application("PortalControl_Counter")=RS("chg_value") zPortalControlChange=True End If Session("SiteChange_" & zSiteClient)=RS("chg_value") End If Session("SiteChange_" & zSiteClient)=RS("chg_value") RS.MoveNext Loop If Session("Main_SiteChange")<>Session("SiteChange_" & zSiteClient) Then If zSiteInitialized=False Then Portal_GetSite zGotSite=True End If End If REM ------------------------------------------------------- REM USER ACCOUNT CHECK AND RIGHTS ASSIGNMENT REM ------------------------------------------------------- If Len(Session("Sec_UserName"))=0 Then AuthUser Session("Site_PublicAcc"),Session("Site_PublicPW") If Len(Session("Sec_UserName"))=0 Then StopUser "account" End If Session("Main_PortalChange")=Session("SiteChange_Portal") Else Session("Auth_PasswordEncoded")=False AuthUser Session("Sec_UserName"),Session("Sec_Password") End If If Len(Session("Sec_UserName"))=0 Then StopUser "account" End If If Session("Site_PublicAcc")=Session("Sec_UserName") Then Session("Auth_PublicAcc")=True Else Session("Auth_PublicAcc")=False If zGotSite Then Portal_EnumerateClass "portal","control",True Session("Mem_Client")=Session("Site_Client") zImages=Session("Site_CommonUrl1") Session("Main_Common1")=GetSCV("Control",zImages,"") & "/common" zImages=Session("Site_CommonUrl2") Session("Main_Common2")=GetSCV("Control",zImages,"") & "/common" zImages=Session("Site_CommonUrl3") Session("Main_Common3")=GetSCV("Control",zImages,"") & "/common" zImages=Session("Site_CommonUrl4") Session("Main_Common4")=GetSCV("Control",zImages,"") & "/common" zImages=Session("Site_ImagesUrl1") Session("Main_Images1")=GetSCV("Control",zImages,"") & "/" & Session("Site_Client") Session("Main_PortalImages1")=GetSCV("Control",zImages,"") zImages=Session("Site_ImagesUrl2") Session("Main_Images2")=GetSCV("Control",zImages,"") & "/" & Session("Site_Client") Session("Main_PortalImages2")=GetSCV("Control",zImages,"") zImages=Session("Site_ImagesUrl3") Session("Main_Images3")=GetSCV("Control",zImages,"") & "/" & Session("Site_Client") Session("Main_PortalImages3")=GetSCV("Control",zImages,"") zImages=Session("Site_ImagesUrl4") Session("Main_Images4")=GetSCV("Control",zImages,"") & "/" & Session("Site_Client") Session("Main_PortalImages4")=GetSCV("Control",zImages,"") zImages=Session("Site_MediaUrl1") Session("Main_Media1")=GetSCV("Control",zImages,"") & "/" & Session("Site_Client") zImages=Session("Site_MediaUrl2") Session("Main_Media2")=GetSCV("Control",zImages,"") & "/" & Session("Site_Client") zImages=Session("Site_MediaUrl3") Session("Main_Media3")=GetSCV("Control",zImages,"") & "/" & Session("Site_Client") zImages=Session("Site_MediaUrl4") Session("Main_Media4")=GetSCV("Control",zImages,"") & "/" & Session("Site_Client") REM === Check Round Robbin === zIndex=1 If Session("Site_Distributed") Then zDistTarget="SiteDist_" & Session("Site_Client") & "_Pointer" If IsEmpty(Application(zDistTarget)) Then Application(zDistTarget)=0 Application.Lock zRoundRobin=Application(zDistTarget) 1 Application(zDistTarget)=zRoundRobin Application.UnLock zIndex=(zRoundRobin Mod 4) 1 End If REM === Default Locations === Session("Main_Common")=Session("Main_Common" & zIndex) Session("Main_UI")=Session("Main_Common") & "/images/ui/" Session("Main_Images")=Session("Main_Images" & zIndex) Session("Main_PortalImages")=Session("Main_PortalImages" & zIndex) Session("Main_Media")=Session("Main_Media" & zIndex) End If If Session("Main_SiteChange")<>Session("SiteChange_" & zSiteClient) Then Session("Main_SiteChange")=Session("SiteChange_" & zSiteClient) Portal_EnumerateClass zSiteClient,"",False Portal_ReadModules End If If zPortalControlChange Then SetPortalLocations REM ======================================================= REM DISPATCHER & MODULES DETECTION / PROCESSING REM ======================================================= REM ----------------- VARS LIST ------------------------------ REM zCmd: Commands - Process by modules, To Do A Specific Task REM zPage: Requested Module ID, Used To Dispatch To Layout REM zKey*: Used By Modules, Index Or Key Or Field, Data REM UI_Command: Copy Of zCmd Used By User Interface Functions REM ---------------------------------------------------------- Session("Main_SiteName")=GetSCV("Site","Name","") Session("Main_SiteContact")=GetSCV("Site","Contact","") Session("Main_OnLineStore")=GetSCV("Products","OnLineStore","0") Session("Main_SalesAccount")=GetSCV("Products","SalesAccount","") If Len(Session("Main_SalesAccount"))=0 Then Session("Main_OnLineStore")="0" End If Session("Main_PrevModule")=Session("Main_Page") Session("Main_PrevCommand")=Session("Main_Command") Session("Main_PrevKey")=Session("Main_Key") REM ------------------------------------------------------- REM GET / POST DETECTION - GLOBAL VARIABLES ASSIGNMENT REM ------------------------------------------------------- zHackCheck=LCase(Request.QueryString()) If Instr(zHackCheck,"declare") Or Instr(zHackCheck,"exec") Or Len(zHackCheck)>64 Then For X=1 To 100000 Response.Write "<div style='color:#ff0000; font-family:verdana; font-size:18pt; font-weight:bold; text-align:center;'>" _ & "ERROR DETECTED ... PROCESS TERMINATED! <br></div>" Response.Write "<div style='color:#ff00ff; font-family:verdana; font-size:15pt; font-weight:bold; text-align:center;'>" _ & UCase(Request.ServerVariables("http_host")) & " CANNOT CONTINUE...PLEASE GO BACK" _ & "</div><br>" Response.Write "<div style='color:#0000ff; font-family:verdana; font-size:15pt; font-weight:bold; text-align:center;'>" _ & "SORRY FOR ANY INCONVENIENCE!" _ & "</div><br>" Next Response.End End if zRequests=Request.QueryString("_Requests") If IsEmpty(zRequests) Then zRequests="" If IsNull(zRequests) Then zRequests="" If Len(zRequests)=0 Then zRequests=FixString(Request.Form("_Requests")) End If If IsNumeric(zRequests) Then zRequests=CInt(zRequests) Else zRequests=Session("Main_Requests") End If zRefresh=(Session("Main_Requests")-zRequests)<>1 zCmd=Request.QueryString("_Cmd") If IsEmpty(zCmd) Then zCmd="" If Len(zCmd)=0 Then zCmd=FixString(Request.Form("_Cmd")) End If zCmd=LCase(zCmd) If IsEmpty(Session("Main_PrevModule")) Then Session("Main_PrevModule")="homepage" REM zCmd="collapsemenu" End If UI_Command=zCmd N="" M="State_" For Each Item in Request.Form N=Left(Item,Len(M)) If M=N Then Session(Item)=Request.Form(Item) End If Next zSubSec=Request.Form("_SubSec") If IsEmpty(zSubSec) Then zSubSec="" If Len(zSubSec)>0 Then N=M & zSubSec Z=Session(N) If Z="block" Then Session(N)="none" Else Session(N)="block" End If If IsEmpty(zPage) Then zPage="" Else zPage=Request.Form("_Page") If IsEmpty(zPage) Then zPage="" If Len(zPage)=0 Then zPage=Request.QueryString("_Page") If IsEmpty(zPage) Then zPage="" End If End If If Len(zPage)=0 Then zPage=Session("Main_PrevModule") End If Session("Main_PrevModule")=zPage zPage=LCase(zPage) zFunc=Request.QueryString("_Func") If IsEmpty(zFunc) Then zFunc="" If Len(zFunc)=0 Then zFunc=Request.Form("_Func") If IsEmpty(zFunc) Then zFunc="" End If zKey=Request.QueryString("_Key") If IsEmpty(zKey) Then zKey="" If Len(zKey)=0 Then zKey=Request.Form("_Key") If IsEmpty(zKey) Then zKey="" End If zKey1=Request.QueryString("_Key1") If IsEmpty(zKey1) Then zKey1="" If Len(zKey1)=0 Then zKey1=Request.Form("_Key1") If IsEmpty(zKey1) Then zKey1="" End If zKey2=Request.QueryString("_Key2") If IsEmpty(zKey2) Then zKey2="" If Len(zKey2)=0 Then zKey2=Request.Form("_Key2") If IsEmpty(zKey2) Then zKey2="" End If zKey3=Request.QueryString("_Key3") If IsEmpty(zKey3) Then zKey3="" If Len(zKey3)=0 Then zKey3=Request.Form("_Key3") If IsEmpty(zKey3) Then zKey3="" End If zKey4=Request.QueryString("_Key4") If IsEmpty(zKey4) Then zKey4="" If Len(zKey4)=0 Then zKey4=Request.Form("_Key4") If IsEmpty(zKey4) Then zKey4="" End If zKey5=Request.QueryString("_Key5") If IsEmpty(zKey5) Then zKey5="" If Len(zKey5)=0 Then zKey5=Request.Form("_Key5") If IsEmpty(zKey5) Then zKey5="" End If zReferer=Request.QueryString("Referer") If Len(zReferer)>0 Then Session("Main_Referer")=zReferer zCallBack=Request.Form("_CallBack") If IsEmpty(zCallBack) Then zCallBack="0" REM ------------------------------------------------------- REM SAVE COPY OF KEY VARIABLES - FOR RETURN OR SUB PROC REM ------------------------------------------------------- Session("Main_Page")=zPage Session("Main_Func")=zFunc Session("Main_Function")=zFunc Session("Main_Cmd")=zCmd Session("Main_Command")=zCmd Session("Main_Key")=zKey Session("Main_Key1")=zKey1 Session("Main_Key2")=zKey2 Session("Main_Key3")=zKey3 Session("Main_Key4")=zKey4 Session("Main_Key5")=zKey5 If Len(zKey1)>0 Then Session("Main_PrevMenu")=zKey1 If LCase(zFunc)="none" Or LCase(zFunc)="nofunc" Or zFunc="noclass" Then zFunc="" If LCase(zCmd)="none" Or LCase(zCmd)="nocmd" Then zCmd="" Session("Display_FormField")=False UI_TopRecords=Session("Site_DspPerPage") If UI_TopRecords<1 Then UI_TopRecords=1 REM ------------------------------------------------------- REM CONNECT TO MUSICDB AND RETRIEVE SECTIONS INSTRUCTION REM ------------------------------------------------------- If (LCase(zSiteClient)="portal" Or Session("Sec_Administrator")) And Not Session("Auth_PublicAcc") Then SetClientClassQS "Site" SetClientClassQS "HTML" SetClientClassQS "DBTypes" Portal_EnumerateClass "portal","#",True If Not PortalMaster Then If GetSCV("Control","Administration","0")<>"1" Or Not Session("Site_Administration") Then Response.Redirect "NoAdmin.asp" End If End If zExclusiveDSP=";" & GetSCV("Control","ExclusiveDSP","") & ";" zExclusiveDSP=LCase(Replace(zExclusiveDSP," ","")) If Instr(zExclusiveDSP,";" & zPage & ";")>0 Then Q="Select * From DSP Where dsp_enabled=1 And dsp_admin=1 And ( CharIndex(';" & zPage & ";',dsp_noaccess)=0 " _ & " And ( CharIndex(';" & zPage & ";',dsp_access)>0 ) And ( dsp_client='" & Session("Site_Client") & "' " _ & " Or ( CharIndex(';" & Session("Site_Client") & ";',dsp_adminaccess)>0 Or CharIndex(';all;',dsp_adminaccess)>0 ) ) " _ & " ) Order by dsp_seq,dsp_index" Else Q="Select * From DSP Where dsp_enabled=1 And dsp_admin=1 And ( CharIndex(';" & zPage & ";',dsp_noaccess)=0 " _ & " And ( CharIndex(';" & zPage & ";',dsp_access)>0 " _ & " Or CharIndex(';all;',dsp_access)>0 ) " _ & " And ( dsp_client='" & Session("Site_Client") & "' " _ & " Or ( CharIndex(';" & Session("Site_Client") & ";',dsp_adminaccess)>0 " _ & " Or ( CharIndex(';all;',dsp_adminaccess)>0 And CharIndex('" & Session("Site_Client") & "',dsp_noadminaccess)=0 ) ) ) " _ & " ) Order by dsp_seq,dsp_index" End If If Application("PortalSite_PageCounter") Then Session("Counter_Pages")=GetSCV("Control","CounterPages","") Session("Counter_PageEnabled")=Len(Session("Counter_Pages"))>0 If Session("Counter_PageEnabled") Then If Instr(Session("Counter_Pages"),";" & LCase(zPage) & ";")>0 Or Instr(Session("Counter_Pages"),";all;")>0 Then UpdateCounter "Page",zPage,0,"" End If End If End If Else zExclusiveDSP=";" & GetSCV("System","ExclusiveDSP","") & ";login;logoutverified;" zExclusiveDSP=LCase(Replace(zExclusiveDSP," ","")) If Instr(zExclusiveDSP,";" & zPage & ";")>0 Then Q="Select Top " & UI_TopRecords & " * From DSP Where dsp_enabled=1 And CharIndex(';" & zPage & ";',dsp_noaccess)=0 " _ & " And CharIndex(';" & zPage & ";',dsp_access)>0 " _ & " And ( dsp_client='" & Session("Site_Client") & "' Or dsp_public=1 ) " _ & " Order by dsp_seq,dsp_level,dsp_index" Else zExclusiveDSP=";" & GetSCV("System","NoPublicDSP","") & ";" zExclusiveDSP=LCase(Replace(zExclusiveDSP," ","")) If Instr(zExclusiveDSP,";" & zPage & ";")>0 Then Q="Select Top " & UI_TopRecords & " * From DSP Where dsp_enabled=1 And CharIndex(';" & zPage & ";',dsp_noaccess)=0 " _ & " And ( CharIndex(';" & zPage & ";',dsp_access)>0 " _ & " Or CharIndex(';all;',dsp_access)>0 ) " _ & " And ( dsp_client='" & Session("Site_Client") & "') " _ & " Order by dsp_seq,dsp_level,dsp_index" Else Q="Select Top " & UI_TopRecords & " * From DSP Where dsp_enabled=1 And CharIndex(';" & zPage & ";',dsp_noaccess)=0 " _ & " And ( CharIndex(';" & zPage & ";',dsp_access)>0 " _ & " Or CharIndex(';all;',dsp_access)>0 ) " _ & " And ( dsp_client='" & Session("Site_Client") & "' " _ & " Or ( dsp_public=1 And ( CharIndex(';" & Session("Site_Client") & ";',dsp_publicaccess)>0 " _ & " Or ( CharIndex(';all;',dsp_publicaccess)>0 And CharIndex('" & Session("Site_Client") & "',dsp_nopublicaccess)=0 ) ) ) " _ & " ) Order by dsp_seq,dsp_level,dsp_index" End If End If If Session("Site_PageCounter") Then Session("Counter_Pages")=GetSCV("System","CounterPages","") Session("Counter_PageEnabled")=Len(Session("Counter_Pages"))>0 If Session("Counter_PageEnabled") Then If Instr(Session("Counter_Pages"),";" & LCase(zPage) & ";")>0 Or Instr(Session("Counter_Pages"),";all;")>0 Then UpdateCounter "Page",zPage,GetSCV("System","CounterVersion","0"),"" End If End If End If End If Set MN=Conn.Execute(Q) CheckError REM ======================================================= REM HTML HEADING FOLLOWS REM ======================================================= UI_ShowSectionMarkers=GetSCV("System","ShowSectionMarkers","0") UI_ShowModuleMarkers=GetSCV("System","ShowModuleMarkers","0") UI_EnablePortalVariables=GetSCV("Control","EnablePortalVariables","1") UI_EnableSessionVariables=GetSCV("Control","EnableSessionVariables","0") UI_EnableApplicationVariables=GetSCV("Control","EnableApplicationVariables","0") UI_EnableServerVariables=GetSCV("Control","EnableServerVariables","0") ><!-- <=GetSCV("Control","CSSCM_1A","CasTek Systems Solutions - Content Manager - V1.42") > --><!-- <=GetSCV("Control","CSSCM_2","Developed and Maintained by Castek Systems Solutions (developer@casteksystems.net)") > --><html><head><If Session("Sec_Administrator") Then><title><=Session("Site_AdminTitle")></title><Else><title><=GetSCV("Site","Title","::")></title><End If><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><meta http-equiv="Expires" content="<=Date()>" /><meta name="Description" content="<=GetSCV("Site","Description","CSS Generated Web Page")>" /><meta name="Keywords" content="<=GetSCV("Site","Keywords","Home Site")>" /><meta name="Security" content="public" /><meta name="Robots" content="index,follow" />< zPageRefresh=GetSCV("PageRefresh",zPage,"0") If zPageRefresh<>"0" Then Response.Write "<meta http-equiv=Refresh content=" & zPageRefresh & "; URL=/;>" End If><link rel="stylesheet" type="text/css" href="../styles/global.css" /><link rel="stylesheet" type="text/css" href="../styles/boxclass.css" /><script Language="JavaScript" src="../includes/clientfunc.js"></script><If Session("Main_UserAgent")="MSIE" Then><script Language="JavaScript" src="../includes/clientfunc_ie.js"></script><Else><script language="JavaScript" src="../includes/clientfunc_ot.js"></script><End If><Response.Write GetSCV("HTML","Head","")></head>< SetDefaultSchemes ClearStopError REM ======================================================= REM DISPATCH TO LAYOUT REM ======================================================= REM ------------------------------------------------------- REM SETTING UP DEFAULT USER INTERFACE VIA BEGINUI SUB REM ------------------------------------------------------- Z=GetPortalStyle(GetSCV("Site","Style","green")) SetBoxSpacing 0 SetBoxPadding 0 SetUI Z,"","","","","" BeginUI SiteDoc "Layout:Site Setup" Response.Write "<tr><td valign='top'><table cellspacing='0' cellpadding='0' border='0' width='100'>" SetGlobalOptions True,True CheckError REM ======================================================= REM START OF DISPATCHER SECTION REM ======================================================= SetUIBase "inner" BeginDispatch "Top" REM ------------------------------------------------------- REM DISPLAY SITE TOP REM ------------------------------------------------------- MN.Filter="dsp_seq=0" Do While Not MN.EOF DisplaySection MN.MoveNext Loop SetUIBase "body" BeginDispatch "Global" REM Global Containers MN.Filter="dsp_seq=99" REM ------------------------------------------------------- REM DISPLAY GLOBAL CONTAINERS REM ------------------------------------------------------- Do While Not MN.EOF DisplaySection MN.MoveNext Loop SetUIBase "inner" SiteDoc "Layout:Heading, Left, _Main, Center, Middle, Sub, Right, Footer" Response.Write "<tr><td><table width='100' cellspacing='0' cellpadding='0' border='0' " & GetSCV("HTML","Section_Global","") & ">" MN.Filter="dsp_seq=1" REM ------------------------------------------------------- REM DISPLAY HEADINGS REM ------------------------------------------------------- BeginDispatch "Heading" Do While Not MN.EOF DisplaySection MN.MoveNext Loop SiteDoc "Heading-Main Sections Spacing" If GetSCV("Site","HeaderSpacing","0")<>"0" Then Response.Write "<tr><td>" DisplaySpacing GetSCV("Site","HeaderSpacing","0") Response.Write "</td></tr>" End If REM ------------------------------------------------------- REM START CONTENT ROW REM ------------------------------------------------------- SiteDoc "Sections Dispatcher - For Heading Thru Footer" Response.Write "<tr><td><table width='100' border='0' cellspacing='0' cellpadding='0'><tr>" If GetSCV("Site","InnerSpacing","0")<>"0" Then SiteDoc "Left Padding" Response.Write "<td width='1' valign='top'><table cellspacing='" & GetSCV("Site","InnerSpacing","0") & "' cellpadding='0' width='100' border='0'>" Response.Write "<tr><td width=1 align=left valign=top>" Response.Write "</td></tr>" Response.Write "</table></td>" End If REM ------------------------------------------------------- REM LEFT SECTION REM ------------------------------------------------------- BeginDispatch "Left" zDisp=False MN.Filter="dsp_seq=2" If Not MN.EOF Then zDisp=True Response.Write vbCRLF & "<td valign='top'" & GetSCV("HTML","Section_Left","") & " width='" & GetSCV("Site","LeftColumnWidth","180") & "'>" Response.Write "<table cellspacing='0' cellpadding='0' border='0' width='" & GetSCV("Site","LeftColumnWidth","200") & "'>" Response.Write vbCRLF End If Do While Not MN.EOF DisplaySection MN.MoveNext Loop If zDisp Then Response.Write "</table></td>" End If REM ================ Pad Between Left And Main ================= SiteDoc "Left/Main Padding" Response.Write "<td width='1' valign='top'><table cellspacing='" & GetSCV("Site","SectionSpacing","0") & "' cellpadding='0' width='100' border='0'>" Response.Write "<tr><td width='1' align='left' valign='top'>" Response.Write "</td></tr>" Response.Write "</table></td>" SiteDoc "Layout:_Main, Center, Middle, Sub Sections" Response.Write "<td width='100' valign='top'><table cellspacing='0' cellpadding='0' width='100' border='0'>" Response.Write "<tr>" BeginDispatch "_Main" REM ------------------------------------------------------- REM _MAIN SECTION REM ------------------------------------------------------- zDisp=False MN.Filter="dsp_seq=3" If Not MN.EOF Then zDisp=True Response.Write "<td align='left' width='100' valign='top'><table cellspacing='0' cellpadding='0' width='100' border='0' " & GetSCV("HTML","Section_Main","") & ">" End If Do While Not MN.EOF DisplaySection MN.MoveNext Loop If zDisp Then Response.Write "</table></td>" End If Response.Write "</tr>" BeginDispatch "Center" REM ----------- REM CENTER REM ----------- zDisp=False MN.Filter="dsp_seq=4" zLevel=-999 Do While Not MN.EOF If zLevel<>MN("dsp_level") Then zDisp=True If zLevel<>-999 Then Response.Write "</tr></table></td>" End If Response.Write "<tr>" Response.Write "<td align='" & MN("dsp_align") & "' width='0' valign='top'><table cellspacing='" & GetSCV("Site","MainSpacing","0") & "' cellpadding='0' border='0' " & GetSCV("HTML","Section_Center","") & "><tr>" zLevel=MN("dsp_level") End If Response.Write "<td width='" & MN("dsp_width") & "' valign='top'><table width=100 cellspacing='0' cellpadding='0' border='0'><tr><td>" DisplaySection Response.Write "</td></tr></table></td>" MN.MoveNext Loop If zDisp Then Response.Write "</tr></table></td>" Response.Write "</tr>" End If BeginDispatch "Middle" REM ----------- REM MIDDLE REM ----------- zDisp=False MN.Filter="dsp_seq=5" zLevel=-999 If Not MN.EOF Then Response.Write "<tr>" Response.Write "<td align='" & MN("dsp_align") & "' width='0' valign='top'><table cellspacing='" & GetSCV("Site","MainSpacing","0") & "' cellpadding='0' border='0' " & GetSCV("HTML","Section_Middle","") & "><tr>" zDisp=True End If Do While Not MN.EOF If zLevel<>MN("dsp_level") Then zDisp=True If zLevel<>-999 Then Response.Write "</tr><tr>" End If zLevel=MN("dsp_level") End If Response.Write "<td align='" & MN("dsp_align") & "' width='" & MN("dsp_width") & "' valign='top'><table align=center width=100 cellspacing='0' cellpadding='0' border='0'><tr><td>" DisplaySection Response.Write "</td></tr></table></td>" MN.MoveNext Loop If zDisp Then Response.Write "</tr></table></td>" Response.Write "</tr>" End If Response.Write "<tr>" BeginDispatch "Sub" REM ------------------------------------------------------- REM MAIN-TOP SECTION REM ------------------------------------------------------- zDisp=False MN.Filter="dsp_seq=6" If Not MN.EOF Then zDisp=True Response.Write "<td align='left' width='100' valign='top'><table cellspacing='0' cellpadding='0' width='100' border='0' " & GetSCV("HTML","Section_Sub","") & ">" End If Do While Not MN.EOF DisplaySection MN.MoveNext Loop If zDisp Then Response.Write "</table></td>" End If Response.Write "</tr>" SiteDoc "Layout:End Main Sections" Response.Write "</tr></table></td>" SiteDoc "Pad Between Main And Right Sections" REM ================ Pad Between Main Sections And Right Section ================= Response.Write "<td width='1' valign='top'><table cellspacing='" & GetSCV("Site","SectionSpacing","0") & "' cellpadding='0' width='100' border='0'>" Response.Write "<tr><td width='1' align='left' valign='top'>" Response.Write "</td></tr>" Response.Write "</table></td>" BeginDispatch "Right" REM ------------------------------------------------------- REM RIGHT SECTION REM ------------------------------------------------------- zDisp=False MN.Filter="dsp_seq=7" If Not MN.EOF Then zDisp=True Response.Write "<td width='1' valign='top'" & GetSCV("HTML","Section_Right","") & " width='" & GetSCV("Site","RightColumnWidth","0") & "'>" Response.Write "<table cellspacing='0' cellpadding='0' border='0' width='" & GetSCV("Site","RightColumnWidth","0") & "'>" End If Do While Not MN.EOF DisplaySection MN.MoveNext Loop If zDisp Then Response.Write "</table></td>" End If SiteDoc "Right Edge Spacing" If GetSCV("Site","InnerSpacing","0")<>"0" Then Response.Write "<td width='1' valign='top'><table cellspacing='" & GetSCV("Site","InnerSpacing","0") & "' cellpadding='0' width='100' border='0'>" Response.Write "<tr><td width='1' align='left' valign='top'>" Response.Write "</td></tr>" Response.Write "</table></td>" End If SiteDoc "Layout:Close Left/Main/Right Sections" Response.Write "</tr></table></td>" Response.Write "</tr>" BeginDispatch "Footer" REM ------------------------------------------------------- REM FOOTER SECTION REM ------------------------------------------------------- MN.Filter="dsp_seq=8" REM Display Footers Do While Not MN.EOF DisplaySection MN.MoveNext Loop REM - CONTENT CONTAINER Response.Write "</table></td></tr>" REM Reference DisplaySection Subroutine - command below (sub) closes/cleanup global boxes/containers CloseGlobalContainers SetUIBase "body" Z=GetPortalStyle(GetSCV("Site","Style","green")) SetBoxSpacing 0 SetBoxPadding 0 SetUI Z,"","","","","" BeginDispatch "Bottom" REM -------------- REM BOTTOM SECTION REM -------------- MN.Filter="dsp_seq=9" Do While Not MN.EOF DisplaySection MN.MoveNext Loop Response.Write "</table></td>" SetUIBase "inner" REM ---------- REM AD SECTION REM ---------- MN.Filter="dsp_seq=10" If Not MN.EOF Then BeginDispatch "Advertisement" Response.Write "<td width='1' align='left' valign='top'" & GetSCV("HTML","Section_Advertise","") & "><table border='0' cellspacing='0' cellpadding='0'>" End If Do While Not MN.EOF DisplaySection MN.MoveNext Loop Response.Write "</table></td>" Rem End Global Row Response.Write "</tr>" Response.Write "<tr><td>" ShowDebug Response.Write "</td></tr>" EndUI REM ======================================================= REM END OF DISPATCHER SECTION REM ======================================================= REM ======================================================= REM CLIENT SIDE MESSAGE DISPLAY / DEBUGGING ROUTINE REM ======================================================= Session("System_FormEditRestrict")=False If Session("System_CriticalError") Then zInfo="vbCritical" Else zInfo="vbInformation" End If zAddr=Session("System_RedirectAddress") zMsg=Session("System_FormReturnMessage") zMsg=Replace(zMsg,Chr(1),"...")><If Len(zMsg)>0 Then><script type="text/javascript" Language="JavaScript"> alert("<=zMsg>");</script><End If><If Len(zAddr)>0 Then><script type="text/javascript" Language="JavaScript"> window.location = "<=zAddr>";</script><End If>< Session("System_FormInlineMessage")="" Session("System_RedirectAddress")="" Session("System_FormReturnMessage")="" Session("System_CriticalError")=False Session("System_RetryCount")=0 REM Hit Counter Section If IsEmpty(Session("System_SessionActive")) Then Session("System_SessionActive")=False If Session("System_SessionActive")=False Then Session("System_SessionActive")=True UpdateHitCounter End If REM ======================================================= REM END HTML - CLOSING TAGS REM ======================================================= Session("Main_PrevPage")=Session("Main_Page") Session("Main_SystemChange")=False></body></html>