<%dim headlines as string=""
do while dr.read()
if dr("articlespz")=0 then headlines="Show All" else headlines=dr("articlespz")
if instr(allowedzones,"," & dr("zoneid") & ",")<>0 then assigned="(Assigned)" else assigned=""
if lvl=2 or instr(allowedzones,"," & dr("zoneid") & ",")<>0 or instr(allowedzones,"," & dr("parentzoneid") & ",")<>0 or instr(allowedparents,"," & dr("zoneid") & ",")<>0 or (lvl=0 and appsettings.pblaccess="") or (lvl=1 and appsettings.edtsearch="") then
if dr("parentzoneid")=0 then
c=c+1
x=0
if lvl=2 then subzonelink="Create Subzone"
%>
| <%=c%>. |
"><%=dr("zonename")%>
<%=assigned%>
- Template : " target="_blank"><%=dr("template")%>
- Headlines : <%=headlines%>
- Description : <%=dr("description")%><%if dr("subzones")>0 then response.write("
" & dr("subzones") & " Subzones")%> |
<%=dr("zoneid")%>
<%=subzonelink%> |
|
,'<%=replace(dr("zonename"),"'","\'")%>')">
|
" target="_blank">
 |
">
|
)">
 |
<%else 'parentonzoneid=0'
x=x+1%>
 |
<%=c%>.<%=x%> |
"><%=dr("zonename")%>
<%=assigned%>
- Template : " target="_blank"><%=dr("template")%>
- Headlines : <%=dr("articlespz")%>
- Description : <%=dr("description")%> |
<%=dr("zoneid")%> |
|
,'<%=replace(dr("zonename"),"'","\'")%>')">
|
" target="_blank">
 |
">
|
)">
 |
<%end if 'parentzoneid%>
<%end if '/// Conditions
loop
dr.close()
conn.close()%>
|
<%'/// No ZOnes found : ///'
if c=0 then%>
There are no zones registered
|
<%end if%>