<% 'open data connection Call OpenConn() %> <%'Include ADO constants include file for VBScript%> <% dim PM PM=request.querystring("PM") %> <% If (PM <> 1) then %> <%If Not(bolAltTemplate) Then%> <%Else%> <%End If%> <%If Not(bolAltTemplate) Then%> <%Else%> <%End If%> <%If Not(bolAltTemplate) Then%> <%Else%> <%End If%> <%If Not(bolAltTemplate) Then%> <%Else%> <%End If%> <%If Not(bolAltTemplate) Then%> <%Else%> <%End If%> <%End If %> <%If Not(bolAltTemplate) Then%> <% If (PM <> 1) then %> <%End If%> <%Else%> <%End If%>

<% If (PM <> 1) then %> <%End If%> <%If level2 <> "" Then Response.Write GetSectionName(level3) Else Response.Write "" End If%> <% 'dim strCurrentURL - The strCurrentURL variable is defined in the getSections.asp file. dim bolContentIsDynamic 'get the status of the current page with regards to its content (dynamic or not) bolContentIsDynamic = ContentIsDynamic(strCurrentURL) 'if the content of this page is dynamic (generated from the database) If bolContentIsDynamic Then %> <% 'if the content of this page is static (directly coded into this page) Else %> <% End If %>

<% If (PM <> 1) then %> <% End If %> <% 'close data connection Call CloseConn() %>