<% Dim allList As Object Dim i As Integer Dim timeoffset As Integer = Applications("TimeOffset") Dim allData As Object ' 0 1 2 3 4 5 Dim GalleryID As Integer, title, description As String, numberOfAlbums, numberOfPhotos, numberOfComments As Integer ' 6 7 8 9 Dim lastPhoto, lastComment As String, isPrivate, subscribed As Byte ' 10 11 Dim gtitleFilename, gtitleMem As String Dim numAlb, numpho As Integer Dim rowColor, rowColor1, rowColor2 As String Dim arrLastPhoto , arrLastComment As String() Dim objGalList As New galGalleryList() objGalList.mem = CLng(memID) allData = objGalList.galleryList() objGalList = Nothing If IsArray(allData) Then allList = ExtractOneDimension(allData, 0) End IF %> <%= Applications("ForumTitle") %> <%= Applications("metatags") %> <%= OutputCSS %> > <% headerHTML() %>
<%= allForumDesc %> >> <%= galleryDesc %>
<% If IsArray(allData) Then %> <% numAlb = 0 numpho = 0 rowColor1 = TABLEINSIDE rowColor2 = TABLEALT If Applications("alterBy") = 0 Then rowColor = "" Else rowColor = rowColor2 TABLEINSIDE = "" TABLEALT = "" End IF %> <% For i = 0 To UBound(allData, 2) %> <% If rowColor = rowColor2 Then rowColor = rowColor1 Else rowColor = rowColor2 End IF GalleryID = allData(0, i) title = HTMLEncode("" & allData(1, i)) description = allData(2, i) numberOfAlbums = allData(3, i) numberOfPhotos = allData(4, i) numberOfComments = allData(5, i) lastPhoto = allData(6, i) 'time|mem|login|photoID lastComment = allData(7, i) 'time|mem|login|photoID|commentID isPrivate = allData(8, i) subscribed = allData(9, i) gtitleFilename = allData(10, i) gtitleMem = allData(11, i) numAlb = numAlb + numberOfAlbums numpho = numpho + numberOfPhotos %> > <% Next %> <% Else %> <%End IF %>
<%= galTitleDesc %> <%= galAlbumsDesc %> <%= galPhotosDesc %> <%= galCommentsDesc %> <%= galLastPhotoDesc %> <%= galLastCommentDesc %>
colspan=6>
>
<%= title %> <%= iff(CInt(isPrivate) = 1, "", "") & iff(CInt(subscribed) = 1, " ", "") %>
<%= description %>
<% If Len(gtitleFilename) <> 0 Then %>
<% End IF %>
align="center"> <%= numberOfAlbums %> align="center"> <%= numberOfPhotos %> align="center"> <%= numberOfComments %> align="center"> <% arrLastPhoto = Split(lastPhoto & "", "|") If UBound(arrLastPhoto) = 3 Then %>
<%= SQLdate(arrLastPhoto(0), timeoffset, true) %>
<%= galByMemberDesc %> <%= HTMLEncode("" & arrLastPhoto(2)) %>
<% End IF%> 
align="center"> <% arrLastComment = Split(lastComment & "", "|") If UBound(arrLastComment) = 4 Then %>
<%= SQLdate(arrLastComment(0), timeoffset, true) %>
<%= galByMemberDesc %> <%= HTMLEncode("" & arrLastComment(2)) %>
<% End IF %> 
colspan=6 class="subhead" align="center"><%= galNoGalleryDesc %>

<% If IsArray(allData) Then %>  <%= Replace(Replace(Replace(galTotalStatDesc, "#pho#", CStr(numpho)), "#album#", CStr(numAlb)), "#gal#", CStr(UBound(allData, 2) + 1)) %>
<% End IF%>

<% footerHTML() %>