<%if bShowImages=true then %>
<%
for i = 0 to UBound(aImages)
%> <%=aImageLinks(i)%>%>)
<% if len(aImageCaptions(i)) > 0 then %>
<%=aImageLinks(i)%><%=aImageCaptions(i)%>
<% end if %>
<%
next
%>
|
|
<%end if%>
<%if not isnull(sParentID) and len(sParentID)>0 then%>
| <%=sParentName%> |
| Back to <%=sParentName%> |
<% end if %>
<% if bAnnouncements or bEvents or bGallery or bContacts or bLinks then %>
| Content |
|
<% if bAnnouncements then %>
Announcements
<% end if %>
<% if bEvents then %>
Events
<% end if %>
<% if bGallery then %>
Photo Gallery
<% end if %>
<% if bLinks then %>
Links
<% end if %>
<% if bContacts then %>
Contacts
<% end if %>
|
<% end if %>
<%
dim sSubGroups
sSubGroups = ""
set oCmd = Server.CreateObject("ADODB.Command")
oCmd.ActiveConnection = oConn
oCmd.CommandType = adCmdStoredProc
oCmd.CommandText = "p_SelectSubGroupsTop6"
oCmd.Parameters.Append oCmd.CreateParameter("@GroupID", adInteger, adParamInput, 4, iGroupID)
oCmd.Execute
set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open oCmd, , adOpenStatic, adLockReadOnly
i = 0
while not oRs.EOF
i = i + 1
if i <= nNumberSubGroups then
sSubGroups = sSubGroups & "" & oRs.Fields("GroupName").Value & "
" & vbcrlf
end if
oRs.MoveNext
wend
oRs.close
set oRs = nothing
set oCmd = nothing
if len(sSubGroupName) = 0 or isnull(sSubGroupName) then
sSubGroupName = "SubGroups"
end if
if len(sSubGroups) > 0 then
%>
| <%=sSubGroupName%> |
|
<%=sSubGroups%>
<% if i > nNumberSubGroups then %>
» more...
<% end if %>
|
<% end if %>
<%
if bAnnouncements then%>
<%
Response.Write sAnnouncements
%>
<%=sLongDescription%>
<%
if bEvents then%>
<%
Response.Write sEvents
end if
if bLinks then%>
<%
Response.Write sLinks
end if
if bContacts then%>
<%
Response.Write sContacts
end if
if not bAnnouncements and not bEvents and not bContacts and not bLinks and not bGallery then %>
<% end if %>
|