<%@ CodePage=65001 Language="VBScript"%> <% Option Explicit %> <% sBBSLangPage = "albums" BBS.SetupBBS BBS.SetScheme(0) dictEnvironment.item("V-LOCATIONLINKS") = dictEnvironment.item("V-LOCATIONLINKS") & " -> " & dictLanguage("GLOBAL-LOCATION9") Function GenerateAlbumInfo(albumid, name, dateupdated, description, author, comments, photos) GenerateAlbumInfo = "" GenerateAlbumInfo = GenerateAlbumInfo & name & " " GenerateAlbumInfo = GenerateAlbumInfo & "
(" & photos & " " if photos=1 then GenerateAlbumInfo = GenerateAlbumInfo & dictlanguage("ALBUMS-PHOTO") else GenerateAlbumInfo = GenerateAlbumInfo & dictlanguage("ALBUMS-PHOTOS") end if GenerateAlbumInfo = GenerateAlbumInfo & ", " & comments & " " if comments=1 then GenerateAlbumInfo = GenerateAlbumInfo & dictlanguage("ALBUMS-COMMENT") else GenerateAlbumInfo = GenerateAlbumInfo & dictlanguage("ALBUMS-COMMENTS") end if GenerateAlbumInfo = GenerateAlbumInfo & " : " & dictLanguage("ALBUMS-LASTUPDATE") & " " & dateupdated & ")
" & Description & "

" End Function dim sOutput, SQL, iAlbumCount, rsUserPhotos, index, bColumnExists, iViewMemberID, vAlbumUserInfo set rsUserPhotos = server.createobject("ADODB.Recordset") iViewMemberID = BBS.ValidateNumeric(request.querystring("viewmember")) if iViewMemberID = 0 then iViewMemberID = -1 ' Check for permission to view this forum if not(BBS.HasPermission(PERM_ViewBBS, -1)) then response.redirect sBBSForumRoot & "/logon.asp?error=needregistration" if not(BBS.HasPermission(PERM_AlbumView, -1)) then response.redirect sBBSForumRoot & "/restricted-page.asp" if dictConfiguration("bENABLEPHOTOALBUMS") = 0 then response.redirect "../category-view.asp" set rsUserPhotos = server.createobject("ADODB.Recordset") ' Create user jump sOutput = "

" sOutput = sOutput & "" sOutput = sOutput & "" & dictLanguage("ALBUMS-RECENT") & "" & CRLF sOutput = sOutput & "" & dictLanguage("ALBUMS-SHOWALL") & "" & CRLF SQL = "select distinct members.username, members.memberid from albums, members where albums.username=members.username order by members.username asc" rsMaster.open SQL, dbConnection, adOpenStatic, adLockReadOnly do until rsMaster.EOF sOutput = sOutput & "" & BBS.ValidateField(rsMaster.fields("username").value) & "" & CRLF rsMaster.MoveNext loop rsMaster.Close sOutput = sOutput & " " sOutput = sOutput & "

" dictEnvironment("V-USERCHOOSER") = sOutput sOutput = "" ' Create the album listing vAlbumUserInfo = BBS.GetUserInfoByID(iViewMemberID) if iViewMemberID > 0 then SQL = "select albumid, name, dateupdated, description, username, commentcount, photocount from albums where username='" & BBS.ValidateSQL(vAlbumUserInfo(UI_Username)) & "'" elseif iViewMemberID = -1 then if ucase(sBBSDatabaseType) = "MYSQL" Then SQL = "select albumid, name, username, dateupdated, description, commentcount, photocount from albums order by dateupdated DESC, username ASC LIMIT 15" else SQL = "select top 15 albumid, name, username, dateupdated, description, commentcount, photocount from albums order by dateupdated DESC, username ASC" end if elseif iViewMemberID = -2 then SQL = "select albumid, name, username, dateupdated, description, username, commentcount, photocount from albums order by username ASC" end if if ucase(sBBSDatabaseType) = "MYSQL" Then rsMaster.CursorLocation = adUseClient rsMaster.open SQL, sConnString & "OPTION=16387;", adOpenStatic, adLockReadOnly else rsMaster.open SQL, dbConnection, adOpenStatic, adLockReadOnly end if iAlbumCount = rsMaster.Recordcount ' Write the first column bColumnExists = False vbString.Append "" vbString.Append "" vbString.Append "" vbString.Append "

" do until rsMaster.EOF or index > (iAlbumCount \ 3) if iViewMemberID < 0 then vbString.Append "" & BBS.ValidateField(rsMaster.fields("username").value) & " " vbString.Append GenerateAlbumInfo(rsMaster.fields("albumid").value, BBS.ValidateField(rsMaster.fields("name").value), BBS.GetShortDate(rsMaster.fields("dateupdated").value), BBS.MBBSDecode(rsMaster.fields("Description").value,0), rsMaster.fields("username").value, rsMaster.fields("commentcount").value, rsMaster.fields("photocount").value) index = index+1 rsMaster.MoveNext loop vbString.Append "

" do until rsMaster.EOF or index > ((iAlbumCount \ 3)*2) if iViewMemberID < 0 then vbString.Append "" & BBS.ValidateField(rsMaster.fields("username").value) & " " vbString.Append GenerateAlbumInfo(rsMaster.fields("albumid").value, BBS.ValidateField(rsMaster.fields("name").value), BBS.GetShortDate(rsMaster.fields("dateupdated").value), BBS.MBBSDecode(rsMaster.fields("Description").value,0), rsMaster.fields("username").value, rsMaster.fields("commentcount").value, rsMaster.fields("photocount").value) index = index+1 rsMaster.MoveNext loop vbString.Append "

" do until rsMaster.EOF if iViewMemberID < 0 then vbString.Append "" & BBS.ValidateField(rsMaster.fields("username").value) & " " vbString.Append GenerateAlbumInfo(rsMaster.fields("albumid").value, BBS.ValidateField(rsMaster.fields("name").value), BBS.GetShortDate(rsMaster.fields("dateupdated").value), BBS.MBBSDecode(rsMaster.fields("Description").value,0), rsMaster.fields("username").value, rsMaster.fields("commentcount").value, rsMaster.fields("photocount").value) index = index+1 rsMaster.MoveNext loop rsMaster.Close if ucase(sBBSDatabaseType) = "MYSQL" Then rsMaster.CursorLocation = adUseServer end if vbString.Append "

" dictEnvironment("V-ALBUMLIST") = dictLanguage.item("ALBUMS-CHOOSEANALBUM") & dictEnvironment("V-USERCHOOSER") & "

---

" & vbString.ToString() sOutput = "" dictEnvironment("C-SHOWCREATELINK") = BBS.ValidateBoolean(iBBSUserlevel >= USERLEVEL_User) dictEnvironment.add "V-TITLE", dictLanguage.item("ALBUMS-TITLE") dictEnvironment.add "C-SHOWRANDOMQUOTES", dictConfiguration("bDISPLAYBBSQUOTES") if iBBSUserLevel >= USERLEVEL_SupportAdministrator then dictEnvironment.add "C-SHOWADMINLINK", 1 %> <% Filesystem.ExecuteBBSTemplate("/photos/photo-main.asp") %>