%@ Language=VBScript %>
<% Response.Buffer = TRUE %>
<% Server.ScriptTimeout = 600 %>
<%
' Script Name : aspWebAlbum
' File Name : album.asp
' Version : 3.2
' Release Date : 8/9/2003
'
' Copyright (c) 2003 by Full Revolution, Inc., All Rights Reserved
%>
<%
'******** Added for 3.1 release **************************************************
ShowCatImageAndText = "YES"
'******** Create FSO to Main Category Folder *************************************
GalleryPath = Server.MapPath("album/categories")
GalleryPathWriteCheck = Server.MapPath("album")
GalleryURL = request.ServerVariables("URL")
GalleryURL2 = request.ServerVariables("URL")
ServerAddress = request.ServerVariables("HTTP_HOST")
GalleryURL = left(GalleryURL, len(GalleryURL) - 10) & "/album/categories"
MidiPath = Server.MapPath("album/midi")
MidiURL = "http://" & ServerAddress & left(GalleryURL2, len(GalleryURL2) - 10) & "/album/midi"
FullURL = "http://" & ServerAddress & left(GalleryURL2, len(GalleryURL2) - 10) & "/album.asp"
PostURL = "http://" & ServerAddress & left(GalleryURL2, len(GalleryURL2) - 10) & "/album/categories"
FullServerAddress = "http://" & ServerAddress
FullSkinURL = "http://" & ServerAddress & left(GalleryURL2, len(GalleryURL2) - 10) & "/"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set MainFolder = FSO.GetFolder(GalleryPath)
Set CatFolders = MainFolder.SubFolders
'******** Load Config ************************************************************
If Session("Gal_ConfigLoaded") <> "YES" then
Call LoadConfig
End If
SkinFolder = Session("Gal_SkinFolder")
CategoryColumns = cint(Session("Gal_CategoryColumns"))
ShowPicCount = Session("Gal_ShowPicCount")
UseCategoryBullets = Session("Gal_UseCategoryBullets")
User1 = Session("Gal_ConfigUser1")
User2 = Session("Gal_ConfigUser2")
User3 = Session("Gal_ConfigUser3")
User4 = Session("Gal_ConfigUser4")
User5 = Session("Gal_ConfigUser5")
DontShowDirectories = Session("Gal_ConfigDontShowDirs")
ThumbCols = cint(Session("Gal_ConfigThumbCols"))
ThumbRows = cint(Session("Gal_ConfigThumbRows"))
ThumbnailTableBorderWidth = Session("Gal_ConfigThumbTableBorderWidth")
ThumbnailTableBorderColor = Session("Gal_ConfigThumbTableBorderColor")
ShowThumbnailInfo = Session("Gal_ConfigShowThumbnailInfo")
ShowPictureInfo = Session("Gal_ConfigShowPictureInfo")
ShowExtendedPictureInfo = Session("Gal_ConfigShowExtendedPictureInfo")
ThumbWidth = Session("Gal_ConfigThumbWidth")
ThumbHeight = Session("Gal_ConfigThumbHeight")
SlideShowSeconds = Session("Gal_ConfigSlideShowSeconds")
DisableRightClick = Session("Gal_ConfigDisableRightClick")
PostCardImageWidth = Session("Gal_ConfigPostCardImageWidth")
PostCardImageHeight = Session("Gal_ConfigPostCardImageHeight")
PostCardTagLine = Session("Gal_ConfigPostCardTagLine")
NewDays = cint(Session("Gal_ConfigNewDays"))
PopularRating = cint(Session("Gal_ConfigPopularRating"))
HotHits = cint(Session("Gal_ConfigHotHits"))
RequireLogin = Session("Gal_ConfigRequireLogin")
ShowUserData = Session("Gal_ConfigShowUserData")
UseFavorites = Session("Gal_ConfigUseFavorites")
EmailHost = Session("Gal_ConfigEmailHost")
PageHeader = Session("Gal_ConfigPageHeader")
PageFooter = Session("Gal_ConfigPageFooter")
ThumbShowName = Session("Gal_ConfigThumbShowName")
ThumbShowSize = Session("Gal_ConfigThumbShowSize")
ThumbShowDate = Session("Gal_ConfigThumbShowDate")
ThumbShowViews = Session("Gal_ConfigThumbShowViews")
ThumbShowRating = Session("Gal_ConfigThumbShowRating")
ThumbShowExtension = Session("Gal_ConfigThumbShowExtension")
ThumbNameFieldLength = Session("Gal_ConfigThumbNameFieldLength")
PicShowName = Session("Gal_ConfigPicShowName")
PicShowSize = Session("Gal_ConfigPicShowSize")
PicShowDate = Session("Gal_ConfigPicShowDate")
PicShowViews = Session("Gal_ConfigPicShowViews")
PicShowRating = Session("Gal_ConfigPicShowRating")
PicShowPhotographer = Session("Gal_ConfigPicShowPhotographer")
PicShowSource = Session("Gal_ConfigPicShowSource")
PicShowCameraUsed = Session("Gal_ConfigPicShowCameraUsed")
PicShowCopyright = Session("Gal_ConfigPicShowCopyright")
UseNew = Session("Gal_ConfigUseNew")
UseHot = Session("Gal_ConfigUseHot")
UsePopular = Session("Gal_ConfigUsePopular")
UsePostcard = Session("Gal_ConfigUsePostcard")
UseRating = Session("Gal_ConfigUseRating")
UseThumbBorder = Session("Gal_ConfigUseThumbBorder")
SearchType = Session("Gal_ConfigSearchType")
JPGComponent = Session("Gal_ConfigJPGComponent")
EmailComponent = Session("Gal_ConfigEmailComponent")
UploadComponent = Session("Gal_ConfigUploadComponent")
UseTextNavigation = Session("Gal_ConfigUseTextNavigation")
UseSlideShowTransitions = Session("Gal_ConfigUseSlideShowTransitions")
UseFullScreenSlideShow = Session("Gal_ConfigUseFullScreenSlideShow")
UseCookies = Session("Gal_ConfigUseCookies")
AllowSessionBasedItems = Session("Gal_ConfigAllowSessionBasedItems")
'-------- Variables that are not editable in this version ------------------------
CategoryImageDirectory = Server.MapPath("album/") & "\categoryimages\"
CategoryImageLocation = "album/categoryimages/"
UseDB = "YES"
picsname = "pics"
thumbsname = "thumbs"
DownloadsName = "fullsize"
DownloadExtension = ".JPG"
DownloadText = "Click Here To Download A Full Sized Version of This Image"
PicsPerPage = ThumbRows * ThumbCols
If request.querystring("action") = "editconfig" then
Call HasJPGComponent
Call HasEmailComponent
Call HasUploadComponent
End If
CategoryColumnWidth = 100/CategoryColumns & "%"
ThumbnailColumnWidth = 100/ThumbCols & "%"
'------- These variables will override the automatic component handling ----------
'JPGComponent = ""
'JPGComponent = "ASPJpeg"
'JPGComponent = "aspSmartImage"
'JPGComponent = "AspImage"
'JPGComponent = "csImageFile"
'JPGComponent = "ASPThumbnailer"
'JPGComponent = "PicturePreviewer"
'JPGComponent = "GFLAX"
'JPGComponent = "GraphicsProcessor"
'JPGComponent = "dImage"
'JPGComponent = "SfImageResize"
'JPGComponent = "ImgWriter"
'JPGComponent = "ActiveImage"
'EmailComponent = ""
'EmailComponent = "CDONTS"
'EmailComponent = "ASPMail"
'EmailComponent = "ASPEmail"
'EmailComponent = "JMail"
'UploadComponent = ""
'UploadComponent = "AspUpload"
'UploadComponent = "aspSmartUpload"
'UploadComponent = "SAFileUp"
'---------------------------------------------------------------------------------
'********* Load Cookie from Users Computer *************************************
If UseCookies = "YES" then
SkinLocation = request.Cookies("ALBUM3_PREFS")("Skin")
If request.Cookies("ALBUM3_PREFS")("ThumbCols") <> "" then
Session("Gal_ConfigThumbCols") = request.Cookies("ALBUM3_PREFS")("ThumbCols")
ThumbCols = Session("Gal_ConfigThumbCols")
ThumbCols = cint(ThumbCols)
End If
If request.Cookies("ALBUM3_PREFS")("ThumbRows") <> "" then
Session("Gal_ConfigThumbRows") = request.Cookies("ALBUM3_PREFS")("ThumbRows")
ThumbRows = Session("Gal_ConfigThumbRows")
ThumbRows = cint(ThumbRows)
End If
If request.Cookies("ALBUM3_PREFS")("Skin") <> "" then
If fso.folderexists(server.mappath(SkinLocation)) then
Session("Gal_SkinFolder") = request.Cookies("ALBUM3_PREFS")("Skin")
SkinFolder = Session("Gal_SkinFolder")
End If
End If
If Session("Gal_Favorites") = "" then
Session("Gal_Favorites") = request.Cookies("ALBUM3_PREFS")("Favorites")
End If
PicsPerPage = ThumbRows * ThumbCols
ThumbnailColumnWidth = 100/ThumbCols & "%"
End If
'******* Pull In Config From DB ************************************
Sub LoadConfig
If UseSQLServer = "YES" then
SQL = "SELECT * FROM Gal_Config"
Else
SQL = "SELECT * FROM Gal_Config"
End If
Set RS=dbc.execute(SQL)
Session("Gal_SkinFolder") = RS("Config_SkinFolder")
Session("Gal_CategoryColumns") = RS("Config_CategoryColumns")
Session("Gal_ShowPicCount") = RS("Config_ShowPicCount")
Session("Gal_UseCategoryBullets") = RS("Config_UseCategoryBullets")
Session("Gal_ConfigUser1") = RS("Config_User1")
Session("Gal_ConfigUser2") = RS("Config_User2")
Session("Gal_ConfigUser3") = RS("Config_User3")
Session("Gal_ConfigUser4") = RS("Config_User4")
Session("Gal_ConfigUser5") = RS("Config_User5")
Session("Gal_ConfigDontShowDirs") = RS("Config_DontShowDirs")
Session("Gal_ConfigThumbCols") = RS("Config_ThumbCols")
Session("Gal_ConfigThumbRows") = RS("Config_ThumbRows")
Session("Gal_ConfigThumbTableBorderWidth") = RS("Config_ThumbTableBorderWidth")
Session("Gal_ConfigThumbTableBorderColor") = RS("Config_ThumbTableBorderColor")
Session("Gal_ConfigShowThumbnailInfo") = RS("Config_ShowThumbnailInfo")
Session("Gal_ConfigShowPictureInfo") = RS("Config_ShowPictureInfo")
Session("Gal_ConfigShowExtendedPictureInfo") = RS("Config_ShowExtendedPictureInfo")
Session("Gal_ConfigThumbWidth") = RS("Config_ThumbWidth")
Session("Gal_ConfigThumbHeight") = RS("Config_ThumbHeight")
Session("Gal_ConfigSlideShowSeconds") = RS("Config_SlideShowSeconds")
Session("Gal_ConfigDisableRightClick") = RS("Config_DisableRightClick")
Session("Gal_ConfigPostCardImageWidth") = RS("Config_PostCardImageWidth")
Session("Gal_ConfigPostCardImageHeight") = RS("Config_PostCardImageHeight")
Session("Gal_ConfigPostCardTagLine") = RS("Config_PostCardTagLine")
Session("Gal_ConfigNewDays") = RS("Config_NewDays")
Session("Gal_ConfigPopularRating") = RS("Config_PopularRating")
Session("Gal_ConfigHotHits") = RS("Config_HotHits")
Session("Gal_ConfigRequireLogin") = RS("Config_RequireLogin")
Session("Gal_ConfigShowUserData") = RS("Config_ShowUserData")
Session("Gal_ConfigUseFavorites") = RS("Config_UseFavorites")
Session("Gal_ConfigEmailHost") = RS("Config_EmailHost")
Session("Gal_ConfigPageHeader") = RS("Config_PageHeader")
Session("Gal_ConfigPageFooter") = RS("Config_PageFooter")
Session("Gal_ConfigThumbShowName") = RS("Config_ThumbShowName")
Session("Gal_ConfigThumbShowSize") = RS("Config_ThumbShowSize")
Session("Gal_ConfigThumbShowDate") = RS("Config_ThumbShowDate")
Session("Gal_ConfigThumbShowViews") = RS("Config_ThumbShowViews")
Session("Gal_ConfigThumbShowRating") = RS("Config_ThumbShowRating")
Session("Gal_ConfigThumbShowExtension") = RS("Config_ThumbShowExtension")
Session("Gal_ConfigThumbNameFieldLength") = RS("Config_ThumbNameFieldLength")
Session("Gal_ConfigPicShowName") = RS("Config_PicShowName")
Session("Gal_ConfigPicShowSize") = RS("Config_PicShowSize")
Session("Gal_ConfigPicShowDate") = RS("Config_PicShowDate")
Session("Gal_ConfigPicShowViews") = RS("Config_PicShowViews")
Session("Gal_ConfigPicShowRating") = RS("Config_PicShowRating")
Session("Gal_ConfigPicShowPhotographer") = RS("Config_PicShowPhotographer")
Session("Gal_ConfigPicShowSource") = RS("Config_PicShowSource")
Session("Gal_ConfigPicShowCameraUsed") = RS("Config_PicShowCameraUsed")
Session("Gal_ConfigPicShowCopyright") = RS("Config_PicShowCopyright")
Session("Gal_ConfigUseNew") = RS("Config_UseNew")
Session("Gal_ConfigUseHot") = RS("Config_UseHot")
Session("Gal_ConfigUsePopular") = RS("Config_UsePopular")
Session("Gal_ConfigUsePostcard") = RS("Config_UsePostcard")
Session("Gal_ConfigUseRating") = RS("Config_UseRating")
Session("Gal_ConfigUseThumbBorder") = RS("Config_UseThumbBorder")
Session("Gal_ConfigSearchType") = RS("Config_SearchType")
Session("Gal_ConfigJPGComponent") = RS("Config_JPGComponent")
Session("Gal_ConfigEmailComponent") = RS("Config_EmailComponent")
Session("Gal_ConfigUploadComponent") = RS("Config_UploadComponent")
Session("Gal_ConfigUseTextNavigation") = RS("Config_UseTextNavigation")
Session("Gal_ConfigUseSlideShowTransitions") = RS("Config_UseSlideShowTransitions")
Session("Gal_ConfigUseFullScreenSlideShow") = RS("Config_UseFullScreenSlideShow")
Session("Gal_ConfigUseCookies") = RS("Config_UseCookies")
Session("Gal_ConfigAllowSessionBasedItems") = RS("Config_AllowSessionBasedItems")
Session("Gal_ConfigLoaded") = "YES"
RS.Close
Set RS=Nothing
End Sub
'********* Load Default Values if not signed in ********************************
If Session("Gal_UserID") = "" then
If Session("Gal_DefaultsLoaded") <> "YES" then
SQL = "SELECT * FROM Gal_Users WHERE Gal_UserID = 1"
Set RS=dbc.execute(SQL)
If NOT RS.EOF then
Session("Gal_DefaultsLoaded") = "YES"
Session("Gal_UserCopyright") = RS("Gal_UserCopyright")
Session("Gal_UserPhotographer") = RS("Gal_UserPhotographer")
Session("Gal_UserCamera") = RS("Gal_UserCamera")
Session("Gal_UserSource") = RS("Gal_UserSource")
End If
End If
End If
'********* Include the Right Click Protection **********************************
If request.querystring("action") <> "embed" and DisableRightClick = "YES" then
ProtectFile= "album/norightclick.inc"
If request.querystring("pic") <> "" then
Call ReadProtectFile(ProtectFile)
End If
End If
SUB ReadProtectFile(FileToRead)
ProtectFile=server.mappath(FileToRead)
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(Protectfile, 1, False)
tempSTR=thisfile.readall
response.write tempSTR
thisfile.Close
set thisfile=nothing
set fs=nothing
END SUB
'********* Include the CSS from the current skin ********************************
If request.querystring("action") <> "embed" then
SkinFile= SkinFolder & "album.css"
Call ReadSkinFile(SkinFile)
End If
SUB ReadSkinFile(FileToRead)
SkinFile=server.mappath(FileToRead)
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(Skinfile, 1, False)
tempSTR=thisfile.readall
response.write replace(tempSTR, "$$SKINFOLDER", SkinFolder)
thisfile.Close
set thisfile=nothing
set fs=nothing
END SUB
'****** Some Java Functions and Page Header *************************************************
If request.querystring("action") <> "embed" then
%>
<%
End If
'******** Find out what we should be doing **************************************
If RequireLogin = "YES" and Session("Gal_UserID") = "" and request.querystring("action") <> "login" and request.querystring("action") <> "summary" then
If request.querystring("action") <> "embed" then
Call MustLogin
End If
End If
'TestWriting = TestPermissions(GalleryPathWriteCheck)
'If TestWriting = False then
' Call WriteFailed
'End If
ScriptAction = request.querystring("action")
SELECT CASE ScriptAction
CASE ""
If UseFullScreenSlideShow = "YES" and request.querystring("slideshow") = "YES" then
Else
Call DrawHeader
End If
If request.querystring("pic") = "" and RequireLogin = "YES" and Session("Gal_UserID") <> "" OR RequireLogin = "NO" and request.querystring("pic") = "" then
Call DrawCategories
End If
If request.querystring("pic") <> "" and RequireLogin = "YES" and Session("Gal_UserID") <> "" OR RequireLogin = "NO" and request.querystring("pic") <> "" then
Call DrawPictureView
End If
If UseFullScreenSlideShow = "YES" and request.querystring("slideshow") = "YES" then
Else
Call DrawFooter
End If
CASE "login"
Call DrawLoginPage
CASE "processlogin"
Call ProcessLogin
CASE "summary"
Call DrawSummary
CASE "editimageinfo"
Call CheckSecurity
Call EditImageInfo
CASE "editimageinfoprocess"
Call EditImageInfoProcess
CASE "editcategoryinfo"
Call CheckSecurity
Call EditCategoryInfo
CASE "renamecategory"
Call CheckSecurity
Call RenameCategory
CASE "renamecategoryprocess"
Call RenameCategoryProcess
CASE "deletecategory"
Call CheckSecurity
Call DeleteCategory
CASE "deletecategoryprocess"
Call DeleteCategoryProcess
CASE "movecategory"
Call CheckSecurity
Call MoveCategory
CASE "movecategoryprocess"
Call MoveCategoryProcess
CASE "editcategoryinfoprocess"
Call EditCategoryInfoProcess
CASE "uploadcategoryimage"
Call CheckSecurity
Call UploadCategoryImage
CASE "uploadcategoryimageprocess"
Call UploadCategoryImageProcess
CASE "addcategory"
Call CheckSecurity
Call AddCategory
CASE "addcategoryprocess"
Call AddCategoryProcess
CASE "uploadmedia"
Call UploadMedia2
CASE "uploadmedia2"
Call UploadMedia2
CASE "uploadmedia3"
Call UploadMedia3
CASE "uploadmedia4"
Call UploadMedia4
CASE "uploadmedia5"
Call UploadMedia5
CASE "submit"
Call UploadMedia2
CASE "deleteimage"
Call CheckSecurity
Call DeleteImage
CASE "deleteimageprocess"
Call DeleteImageProcess
CASE "sendpostcard"
Call SendPostCard
CASE "sendpostcardpreview"
Call SendPostCardPreview
CASE "sendpostcardprocess"
Call SendPostCardProcess
CASE "rateimage"
Call RateImage
CASE "rateimageprocess"
Call RateImageProcess
CASE "renameimage"
Call CheckSecurity
Call RenameImage
CASE "renameimageprocess"
Call RenameImageProcess
CASE "moveimage"
Call CheckSecurity
Call MoveImage
CASE "moveimageprocess"
Call MoveImageProcess
CASE "logoff"
Call Logoff
CASE "processlogoff"
Call ProcessLogoff
CASE "search"
Call DrawSearchOptions
CASE "searchprocess"
Call SearchProcess
CASE "dosearch"
Call DrawHeader
Call DrawSubset
Call DrawFooter
CASE "new"
Call DrawHeader
Call DrawSubset
Call DrawFooter
CASE "popular"
Call DrawHeader
Call DrawSubset
Call DrawFooter
CASE "hot"
Call DrawHeader
Call DrawSubset
Call DrawFooter
CASE "favorites"
Call DrawHeader
Call DrawSubset
Call DrawFooter
CASE "submitted"
Call DrawHeader
Call DrawSubset
Call DrawFooter
CASE "addtofavorites"
Call AddToFavorites
CASE "removefromfavorites"
Call RemoveFromFavorites
CASE "approvesubmitted"
Call CheckSecurity
Call ApproveSubmitted
CASE "manageusers"
Call CheckSecurity
Call ManageUsers
CASE "manageusers2"
Call CheckSecurity
If request.form("txtManageUserTask") = "AddUser" then
Call AddUser
End If
If request.form("txtManageUserTask") = "DeleteUser" then
Call DeleteUser
End If
If request.form("txtManageUserTask") = "ModifyUser" then
Call ModifyUser
End If
CASE "adduserprocess"
Call AddUserProcess
CASE "deleteuser2"
Call CheckSecurity
Call DeleteUser2
CASE "deleteuserprocess"
Call DeleteUserProcess
CASE "modifyuser2"
Call CheckSecurity
Call ModifyUser2
CASE "modifyuserprocess"
Call ModifyUserProcess
CASE "embed"
Call EmbedContentWrite
CASE "generateembed"
Call GenerateEmbed
CASE "generateembedprocess"
Call GenerateEmbedProcess
CASE "editconfig"
Call CheckSecurity
Call EditConfig
CASE "editconfigprocess"
Call EditConfigProcess
CASE "maintaindb"
Call CheckSecurity
Call MaintainDB
CASE "maintaindbprocess"
Call MaintainDBProcess
CASE "preferences"
Call Preferences
CASE "preferencesprocess"
Call PreferencesProcess
CASE "deletecookie"
Call DeleteCookie
CASE ELSE
END SELECT
'*********************************************************************************
'******** Must Login *************************************************************
'*********************************************************************************
Sub MustLogin
response.write "
" response.write Heading response.write " | " response.write "" If UseTextNavigation = "NO" then If PrevLink <> "" then %><% End If If CategorySubmitRights <> "NONE" then %><% End If If SearchType = "DETAILED" then %><% End If If UseNew = "YES" then %><% End If If UseHot = "YES" then %><% End If If UseRating = "YES" then If UsePopular = "YES" then %><% End If End If If UseFavorites = "YES" then %><% End If If request.querystring("pic") <> "" then If request.querystring("slideshow") = "YES" then If SSLink <> "" then SSLink = Left(SSLink, (len(SSLink) - 3)) %><% End If Else If NextLink <> "" then If UseFullScreenSlideShow = "YES" then SSLink = Replace(SSLink, "\", "/") %><% Else %><% End If End If End If End If If NextLink <> "" then %><% End If If UseCookies = "YES" then If AllowSessionBasedItems = "YES" then %><% End If End If If Session("Gal_UserID") = "" then %><% Else %><% End If Else If PrevLink <> "" then %><%=Sub2Var15%> | <% End If If CategorySubmitRights <> "NONE" then %><%=Sub2Var16%> | <% End If If SearchType = "DETAILED" then %><%=Sub2Var17%> | <% End If If UseNew = "YES" then %><%=Sub2Var18%> | <% End If If UseHot = "YES" then %><%=Sub2Var19%> | <% End If If UseRating = "YES" then If UsePopular = "YES" then %><%=Sub2Var20%> | <% End If End If If UseFavorites = "YES" then %><%=Sub2Var21%> | <% End If If request.querystring("pic") <> "" then If request.querystring("slideshow") = "YES" then If SSLink <> "" then SSLink = Left(SSLink, (len(SSLink) - 3)) %><%=Sub2Var22%> | <% End If Else If NextLink <> "" then If UseFullScreenSlideShow = "YES" then SSLink = Replace(SSLink, "\", "/") %><%=Sub2Var23%> | <% Else %><%=Sub2Var23%> | <% End If End If End If End If If NextLink <> "" then %><%=Sub2Var24%> | <% End If If UseCookies = "YES" then If AllowSessionBasedItems = "YES" then %><%=Sub2Var25%> | <% End If End If If Session("Gal_UserID") = "" then %><%=Sub2Var26%> <% Else %><%=Sub2Var27%> <% End If End If response.write " | " response.write "
" response.write " " response.write " | "
response.write "" response.write " | " response.write "
" & Sub3Var1 & ": | " response.write "" If request.querystring("cat") <> "" then If UseTextNavigation = "NO" then %><% %><% %><% %><% %><% Else %><%=Sub3Var7%> | <% %><%=Sub3Var8%> | <% %><%=Sub3Var9%> | <% %><%=Sub3Var10%> | <% %><%=Sub3Var11%><% End If End If If UseTextNavigation = "NO" then %><% Else %> | <%=Sub3Var13%><% End If response.write " | " response.write "
"
response.write "
| "
End if
Next
response.write "
"
response.write "
| "
End If
End If
End If
Next
response.write "
" NumPages = PicDir.Count \ PicsPerPage If PicDir.Count MOD picsperpage <> 0 then NumPages = NumPages + 1 End If ThisPage = (cint(request.querystring("start")) \ cint(picsperpage)) + 1 If ThisPage > 1 then response.write " " & Sub4Var24 & " " End If For X=0 to (numpages - 1) If (X+1)=ThisPage then Response.write "[" & CStr(X+1) & "] " Else Response.write " " & CStr(X+1) & " " End If Next If ThisPage <> NumPages then response.write " " & Sub4Var25 & " " End If response.write " |
" & Sub5Var3 & " | " response.write "" If UseTextNavigation = "NO" then %><% %><% %><% %><% Else %><%=Sub5Var8%> | <% %><%=Sub5Var9%> | <% %><%=Sub5Var10%> | <% %><%=Sub5Var11%><% End If response.write " | " response.write "
" End If FixedCategory = replace(request.querystring("cat")," ","%20") FixedCategory = replace(FixedCategory,"\","/") response.write " oncontextmenu="alert('<%=Sub5Var12%>');" <% response.write " GALLERYIMG='NO'>" Else response.write ">" End If If request.querystring("slideshow") = "YES" and UseFullScreenSlideShow = "YES" then Else response.write " | " response.write "|||||||||||||||||||||||||||||
"
If UseFavorites = "YES" then
If UseTextNavigation = "NO" then
If CheckFavorite(CurrentImageID) <> "YES" then
%>" onclick="NewWindow(this.href,'aspWebAlbum','300','250','no');return false"> <% Else %>" onclick="NewWindow(this.href,'aspWebAlbum','300','250','no');return false"> <% End If response.write " " Else If CheckFavorite(CurrentImageID) <> "YES" then %>" onclick="NewWindow(this.href,'aspWebAlbum','300','250','no');return false"><%=Sub5Var15%> <% Else %>" onclick="NewWindow(this.href,'aspWebAlbum','300','250','no');return false"><%=Sub5Var16%> <% End If response.write " " End If End If If ImageCaption <> "" then response.write ImageCaption & " " End If If ShowPictureInfo = "YES" then response.write "
" response.write "
" response.write "
" & DownloadText & "" End If response.write " |
" If PrevLink <> "" then response.write "" & Sub5Var27 & " " End If response.write " | " If UsePostcard = "YES" then %><%=Sub5Var28%> | <% End If If NextLink <> "" then response.write " " & Sub5Var29 & "" End If response.write " |
" If UseCategoryBullets = "YES" then response.write "" End if response.write " | " response.write "" response.write HeadingToWrite response.write " | " response.write ""
If request.querystring("action") = "" then
response.write NumOfPics & " " & FilesText
If NumOfPics <> "" and NumOfFolders <> "" then
response.write " and "
End If
response.write NumOfFolders & " " & CategoryText
Else
response.write FilesText
End If
If request.querystring("slideshow") = "YES" then
response.write " " & Sub6Var5 & " " & SlideShowSeconds & " " & Sub6Var6 End If response.write " | "
response.write "
"
response.write "
| "
End If
End If
End If
End If
RS.MoveNext
Loop
response.write "
" NumPages = RS.RecordCount \ PicsPerPage If RS.RecordCount MOD picsperpage <> 0 then NumPages = NumPages + 1 End If ThisPage = (cint(request.querystring("start")) \ cint(picsperpage)) + 1 If ThisPage > 1 then response.write " " & Sub7Var32 & " " End If For X=0 to (numpages - 1) If (X+1)=ThisPage then Response.write "[" & CStr(X+1) & "] " Else Response.write " " & CStr(X+1) & " " End If Next If ThisPage <> NumPages then response.write " " & Sub7Var33 & " " End If response.write " |
" response.write " | " & Sub8Var1 & " " & Sub8Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub10Var1 & " " & Sub10Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub11Var1 & " " & Sub11Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub12Var1 & " " & Sub12Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & HeaderLine1 & " " & HeaderLine2 & " | "
response.write "" response.write " |
"
response.write "" & Message & " " If request.querystring("from") <> "renamecategorysuccess" and request.querystring("from") <> "movecategorysuccess" and request.querystring("from") <> "deletecategorysuccess" then response.write "" Else %> <% End If response.write " | "
response.write "
" response.write " | " & Sub15Var1 & " " & Sub15Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub17Var1 & " " & Sub17Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub18Var1 & " " & Sub18Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub20Var1 & " " & Sub20Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub22Var1 & " " & Sub22Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub25Var1 & " " & Sub25Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub27Var1 & " " & Sub27Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" If request.querystring("action") <> "submit" then response.write " | " & Sub28Var1 & " " & Sub28Var2 & " | "
Else
response.write "" & Sub28Var3 & " " & Sub28Var2 & " | "
End If
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub29Var2 & " " & Sub29Var3 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub30Var2 & " " & Sub30Var3 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub30Var7 & " " & Sub30Var8 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub31Var1 & " " & Sub31Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub33Var1 & " " & Sub33Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub35Var1 & " " & Sub35Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub37Var1 & " " & Sub37Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub39Var8 & " " & Sub39Var9 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
"
TempPCOutput = TempPCOutput & "
| "
TempPCOutput = TempPCOutput & "
" response.write " | " & Sub40Var1 & " " & Sub40Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" & Sub42Var1 & " | " response.write "
" response.write "" response.write " | " response.write "
" & Sub43Var1 & " | " response.write "
"
Uploader.Upload()
If Uploader.Files.Count = 0 Then
Response.Write Sub43Var2
Else
For Each File In Uploader.Files.Items
File.SaveToDisk CategoryImageDirectory
Next
response.write Sub43Var3 & " " response.write " onClick="calpopulate('<% response.write Session("frFileName") %>')" return false; <% response.write ">" response.write " | "
response.write "
" response.write " | " & Sub44Var1 & " " & Sub44Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub45Var1 & " " & Sub44Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub47Var1 & " " & Sub47Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub48Var1 & " " & Sub48Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub50Var1 & " " & Sub50Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub51Var1 & " " & Sub51Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub53Var1 & " " & Sub53Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub55Var1 & " " & Sub55Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" response.write " | " & Sub56Var1 & " " & Sub56Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" If ThumbnailExists = "YES" or ThumbnailExists = "NO" and ImageType = "JPG" or ImageType = "jpg" or ImageType = "GIF" or ImageType = "gif" or ImageType = "PNG" or ImageType = "png" then LinkURL = Left(FullURL, Len(FullURL) - 9) EmbedContent = EmbedContent & "" If ThumbnailExists = "YES" then EmbedContent = EmbedContent & "" Else EmbedContent = EmbedContent & "" End If End If EmbedContent = EmbedContent & " | " End If End If End If RS.MoveNext Loop EmbedContent = EmbedContent & "
" response.write " | " & Sub57Var1 & " " & Sub57Var2 & " | "
response.write "" response.write " |
" response.write "" response.write " | " response.write "
" & Sub59Var1 & " | " response.write "" If UseTextNavigation = "NO" then If Session("Gal_UserEditUsers") = "YES" then %><% End If If Session("Gal_UserEditConfig") = "YES" then %><% End If If Session("Gal_UserApproveSubmits") = "YES" then %><% End If If Session("Gal_UserEditConfig") = "YES" then %><% %><% End If Else If Session("Gal_UserEditUsers") = "YES" then %><%=Sub59Var7%> | <% End If If Session("Gal_UserEditConfig") = "YES" then %><%=Sub59Var8%> | <% End If If Session("Gal_UserApproveSubmits") = "YES" then %><%=Sub59Var9%> | <% End If If Session("Gal_UserEditConfig") = "YES" then %><%=Sub59Var10%> | <% %><%=Sub59Var11%><% End If End If response.write " | " response.write "