<% Option Explicit %>
<% Response.Buffer = True %>
<% Response.Expires = -1 %>
<% Response.CacheControl = "Public" %>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** iPortalX.com
'**
'** Copyright 2001-2003 Drew Gauderman All Rights Reserved.
'**
'** This program is a paid software; you can modify (at your own risk) any part of it
'** under the terms of the License that accompanies this software and use it both
'** privately and commercially.
'**
'** All copyright notices must remain in tacked in the scripts and the
'** outputted HTML.
'**
'** You may NOT use parts of this program in your own private work, and you may NOT
'** redistribute, repackage, or sell the whole or any part of this program even
'** if it is modified or reverse engineered in whole or in part without express
'** permission from the author.
'**
'** You may not pass the whole or any part of this application off as your own work.
'**
'** All links to iPortalX.com and powered by logo's (if any) must remain unchanged and in place
'** and must remain visible when the pages are viewed unless permission is first granted
'** by the copyright holder.
'**
'** This program is distributed in the hope that it will be useful,
'** but WITHOUT ANY WARRANTY; without even the implied warranty of
'** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER
'** WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'**
'** Support is for those that have purchased it. Post support questions at: -
'** http://www.iportalx.com/forum
'**
'** Support questions are NOT answered by e-mail ever!
'**
'** For correspondence or non support questions contact: -
'** support@iportalx.com
'**
'****************************************************************************************
Response.Buffer = True
'Make sure this page is not cached
'Do not remove this stuff
'-------------
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "private"
Dim blnBannedIP
If bannedIP() Then
'If the user is using a banned IP then set the banned IP variable to true and active member variable to false
blnBannedIP = True
blnActiveMember = False
End If
'-------------
blnUseRightColumn = False
%>
<% = strWebsiteName %> - Image Gallery
<%
Dim intGalleryID
Dim strGalleryName
Dim strGalleryDescription
Dim intGalleryImages
Dim strGalleryImage
Dim intTotalAlbums
Dim strGalleryPermissions
Dim intGalleryCount
Dim intGalleryAuthorID
Dim blnUserHasGallery
blnUserHasGallery = False
intGalleryCount = 0
Response.Write(vbCrLf & "")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ![]() Image Gallery | ")
Response.Write(vbCrLf & "
")
Response.Write(vbCrLf & "
")
Response.Write(vbCrLf & "
")
strSQL = "SELECT " & strDBTable & "ImageGalleries.* FROM " & strDBTable & "ImageGalleries " & _
"WHERE (" & strDBTable & "ImageGalleries.Gallery_sub_ID = 0 AND " & strDBTable & "ImageGalleries.Author_ID = 0) " & _
"ORDER BY " & strDBTable & "ImageGalleries.Gallery_name;"
rsCommon.Open strSQL, adoCon
If rsCommon.EOF Then
Call FormatTopTable2("100%")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & "
Sorry there are Site Galleries to display at this time.
Please check back later.
")
Response.Write(vbCrLf & " | ")
Response.Write(vbCrLf & "
")
Call FormatBottomTable("100%")
Else
DO UNTIL rsCommon.EOF
intGalleryCount = intGalleryCount + 1
intGalleryID = Clng(rsCommon("Gallery_ID"))
strGalleryName = rsCommon("Gallery_name")
strGalleryDescription = rsCommon("Gallery_description")
strGalleryImage = rsCommon("Gallery_image")
intGalleryAuthorID = Clng(rsCommon("Author_ID"))
intGalleryImages = 0
intTotalAlbums = -1
'*************************************************************************************
'******* Get the gallery information ******************************
'*************************************************************************************
Call SubCategoryList(intGalleryID, intGalleryImages, intTotalAlbums)
'*************************************************************************************
Call FormatTopTable2("100%")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")
If strGalleryImage <> "" Then
Response.Write(vbCrLf & " ")
If blnASPNETInstalled Then
Response.Write(vbCrLf & "![]() ")
Else
Response.Write(vbCrLf & "![]() ")
End If
End If
Response.Write(vbCrLf & " | ")
Response.Write(vbCrLf & "
")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " | " & strGalleryName & " | ")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " | " & strGalleryDescription & " | ")
Response.Write(vbCrLf & " ")
If intTotalAlbums = 0 Then
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " | ")
If blnAdmin OR intGalleryAuthorID = lngLoggedInUserID Then Response.Write(vbCrLf & "Upload Images - Edit Settings")
Response.Write(vbCrLf & " | ")
Response.Write(vbCrLf & " " & intGalleryImages & " Images | ")
Response.Write(vbCrLf & " ")
Else
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " | ")
If blnAdmin OR intGalleryAuthorID = lngLoggedInUserID Then Response.Write(vbCrLf & "Upload Images - Edit Settings")
Response.Write(vbCrLf & " | ")
Response.Write(vbCrLf & " " & intTotalAlbums & " Albums and " & intGalleryImages & " Images | ")
Response.Write(vbCrLf & " ")
End If
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " | ")
Response.Write(vbCrLf & "
")
Call FormatBottomTable("100%")
rsCommon.MoveNext
Loop
End If
rsCommon.Close
Response.Write(vbCrLf & "")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ![]() Member Galleries | ")
Response.Write(vbCrLf & "
")
Response.Write(vbCrLf & "
")
Response.Write(vbCrLf & "
")
strSQL = "SELECT " & strDBTable & "ImageGalleries.*, tblAuthor.Username FROM " & strDBTable & "ImageGalleries " & _
"INNER JOIN tblAuthor ON tblImageGalleries.Author_ID = tblAuthor.Author_ID " & _
"WHERE (" & strDBTable & "ImageGalleries.Gallery_sub_ID = 0 AND " & strDBTable & "ImageGalleries.Author_ID <> 0) " & _
"ORDER BY " & strDBTable & "ImageGalleries.Gallery_name;"
rsCommon.Open strSQL, adoCon
If rsCommon.EOF Then
Call FormatTopTable2("100%")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & "
There are currently no members with any galleries.
")
Response.Write(vbCrLf & " | ")
Response.Write(vbCrLf & "
")
Call FormatBottomTable("100%")
Else
Dim strGalleryAuthor
intGalleryCount = 0
Response.Write(vbCrLf & "")
DO UNTIL rsCommon.EOF
intGalleryCount = intGalleryCount + 1
intGalleryID = Clng(rsCommon("Gallery_ID"))
strGalleryName = rsCommon("Gallery_name")
strGalleryDescription = rsCommon("Gallery_description")
strGalleryImage = rsCommon("Gallery_image")
intGalleryAuthorID = Clng(rsCommon("Author_ID"))
strGalleryAuthor = rsCommon("Username")
If intGalleryAuthorID = lngLoggedInUserID Then blnUserHasGallery = True
intGalleryImages = 0
intTotalAlbums = -1
'*************************************************************************************
'******* Get the gallery information ******************************
'*************************************************************************************
Call SubCategoryList(intGalleryID, intGalleryImages, intTotalAlbums)
'*************************************************************************************
If intGalleryCount = 1 Then
Response.Write(vbCrLf & " ")
End If
Response.Write(vbCrLf & " | ")
Call FormatTopTable2("100%")
If strGalleryImage <> "" Then
Response.Write(vbCrLf & " |
")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")
If blnASPNETInstalled Then
Response.Write(vbCrLf & "![]() ")
Else
Response.Write(vbCrLf & "![]() ")
End If
Response.Write(vbCrLf & " | ")
Response.Write(vbCrLf & "
")
End If
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " " & strGalleryName & "
Author: " & strGalleryAuthor & " | ")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " " & strGalleryDescription)
If blnAdmin OR intGalleryAuthorID = lngLoggedInUserID Then Response.Write(vbCrLf & "
Upload Images - Edit Settings")
Response.Write(vbCrLf & " | ")
Response.Write(vbCrLf & " ")
If intTotalAlbums = 0 Then
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " | " & intGalleryImages & " Images | ")
Response.Write(vbCrLf & " ")
Else
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " | " & intTotalAlbums & " Albums and " & intGalleryImages & " Images | ")
Response.Write(vbCrLf & " ")
End If
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " | ")
Response.Write(vbCrLf & "
")
Call FormatBottomTable2("100%")
Response.Write(vbCrLf & " ")
If intGalleryCount = 2 Then
Response.Write(vbCrLf & " ")
intGalleryCount = 0
End If
rsCommon.MoveNext
Loop
Response.Write(vbCrLf & "
")
End If
rsCommon.Close
If blnGuest = False Then
Call FormatTopTable2("100%")
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")
If blnUserHasGallery Then
Response.Write(vbCrLf & " Add New Gallery | ")
Response.Write(vbCrLf & " Upload Images")
Else
Response.Write(vbCrLf & "
Start your own Image Gallery
")
End If
Response.Write(vbCrLf & " | ")
Response.Write(vbCrLf & "
")
Call FormatBottomTable("100%")
End If
%>
<%
'Do not remove this stuff
'-------------
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
'-------------
%>