| Author |
 Topic  |
|
MaGraham
Senior Member
USA
1297 Posts |
 Posted - 16 September 2013 : 19:09:26
|
quote:
Originally posted by Carefree
Post a link to "admin_album.asp" in .txt format so I can see it. I suspect the error message is invalid and that it's actually working, because the format of the sql is perfect and matches the table settings.
Carefree, do you feel up to looking at this now?
I left to go out of town for six weeks after my last post and I've been sick ever since I returned home. I am FINALLY beginning to feel better and really need to work on this now.
Here's a link to my admin_album.asp in txt format.
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
Edited by - MaGraham on 19 September 2013 23:18:12 |
 |
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 16 September 2013 : 19:40:54
|
quote:
Originally posted by modifichicci
Are you sure that album_CONFIG is the same as ALBUM_CONFIG ? Mysql isn't case sensitive? I had to change all the table call in upper case....
If hosted on a Windows platform, table names are not case sensitive. However, if on a UNIX/LINUX machine, they are. Best practice is to consider it case sensitive. But the table prefix should have been strTablePrefix and not strMemberTablePrefix.
Here's your file with cases changed:
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_admin.asp" -->
<%
'#################################################################################
'## Copyright (C) 2000 Michael Anderson and Pierre Gorissen
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
'#################################################################################
'# Photo Album Mod by Wesley Brown
'# Copyright 2002 (C) Wesley Brown
'# This program is free software; you can redistribute it and/or
'# modify it under the terms of the GNU General Public License
'# as published by the Free Software Foundation; either version 2
'# of the License, or any later version.
'#
'# This program is distributed in the hope that it will be useful,
'# but WITHOUT ANY WARRANTY; without even the implied warranty of
'# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'# GNU General Public License for more details.
'#
'# You should have received a copy of the GNU General Public License
'# along with this program; if not, write to the Free Software
'# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'#
'# This is a spin off of my stand alone photo album
'# just copy this file into your forums directory
'# This is the admin page
'# E-Mail me at: burthold@yahoo.com if you have any questions
'#################################################################################
If Session(strCookieURL & "Approval") = "15916941253" Then
on error resume next
err.clear
strSql = "select * from "& strTablePrefix & "ALBUM_CONFIG"
objConfig = My_Conn.execute(strSql)
if My_Conn.Errors.Count > 0 then
response.write "<div align = center>Instructions:<BR>To create a directory on your server fill in the blank"& vbNewLine & _
" with a directory name off you your root web server i.e. /uploads."& vbNewLine & _
" If you wish to have a directory nested underneath a directory i.e. \data\photos the base directory \data\ must already"& vbNewLine & _
" exist your photo directory will not be created otherwise! please make a directory or virtual directory on your web server"& vbNewLine & _
" if you do not use this tool to create the directory desired. Fill in the directory name in the admin options."& vbNewLine & _
" <BR>When you click the submit button all the needed tables will be created.</div>"& vbNewLine & _
" <form action=""photo_album_setup.asp"" method=""post""><BR>"& vbNewLine & _
" <table border=""0"" cellspacing=""0"" cellpadding=""0"" align=center>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Create Base Photo Directory</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine & _
" <input type=text name=photodir value="""" size=20>"& vbNewLine& _
" </a>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""center""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""> <input type=""hidden"" name=""action"" value=""1""></font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" colspan=""2"" align=""center""><input type=""submit"" value=""Submit""></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" </table>"& vbNewLine & _
" </form>"& vbNewLine
else
if cint(request.querystring("filenum")) > 0 then
filenum = cint(request.querystring("filenum"))
filesize = cint(request.querystring("filesize"))
filesize = cint(filesize)
if filesize = 0 then
filesize = 120
End if
basedir = trim(request.querystring("basedir"))
strvalid = chkString(basedir, "SQLString")
if strvalid = true then
strvalid = chkString(basedir, "SQLString")
if strvalid = true then
else
basedir ="/Photos"
end if
else
basedir ="/Photos"
end if
thumbnailer = trim(request.querystring("thumbnailer"))
strvalid = chkString(thumbnailer, "SQLString")
if strvalid = true then
strvalid = chkString(thumbnailer, "SQLString")
if strvalid = true then
else
thumbnailer = "c:\thumbnailer\"
end if
else
thumbnailer = "c:\thumbnailer\"
end if
strvalid = instr(thumbnailer,"'")
if strvalid > 0 then
thumbnailer = "c:\thumbnailer\"
end if
strvalid = instr(basedir,"'")
if strvalid > 0 then
basedir ="/Photos"
end if
thumbnails = cint(request.querystring("thumbnails"))
numsub = cint(request.querystring("numsub"))
approve = cint(request.querystring("approve"))
gif = cint(trim(request.querystring("gif")))
jpg = cint(trim(request.querystring("jpg")))
tif = cint(trim(request.querystring("tif")))
png = cint(trim(request.querystring("png")))
bmp = cint(trim(request.querystring("bmp")))
pop_win = cint(trim(request.querystring("pop_win")))
base_height = cint(trim(request.querystring("base_height")))
base_width = cint(trim(request.querystring("base_width")))
offset_top = cint(trim(request.querystring("offset_top")))
offset_left = cint(trim(request.querystring("offset_left")))
single_album = cint(trim(request.querystring("single_album")))
Cat_Photo_Display = cint(trim(request.querystring("Cat_Photo_Display")))
'if you want to add another image type you can just add an additional slot this strings of 1's and 0's is used in logic in the ToFileSystem.asp
'for file size complaiance.
img_type = gif&","&jpg&","&tif&","&png&","&bmp
if basedir <> "" then
pathfront = instr(left(basedir,3),":\")
pathrear = instr(right(basedir,1),"\")
if pathfront > 0 and pathrear > 0 then
basedir = "invalid_path_statement_please_fix"
elseif pathfront > 0 and pathrear = 0 then
basedir = "invalid_path_statement_please_fix"
else
chkerr = instr(left(basedir,3),":")
if chkerr > 0 then
basedir = "invalid_path_statement_please_fix"
else
pathfront = instr(left(basedir,1),"/")
if pathfront = 0 then
pathfront = instr(left(basedir,1),"\")
end if
pathrear = instr(right(basedir,1),"/")
if pathrear = 0 then
pathrear = instr(right(basedir,1),"\")
end if
if pathfront > 0 and pathrear > 0 then
dirlen = len(basedir)
dirlen = dirlen - 1
basedir = left(basedir,dirlen)
basedir = MySQLinsert(basedir)
elseif pathfront = 1 and pathrear = 0 then
basedir = MySQLinsert(basedir)
basedir = basedir
elseif pathfront = 0 and pathrear > 0 then
basedir = MySQLinsert(basedir)
basedir = "/"&basedir
elseif pathfront = 0 and pathrear = 0 then
basedir = MySQLinsert(basedir)
basedir = "/"&basedir
end if
end if
end if
end if
if strDBType = "mysql" then
thumbnailer = MySQLinsert(thumbnailer)
end if
strDummy = "1"
sqlStr = "delete from "& strTablePrefix & "ALBUM_CONFIG where num_files > 0 "
My_Conn.execute(sqlStr)
strSql = "insert into " & strTablePrefix & "ALBUM_CONFIG (num_files,file_size,thumbnails,base_dir,thumbnailer,img_type,approve,num_cat,pop_win,base_height,base_width,offset_left,offset_top,single_album, Cat_Photo_Display) VALUES ("& filenum &","& filesize &","& thumbnails &",'"& basedir &"','"& thumbnailer &"','"& img_type &"',"& approve &","& numsub &","& pop_win &","& base_height &","& base_width &","& offset_left &","& offset_top &","& single_album &","& Cat_Photo_Display &")"
err.clear
My_Conn.execute(strSql)
if err.description <> "" then
response.write "There was an error!<BR>"
response.write err.description
end if
end if
if request.querystring("adduser") <> "" then
if request.querystring("addbulk") = 1 then
'code donated by Aecio Lemos this code is well written! Thanks a ton Aecio!
strSql = "select * from "& strTablePrefix & "ALBUM_CONFIG"
SET objConf = My_Conn.execute(strSql)
strBasePath = trim(objConf("base_dir"))
strBasePath = server.MapPath(strBasePath)
Set objConf = Nothing
strSql = "select M_Name,Member_Id from " & strMemberTablePrefix & "MEMBERS ORDER BY M_NAME"
Set objRS = My_Conn.execute(strSql)
Do While Not objRS.EOF
tM_Name = objRS("m_name")
Response.Write("<b>Processing user: <i>" & tM_Name & "</i></b><br>")
strSql = "select * from " & strTablePrefix & "album_USERS where Member_Id = "&trim(objRS.fields("Member_Id"))
user_exist = My_Conn.execute(strSql)
tM_ID = trim(cint(user_exist("Member_Id")))
cM_ID = trim(cint(objRS.fields("Member_Id")))
if tM_ID = cM_ID then
Response.Write("User already exists in ALBUM_USERS<br>")
else
Err.Clear
strSql = "insert into " & strTablePrefix & "album_USERS (Member_id,M_Name) VALUES ("&cint(objRS.fields("Member_Id"))&",'"&tM_Name&"')"
My_Conn.execute(strSql)
strSql = "insert into " & strTablePrefix & "album_CAT (Member_id,Photo_Cat_Name) VALUES ("&cint(objRS.fields("Member_Id"))&",'Main Album')"
My_Conn.execute(strSql)
If Err.number = 0 Then
Response.Write("User inserted into ALBUM_USERS<br>")
Else
Response.Write("User already exists in ALBUM_USERS<br>")
End If
strPath = strBasePath&"\"&trim(tM_Name)&"\"
tnstrPath = strBasePath&"\"&trim(tM_Name)&"\tn\"
Response.Write("Path to create: <i>" & strPath & "</i><br>")
Response.Write("Path to create: <i>" & tnstrPath & "</i><br>")
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(strPath) Then
Set f = fso.CreateFolder(strPath)
set tn = fso.CreateFolder(tnstrPath)
CreateFolderDemo = f.Path
Response.Write("Folder created: <i>" & CreateFolderDemo & "</i><br>")
CreateFolderDemo = tn.Path
Response.Write("Folder created: <i>" & CreateFolderDemo & "</i><br>")
Else
Response.Write("Folder <i>" & CreateFolderDemo & "</i> already exists<br>")
End If
end if
set fso = nothing
set f = nothing
set tn = nothing
objRS.MoveNext
Loop
End If
if request.querystring("deleteyes") = 1 then
strSql = "select Member_id from " & strTablePrefix & "album_USERS where Member_id = "&request.querystring("deleteuser")
strRes = My_Conn.execute(strSql)
strSql = "select * from "& strTablePrefix & "ALBUM_CONFIG"
objConfig = My_Conn.execute(strSql)
strSql = "Select M_Name from "& strMemberTablePrefix & "MEMBERS where Member_id ="&request.querystring("deleteuser")
strName = My_Conn.execute(strSql)
bdir = strName("M_NAME")
strSql = "delete from " & strTablePrefix & "album_USERS where Member_id = "&request.querystring("deleteuser")
My_Conn.execute(strSql)
strSql = "delete from " & strTablePrefix & "album where Member_id = "&request.querystring("deleteuser")
My_Conn.execute(strSql)
strSql = "delete from " & strTablePrefix & "album_Cat where Member_id = "&request.querystring("deleteuser")
My_Conn.execute(strSql)
strPath = trim(objConfig("base_dir"))
if strDBType = "mysql" then
strPath = MySQLread(strPath)
end if
strPath = Server.MapPath(trim(objConfig("base_dir")))
strTnPath = chr(34)&strPath&"\"&trim(bdir)&"\tn\"&chr(34)
strPath = chr(34)&strPath&"\"&trim(bdir)&"\"&chr(34)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(strPath)
set sf = fso.GetFolder(strTnPath)
sf.Delete
f.Delete
set fso = nothing
set f = nothing
set sf = nothing
end if
if request.querystring("addyes") = 1 then
strSql = "select Member_id,M_Name from " & strTablePrefix & "album_USERS where Member_id = "&request.querystring("adduser")
strRes = My_Conn.execute(strSql)
tM_ID = strRes("Member_id")
if tM_ID = 0 then
strSql = "select M_Name from " & strMemberTablePrefix & "MEMBERS where Member_id = "&cint(request.querystring("adduser"))
strRes = My_Conn.execute(strSql)
tM_Name = strRes("m_name")
strSql = "insert into " & strTablePrefix & "album_CAT (Member_id,Photo_Cat_Name) VALUES ("&cint(request.querystring("adduser"))&",'Main Album')"
My_Conn.execute(strSql)
strSql = "insert into " & strTablePrefix & "album_USERS (Member_id,M_Name) VALUES ("&cint(request.querystring("adduser"))&",'"&tM_Name&"')"
My_Conn.execute(strSql)
strSql = "Select M_Name from "& strMemberTablePrefix & "MEMBERS where Member_id ="&cint(request.querystring("adduser"))
strName = My_Conn.execute(strSql)
bdir = strName("M_NAME")
strSql = "select * from "& strTablePrefix & "ALBUM_CONFIG"
objConfig = My_Conn.execute(strSql)
strPath = trim(objConfig("base_dir"))
if strDBType = "mysql" then
strPath = MySQLread(strPath)
end if
strPath = Server.MapPath(trim(objConfig("base_dir")))
strTnPath = strPath&"\"&trim(bdir)&"\tn\"
strPath = strPath&"\"&trim(bdir)&"\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(strPath)
set sf = fso.CreateFolder(strTnPath)
CreateFolderDemo = f.Path
CreateFolderDemo = sf.Path
set fso = nothing
set f = nothing
set sf = nothing
else
end if
end if
strDummy = "2"
end if
if strDummy = "" then
filenum = objConfig("Num_files")
numsub = objConfig("Num_cat")
filesize = objConfig("file_size")
basedir = objConfig("base_dir")
basedir = (trim(basedir))
thumbnailer = objConfig("thumbnailer")
thumbnailer = MySQLread(trim(thumbnailer))
thumbnails = objConfig("thumbnails")
thumbnails = cint(trim(thumbnails))
approve = objConfig("approve")
approve = cint(trim(approve))
img_type = objConfig("img_type")
gif = cint(trim(left(img_type, 1)))
jpg = cint(trim(right(left(img_type, 3),1)))
tif = cint(trim(right(left(img_type, 5),1)))
png = cint(trim(right(left(img_type, 7),1)))
bmp = cint(trim(right(left(img_type, 9),1)))
pop_win = cint(objConfig("pop_win"))
base_height = cint(objConfig("base_height"))
base_width = cint(objConfig("base_width"))
offset_top = cint(objConfig("offset_top"))
offset_left = cint(objConfig("offset_left"))
single_album = cint(objConfig("single_album"))
Cat_Photo_Display = cint(objConfig("Cat_Photo_Display"))
'build the img select string to save on response.writes
select case gif
case 0
img_select = "<input type=radio name=gif value=1>Allow Gif<BR>"& vbNewLine & _
"<input type=radio name=gif value=0 checked>Deny Gif<BR>"
case 1
img_select = "<input type=radio name=gif value=1 checked>Allow Gif<BR>"& vbNewLine & _
"<input type=radio name=gif value=0>Deny Gif<BR>"
case else
img_select = "<input type=radio name=gif value=1 checked>Allow Gif<BR>"& vbNewLine & _
"<input type=radio name=gif value=0>Deny Gif<BR>"
end select
select case jpg
case 0
img_select = img_select&"<input type=radio name=jpg value=1>Allow Jpeg<BR>"& vbNewLine & _
"<input type=radio name=jpg value=0 checked>Deny Jpeg<BR>"
case 1
img_select = img_select&"<input type=radio name=jpg value=1 checked>Allow Jpeg<BR>"& vbNewLine & _
"<input type=radio name=jpg value=0>Deny Jpeg<BR>"
case else
img_select = img_select&"<input type=radio name=jpg value=1 checked>Allow Jpeg<BR>"& vbNewLine & _
"<input type=radio name=jpg value=0>Deny Jpeg<BR>"
end select
select case png
case 0
img_select = img_select&"<input type=radio name=png value=1>Allow Png<BR>"& vbNewLine & _
"<input type=radio name=png value=0 checked>Deny Png<BR>"
case 1
img_select = img_select&"<input type=radio name=png value=1 checked>Allow Png<BR>"& vbNewLine & _
"<input type=radio name=png value=0>Deny Png<BR>"
case else
img_select = img_select&"<input type=radio name=png value=1 checked>Allow Png<BR>"& vbNewLine & _
"<input type=radio name=png value=0>Deny Png<BR>"
end select
select case bmp
case 0
img_select = img_select&"<input type=radio name=bmp value=1>Allow Bmp<BR>"& vbNewLine & _
"<input type=radio name=bmp value=0 checked>Deny Bmp<BR>"
case 1
img_select = img_select&"<input type=radio name=bmp value=1 checked>Allow Bmp<BR>"& vbNewLine & _
"<input type=radio name=bmp value=0>Deny Bmp<BR>"
case else
img_select = img_select&"<input type=radio name=bmp value=1 checked>Allow Bmp<BR>"& vbNewLine & _
"<input type=radio name=bmp value=0>Deny Bmp<BR>"
end select
select case tif
case 0
img_select = img_select&"<input type=radio name=tif value=1>Allow Tiff<BR>"& vbNewLine & _
"<input type=radio name=tif value=0 checked>Deny Tiff<BR>"
case 1
img_select = img_select&"<input type=radio name=tif value=1 checked>Allow Tiff<BR>"& vbNewLine & _
"<input type=radio name=tif value=0>Deny Tiff<BR>"
case else
img_select = img_select&"<input type=radio name=tif value=1 checked>Allow Tiff<BR>"& vbNewLine & _
"<input type=radio name=tif value=0>Deny Tiff<BR>"
end select
' if you need another image type just add it and assign like above there should be enough room for 10 file types.
' you will also need to modify the ToFileSystem.asp as well to filter the mime types I may make this modular and
' database driven next release.
Set objRec = Server.CreateObject ("ADODB.Recordset")
sqlstr = "select " & strTablePrefix & "members.M_NAME, " & strTablePrefix & "members.Member_Id," & strTablePrefix & "album_users.member_id as nullchk from " & strTablePrefix & "members "&_
"left join " & strTablePrefix & "album_users on " & strTablePrefix & "members.member_id=" & strTablePrefix & "album_users.member_id "&_
"where " & strTablePrefix & "album_users.member_id IS NULL"
member_select =" <select name=""adduser"">"
objRec.Open sqlstr, My_Conn
Do While not objRec.EOF
member_select = member_select&"<option value="&objRec.fields("MEMBER_ID")&">"&objRec.fields("M_Name")&"</option>"
objRec.MoveNext
loop
objRec.close
member_select = member_select&" </select>"
delete_select = " <select name=""deleteuser"">"
sqlstr = "select * from " & strTablePrefix & "album_users"
objRec.Open sqlstr, My_Conn
Do While not objRec.EOF
delete_select = delete_select&"<option value="&objRec.fields("MEMBER_ID")&">"&objRec.fields("M_Name")&"</option>"
objRec.MoveNext
loop
objRec.close
delete_select = delete_select&" </select>"
set objRec = nothing
Response.Write " <table border=""0"" width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""admin_home.asp"">Admin Section</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","align=""absmiddle""")& getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " Photo Album Admin<br />" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine & _
" <form action=""admin_album.asp"" method=""get"">"& vbNewLine & _
" <table border=""0"" cellspacing=""0"" cellpadding=""0"" align=center>"& vbNewLine & _
" <tr>"& vbNewLine & _
" <td bgcolor="""& strPopUpBorderColor &""">"& vbNewLine & _
" <table border=""0"" cellspacing=""1"" cellpadding=""1"">"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td align=center bgcolor="""& strHeadCellColor &""" colspan=""2""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &_
""" color="""& strHeadFontColor &"""><b>Configure Photo Album</b></font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Number of files per user:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"
if filenum <> "" then
response.write "<input type=text name=filenum value="&filenum&" size=3>"
else
response.write "<input type=text name=filenum value=""10"" size=3>"
end if
response.write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Number of sub categories per user:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
if numsub <> "" then
response.write "<input type=text name=numsub value="&numsub&" size=3>"
else
response.write "<input type=text name=numsub value=""5"" size=3>"
end if
response.write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>File Size allowed in KiloBytes KB:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
if filesize <> "" then
response.write "<input type=text name=filesize value="&filesize&" size=5>"
else
response.write "<input type=""text"" name=""filesize"" value=""120000"" size=""5"">"
end if
response.write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Root file directory:"& vbNewLine & _
"<BR>Please enter a virtual directory<BR> i.e. /forums/uploads or /uploads</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
on error resume next
Set fso = CreateObject("Scripting.FileSystemObject")
strBasePath = Server.MapPath(trim(basedir))
if basedir <> "" then
response.write "<input type=text name=basedir value="&basedir&" size=40>"
if not fso.folderexists(strBasePath) then
response.write "<BR><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><i><b>FOLDER DOESN'T EXIST ON FILE SYSTEM!</b></font>"
end if
else
response.write "<input type=""text"" name=""basedir"" value=""" & request("basedir") & """ size=""40"">"
if not fso.folderexists(strBasePath) then
response.write "<BR><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><i><b>FOLDER DOESN'T EXIST ON FILE SYSTEM!</b></font>"
end if
end if
response.write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine &_
" <b>Absolute path to the nconvert.exe:<BR>i.e. h:\thumbnailer\ If you<BR>are not using the thumbnail<BR>program supplied then this <BR>isn't relavant to you.</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
if thumbnailer <> "" then
response.write "<input type=text name=thumbnailer value="&thumbnailer&" size=40>"
if not fso.folderexists(thumbnailer) then
response.write "<BR><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><i><b>FOLDER DOESN'T EXIST ON FILE SYSTEM!</b></font>"
end if
else
response.write "<input type=""text"" name=""thumbnailer"" value=""h:\thumbnailer\"" size=""40"">"
if not fso.folderexists(thumbnailer) then
response.write "<BR><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><i><b>FOLDER DOESN'T EXIST ON FILE SYSTEM!</b></font>"
end if
end if
set fso = nothing
response.write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Run in single album mode:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
select case single_album
case 0
response.write"<input type=radio name=single_album value=1>Yes<BR>"
response.write"<input type=radio name=single_album value=0 checked>No"
case 1
response.write"<input type=radio name=single_album value=1 checked>Yes<BR>"
response.write"<input type=radio name=single_album value=0>No"
case else
response.write"<input type=radio name=single_album value=1>Yes<BR>"
response.write"<input type=radio name=single_album value=0checked>No"
end select
response.write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Force Administrator aproval of all photos:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
select case approve
case 0
response.write"<input type=radio name=approve value=1>Yes<BR>"
response.write"<input type=radio name=approve value=0 checked>No"
case 1
response.write"<input type=radio name=approve value=1 checked>Yes<BR>"
response.write"<input type=radio name=approve value=0>No"
case else
response.write"<input type=radio name=approve value=1>Yes<BR>"
response.write"<input type=radio name=approve value=0checked>No"
end select
response.write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Display full image in pop-up window:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
select case pop_win
case 0
response.write"<input type=radio name=pop_win value=1>Yes<BR>"
response.write"<input type=radio name=pop_win value=0 checked>No"
case 1
response.write"<input type=radio name=pop_win value=1 checked>Yes<BR>"
response.write"<input type=radio name=pop_win value=0>No"
case else
response.write"<input type=radio name=pop_win value=1>Yes<BR>"
response.write"<input type=radio name=pop_win value=0 checked>No"
end select
response.write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Show Thumbnails on pages:<BR>This only effects the album if there<BR>isn't a valid thumbnail available</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
select case thumbnails
case 0
response.write"<input type=radio name=thumbnails value=1>Yes<BR>"
response.write"<input type=radio name=thumbnails value=0 checked>No"
case 1
response.write"<input type=radio name=thumbnails value=1 checked>Yes<BR>"
response.write"<input type=radio name=thumbnails value=0>No"
case else
response.write"<input type=radio name=thumbnails value=1 checked>Yes<BR>"
response.write"<input type=radio name=thumbnails value=0>No"
end select
response.write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Show Thumbnails on Category headings:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
select case Cat_Photo_Display
case 0
response.write"<input type=radio name=Cat_Photo_Display value=1>Yes<BR>"
response.write"<input type=radio name=Cat_Photo_Display value=0 checked>No"
case 1
response.write"<input type=radio name=Cat_Photo_Display value=1 checked>Yes<BR>"
response.write"<input type=radio name=Cat_Photo_Display value=0>No"
case else
response.write"<input type=radio name=Cat_Photo_Display value=1 checked>Yes<BR>"
response.write"<input type=radio name=Cat_Photo_Display value=0>No"
end select
response.write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Default width for window:"& vbNewLine & _
"<BR>Please enter positive number.<BR>Set this to a standard screen size<BR>i.e. 640,800,1024</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
if base_height > 0 then
response.write "<input type=text name=base_height value="&base_height&" size=5>"
else
response.write "<input type=""text"" name=""base_height"" value=""480"" size=""5"">"
end if
response.write" </a>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Default Height for window:"& vbNewLine & _
"<BR>Please enter positive number.<BR>Set this to a standard screen size<BR>i.e. 480,600,768</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
if base_width > 0 then
response.write "<input type=text name=base_width value="&base_width&" size=5>"
else
response.write "<input type=""text"" name=""base_width"" value=""640"" size=""5"">"
end if
response.write" </a>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Offset from top:"& vbNewLine & _
"<BR>Please enter positive number. Remember,<BR>set this too high and you<BR>will not see the popup window.</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
if offset_top > 0 then
response.write "<input type=text name=offset_top value="&offset_top&" size=5>"
else
response.write "<input type=""text"" name=""offset_top"" value=""100"" size=""5"">"
end if
response.write" </a>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Offset from Left:"& vbNewLine & _
" <BR>Please enter positive number. Remember,<BR>set this too high and you<BR>will not see the popup window.</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
if offset_left > 0 then
response.write "<input type=text name=offset_left value="&offset_left&" size=5>"
else
response.write "<input type=""text"" name=""offset_left"" value=""100"" size=""5"">"
end if
response.write" </a>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Image type to allow"& vbNewLine & _
" <BR>Please be careful with Tiff image types<BR>You cannot inable tiff image type<BR> and still use the pop up window function</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine &_
img_select& vbNewLine & _
" </a>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" colspan=""2"" align=""center""><input type=""submit"" value=""Submit""></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" </form>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td align=center bgcolor="""& strHeadCellColor &""" colspan=""2""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &_
""" color="""& strHeadFontColor &"""><b>Add/Delete/Edit Album Users</b></font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" colspan=""2"" align=""center"">"& vbNewLine & _
" <FORM ACTION=""admin_album_admin_users.asp""><BR><INPUT TYPE=""submit"" VALUE=""Album User Administraton""></FORM>"& vbNewLine & _
" </td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td align=center bgcolor="""& strHeadCellColor &""" colspan=""2""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &_
""" color="""& strHeadFontColor &"""><b>Approve New Photos</b></font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" colspan=""2"" align=""center"">"& vbNewLine & _
" <FORM ACTION=""photo_album_approve.asp""><BR><INPUT TYPE=""submit"" VALUE=""Approve Any New Photos""></FORM>"& vbNewLine & _
" </td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <td align=center bgcolor="""& strHeadCellColor &""" colspan=""2""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &_
""" color="""& strHeadFontColor &"""><b>TroubleShoot Photo Album</b></font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" colspan=""2"" align=""center"">"& vbNewLine & _
" <FORM ACTION=""photo_album_test_34.asp""><BR><INPUT TYPE=""submit"" VALUE=""TroubleShoot""></FORM>"& vbNewLine & _
" </td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td align=center bgcolor="""& strHeadCellColor &""" colspan=""2""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &_
""" color="""& strHeadFontColor &"""><b>Upgrade Photo Album</b></font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <form action=""photo_album_setup.asp"" method=""post"">"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Update or Delete Album Tables<BR>All photos uploaded will be deleted.<BR>All Tables will be deleted.<BR>Run the upgrader only if the<BR>setup file says to<BR>BE CAREFUL NOT TO DELETE YOUR ALBUMS!</font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine & _
" <input type=""radio"" name=""action"" value=""2"">Upgrade Photo Album<BR>"& vbNewLine & _
" <input type=""radio"" name=""action"" value=""3"">Delete Photo Album<BR>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" colspan=""2"" align=""center""><input type=""submit"" value=""Submit""></TD>"& vbNewLine & _
" </tr>"& vbNewLine & _
" </form>"& vbNewLine & _
" </table>"& vbNewLine & _
" </td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" </table>"& vbNewLine & _
" </font>"& vbNewLine & _
" </form>"& vbNewLine & _
" <br>"& vbNewLine
else
strDummy = cint(strDummy)
select case strDummy
case 1
response.write" <p align=""center""><font face="""& strDefaultFontFace &""" size="""& strHeaderFontSize &""">Album Configuration Changed!</font></p>"& vbNewLine & _
" <meta http-equiv=""Refresh"" content=""5; URL=admin_home.asp"">"& vbNewLine & _
" <p align=""center""><font face="""& strDefaultFontFace &""" size="""& strHeaderFontSize &""">Congratulations!</font></p>"& vbNewLine & _
" <p align=""center""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><a href=""admin_home.asp"">Back To Admin Home</font></a></p>"& vbNewLine
case 2
response.write" <p align=""center""><font face="""& strDefaultFontFace &""" size="""& strHeaderFontSize &""">Album Configuration Changed!</font></p>"& vbNewLine & _
" <meta http-equiv=""Refresh"" content=""5; URL=admin_home.asp"">"& vbNewLine & _
" <p align=""center""><font face="""& strDefaultFontFace &""" size="""& strHeaderFontSize &""">Congratulations!</font></p>"& vbNewLine & _
" <p align=""center""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><a href=""admin_home.asp"">Back To Admin Home</font></a></p>"& vbNewLine
end select
end if
end if
else
scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
end if
call WriteFooter
set objRec = nothing
%>
|
Edited by - Carefree on 16 September 2013 19:43:26 |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 16 September 2013 : 20:16:14
|
I'm still receiving the same error message, Carefree.
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
AnonJr
Moderator
United States
5768 Posts |
Posted - 17 September 2013 : 11:16:50
|
quote:
Originally posted by Carefree
If hosted on a Windows platform, table names are not case sensitive. However, if on a UNIX/LINUX machine, they are. Best practice is to consider it case sensitive.
Just to get a little pedantic, almost all RDBMSs can be set to be (or not to be) case sensitive on all platforms. While *nix environments tend to default to case-sensitive, and Windows tends to default to case-insensitive, it's no guarantee either way.
I'd go with your last bit and take it one step further: treat everything like it's case-sensitive - then you're either right or plesantly surprised.  |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 18 September 2013 : 08:05:09
|
quote:
Originally posted by MaGraham
I'm still receiving the same error message, Carefree.
OK - took a look at the code, there are some issues. Backup your original and try this:
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_admin.asp" -->
<!--#include file="inc_photo_album_functions.asp"-->
<%
'#################################################################################
'## Copyright (C) 2000 Michael Anderson and Pierre Gorissen
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
'#################################################################################
'# Photo Album Mod by Wesley Brown
'# Copyright 2002 (C) Wesley Brown
'# This program is free software; you can redistribute it and/or
'# modify it under the terms of the GNU General Public License
'# as published by the Free Software Foundation; either version 2
'# of the License, or any later version.
'#
'# This program is distributed in the hope that it will be useful,
'# but WITHOUT ANY WARRANTY; without even the implied warranty of
'# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'# GNU General Public License for more details.
'#
'# You should have received a copy of the GNU General Public License
'# along with this program; if not, write to the Free Software
'# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'#
'# This is a spin off of my stand alone photo album
'# just copy this file into your forums directory
'# This is the admin page
'# E-Mail me at: burthold@yahoo.com if you have any questions
'#################################################################################
If Session(strCookieURL & "Approval") = "15916941253" Then
On Error Resume Next
Err.Clear
strSql = "SELECT * FROM "& strTablePrefix & "ALBUM_CONFIG"
objConfig = my_Conn.Execute(strSql)
If my_Conn.Errors.Count > 0 Then
Response.Write "<div align = center>Instructions:<BR>To create a directory on your server fill in the blank"& vbNewLine & _
" with a directory name off you your root web server i.e. /uploads."& vbNewLine & _
" If you wish to have a directory nested underneath a directory i.e. \data\photos the base directory \data\ must already"& vbNewLine & _
" exist your photo directory will not be created otherwise! please make a directory or virtual directory on your web server"& vbNewLine & _
" If you do not use this tool to create the directory desired. Fill in the directory name in the admin options."& vbNewLine & _
" <BR>When you click the submit button all the needed tables will be created.</div>"& vbNewLine & _
" <form action=""photo_album_setup.asp"" method=""post""><BR>"& vbNewLine & _
" <table border=""0"" cellspacing=""0"" cellpadding=""0"" align=center>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Create Base Photo Directory</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine & _
" <input type=text name=photodir value="""" size=20>"& vbNewLine& _
" </a>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""center""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""> <input type=""hidden"" name=""action"" value=""1""></font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" colspan=""2"" align=""center""><input type=""submit"" value=""Submit""></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" </table>"& vbNewLine & _
" </form>"& vbNewLine
Else
If cInt(Request.QueryString("filenum")) > 0 Then
If isNumeric(Request.QueryString("filenum")) Then filenum = cInt(Request.QueryString("filenum")) Else filenum=0
If isNumeric(Request.QueryString("filesize")) Then filesize = cInt(Request.QueryString("filesize")) Else filesize=0
If filesize = 0 Then
filesize = 120
End If
If chkString(Trim(Request.QueryString("basedir")), "SQLString") = True Then
basedir = chkString(basedir, "SQLString")
Else
basedir ="/Photos"
End If
If chkString(Trim(Request.QueryString("thumbnailer")), "SQLString") = True Then
thumbnailer = chkString(thumbnailer, "SQLString")
Else
thumbnailer = "c:\thumbnailer\"
End If
thumbnails = cInt(Request.QueryString("thumbnails"))
numsub = cInt(Request.QueryString("numsub"))
approve = cInt(Request.QueryString("approve"))
gif = cInt(Trim(Request.QueryString("gif")))
jpg = cInt(Trim(Request.QueryString("jpg")))
tif = cInt(Trim(Request.QueryString("tif")))
png = cInt(Trim(Request.QueryString("png")))
bmp = cInt(Trim(Request.QueryString("bmp")))
pop_win = cInt(Trim(Request.QueryString("pop_win")))
base_hight = cInt(Trim(Request.QueryString("base_hight")))
base_width = cInt(Trim(Request.QueryString("base_width")))
offset_top = cInt(Trim(Request.QueryString("offset_top")))
offset_left = cInt(Trim(Request.QueryString("offset_left")))
single_album = cInt(Trim(Request.QueryString("single_album")))
Cat_Photo_Display = cInt(Trim(Request.QueryString("Cat_Photo_Display")))
'If you want to add another image type you can just add an additional slot this strings of 1's and 0's is used in logic in the ToFileSystem.asp
'for file size complaiance.
img_type = gif&","&jpg&","&tif&","&png&","&bmp
If basedir <> "" Then
pathfront = instr(left(basedir,3),":\")
pathrear = instr(right(basedir,1),"\")
If pathfront > 0 and pathrear > 0 Then
basedir = "invalid_path_statement_please_fix"
ElseIf pathfront > 0 and pathrear = 0 Then
basedir = "invalid_path_statement_please_fix"
Else
chkerr = instr(left(basedir,3),":")
If chkerr > 0 Then
basedir = "invalid_path_statement_please_fix"
Else
pathfront = instr(left(basedir,1),"/")
If pathfront = 0 Then
pathfront = instr(left(basedir,1),"\")
End If
pathrear = instr(right(basedir,1),"/")
If pathrear = 0 Then
pathrear = instr(right(basedir,1),"\")
End If
If pathfront > 0 and pathrear > 0 Then
dirlen = len(basedir)
dirlen = dirlen - 1
basedir = left(basedir,dirlen)
basedir = MySQLinsert(basedir)
ElseIf pathfront = 1 and pathrear = 0 Then
basedir = MySQLinsert(basedir)
basedir = basedir
ElseIf pathfront = 0 and pathrear > 0 Then
basedir = MySQLinsert(basedir)
basedir = "/"&basedir
ElseIf pathfront = 0 and pathrear = 0 Then
basedir = MySQLinsert(basedir)
basedir = "/"&basedir
End If
End If
End If
End If
If lCase(strDBType) = "mysql" Then
thumbnailer = MySQLinsert(thumbnailer)
End If
strDummy = "1"
sqlStr = "DELETE FROM "& strTablePrefix & "ALBUM_CONFIG WHERE num_files > 0 "
my_Conn.Execute(sqlStr)
strSql = "INSERT INTO " & strTablePrefix & "ALBUM_CONFIG (num_files,file_size,thumbnails,base_dir,thumbnailer,img_type,approve,num_cat,pop_win,base_hight,base_width,offset_left,offset_top,single_album,Cat_Photo_Display) VALUES ("& filenum &","& filesize &","& thumbnails &",'"& basedir &"','"& thumbnailer &"','"& img_type &"',"& approve &","& numsub &","& pop_win &","& base_hight &","& base_width &","& offset_left &","& offset_top &","& single_album &","& Cat_Photo_Display &")"
Err.Clear
my_Conn.Execute(strSql)
If Err.Description <> "" Then
Response.Write "There was an error!<BR>"
Response.Write Err.Description
End If
End If
If Request.QueryString("adduser") <> "" Then
If Request.QueryString("addbulk") = 1 Then
'code donated by Aecio Lemos this code is well written! Thanks a ton Aecio!
strSql = "SELECT * FROM "& strTablePrefix & "ALBUM_CONFIG"
Set objConf = my_Conn.Execute(strSql)
strBasePath = Trim(objConf("base_dir"))
strBasePath = Server.MapPath(strBasePath)
Set objConf = Nothing
strSql = "SELECT M_Name,Member_Id FROM " & strMemberTablePrefix & "MEMBERS ORDER BY M_NAME"
Set objRS = my_Conn.Execute(strSql)
Do While Not objRS.EOF
tM_Name = objRS("m_name")
Response.Write("<b>Processing user: <i>" & tM_Name & "</i></b><br>")
strSql = "SELECT * FROM " & strTablePrefix & "ALBUM_USERS WHERE Member_Id = "&Trim(objRS.fields("Member_Id"))
user_exist = my_Conn.Execute(strSql)
tM_ID = Trim(cInt(user_exist("Member_Id")))
cM_ID = Trim(cInt(objRS.fields("Member_Id")))
If tM_ID = cM_ID Then
Response.Write("User already exists in ALBUM_USERS<br>")
Else
Err.Clear
strSql = "INSERT INTO " & strTablePrefix & "ALBUM_USERS (Member_id,M_Name) VALUES ("&cInt(objRS.fields("Member_Id"))&",'"&tM_Name&"')"
my_Conn.Execute(strSql)
strSql = "INSERT INTO " & strTablePrefix & "ALBUM_CAT (Member_id,Photo_Cat_Name) VALUES ("&cInt(objRS.fields("Member_Id"))&",'Main Album')"
my_Conn.Execute(strSql)
If Err.number = 0 Then
Response.Write("User inserted into ALBUM_USERS<br>")
Else
Response.Write("User already exists in ALBUM_USERS<br>")
End If
strPath = strBasePath&"\"&Trim(tM_Name)&"\"
tnstrPath = strBasePath&"\"&Trim(tM_Name)&"\tn\"
Response.Write("Path to create: <i>" & strPath & "</i><br>")
Response.Write("Path to create: <i>" & tnstrPath & "</i><br>")
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(strPath) Then
Set f = FSO.CreateFolder(strPath)
Set tn = FSO.CreateFolder(tnstrPath)
CreateFolderDemo = f.Path
Response.Write("Folder created: <i>" & CreateFolderDemo & "</i><br>")
CreateFolderDemo = tn.Path
Response.Write("Folder created: <i>" & CreateFolderDemo & "</i><br>")
Else
Response.Write("Folder <i>" & CreateFolderDemo & "</i> already exists<br>")
End If
End If
Set FSO = Nothing
Set f = Nothing
Set tn = Nothing
objRS.MoveNext
Loop
End If
If Request.QueryString("deleteyes") = 1 Then
strSql = "SELECT Member_id FROM " & strTablePrefix & "ALBUM_USERS WHERE Member_id = "&Request.QueryString("deleteuser")
strRes = my_Conn.Execute(strSql)
strSql = "SELECT * FROM "& strTablePrefix & "ALBUM_CONFIG"
objConfig = my_Conn.Execute(strSql)
strSql = "SELECT M_Name FROM "& strMemberTablePrefix & "MEMBERS WHERE Member_id ="&Request.QueryString("deleteuser")
strName = my_Conn.Execute(strSql)
bdir = strName("M_NAME")
strSql = "DELETE FROM " & strTablePrefix & "ALBUM_USERS WHERE Member_id = "&Request.QueryString("deleteuser")
my_Conn.Execute(strSql)
strSql = "DELETE FROM " & strTablePrefix & "ALBUM WHERE Member_id = "&Request.QueryString("deleteuser")
my_Conn.Execute(strSql)
strSql = "DELETE FROM " & strTablePrefix & "ALBUM_CAT WHERE Member_id = "&Request.QueryString("deleteuser")
my_Conn.Execute(strSql)
strPath = Trim(objConfig("base_dir"))
If strDBType = "mysql" Then
strPath = MySQLread(strPath)
End If
strPath = Server.MapPath(Trim(objConfig("base_dir")))
strTnPath = chr(34)&strPath&"\"&Trim(bdir)&"\tn\"&chr(34)
strPath = chr(34)&strPath&"\"&Trim(bdir)&"\"&chr(34)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.GetFolder(strPath)
Set sf = FSO.GetFolder(strTnPath)
sf.Delete
f.Delete
Set FSO = Nothing
Set f = Nothing
Set sf = Nothing
End If
If Request.QueryString("addyes") = 1 Then
strSql = "SELECT Member_id,M_Name FROM " & strTablePrefix & "ALBUM_USERS WHERE Member_id = "&Request.QueryString("adduser")
strRes = my_Conn.Execute(strSql)
tM_ID = strRes("Member_id")
If tM_ID = 0 Then
strSql = "SELECT M_Name FROM " & strMemberTablePrefix & "MEMBERS WHERE Member_id = "&cInt(Request.QueryString("adduser"))
strRes = my_Conn.Execute(strSql)
tM_Name = strRes("m_name")
strSql = "INSERT INTO " & strTablePrefix & "ALBUM_CAT (Member_id,Photo_Cat_Name) VALUES ("&cInt(Request.QueryString("adduser"))&",'Main Album')"
my_Conn.Execute(strSql)
strSql = "INSERT INTO " & strTablePrefix & "ALBUM_USERS (Member_id,M_Name) VALUES ("&cInt(Request.QueryString("adduser"))&",'"&tM_Name&"')"
my_Conn.Execute(strSql)
strSql = "SELECT M_Name FROM "& strMemberTablePrefix & "MEMBERS WHERE Member_id ="&cInt(Request.QueryString("adduser"))
strName = my_Conn.Execute(strSql)
bdir = strName("M_NAME")
strSql = "SELECT * FROM "& strTablePrefix & "ALBUM_CONFIG"
objConfig = my_Conn.Execute(strSql)
strPath = Trim(objConfig("base_dir"))
If strDBType = "mysql" Then
strPath = MySQLread(strPath)
End If
strPath = Server.MapPath(Trim(objConfig("base_dir")))
strTnPath = strPath&"\"&Trim(bdir)&"\tn\"
strPath = strPath&"\"&Trim(bdir)&"\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.CreateFolder(strPath)
Set sf = FSO.CreateFolder(strTnPath)
CreateFolderDemo = f.Path
CreateFolderDemo = sf.Path
Set FSO = Nothing
Set f = Nothing
Set sf = Nothing
End If
End If
strDummy = "2"
End If
If strDummy = "" Then
filenum = objConfig("Num_files")
numsub = objConfig("Num_cat")
filesize = objConfig("file_size")
basedir = objConfig("base_dir")
basedir = (Trim(basedir))
thumbnailer = objConfig("thumbnailer")
thumbnailer = MySQLread(Trim(thumbnailer))
thumbnails = objConfig("thumbnails")
thumbnails = cInt(Trim(thumbnails))
approve = objConfig("approve")
approve = cInt(Trim(approve))
img_type = objConfig("img_type")
gif = cInt(Trim(left(img_type, 1)))
jpg = cInt(Trim(right(left(img_type, 3),1)))
tif = cInt(Trim(right(left(img_type, 5),1)))
png = cInt(Trim(right(left(img_type, 7),1)))
bmp = cInt(Trim(right(left(img_type, 9),1)))
pop_win = cInt(objConfig("pop_win"))
base_hight = cInt(objConfig("base_hight"))
base_width = cInt(objConfig("base_width"))
offset_top = cInt(objConfig("offset_top"))
offset_left = cInt(objConfig("offset_left"))
single_album = cInt(objConfig("single_album"))
Cat_Photo_Display = cInt(objConfig("Cat_Photo_Display"))
Select Case gif
Case 0
img_SELECT = "<input type=radio name=gif value=1>Allow Gif<BR>"& vbNewLine & _
"<input type=radio name=gif value=0 checked>Deny Gif<BR>"
Case 1
img_SELECT = "<input type=radio name=gif value=1 checked>Allow Gif<BR>"& vbNewLine & _
"<input type=radio name=gif value=0>Deny Gif<BR>"
Case Else
img_SELECT = "<input type=radio name=gif value=1 checked>Allow Gif<BR>"& vbNewLine & _
"<input type=radio name=gif value=0>Deny Gif<BR>"
End Select
Select Case jpg
Case 0
img_SELECT = img_SELECT&"<input type=radio name=jpg value=1>Allow Jpeg<BR>"& vbNewLine & _
"<input type=radio name=jpg value=0 checked>Deny Jpeg<BR>"
Case 1
img_SELECT = img_SELECT&"<input type=radio name=jpg value=1 checked>Allow Jpeg<BR>"& vbNewLine & _
"<input type=radio name=jpg value=0>Deny Jpeg<BR>"
Case Else
img_SELECT = img_SELECT&"<input type=radio name=jpg value=1 checked>Allow Jpeg<BR>"& vbNewLine & _
"<input type=radio name=jpg value=0>Deny Jpeg<BR>"
End Select
Select Case png
Case 0
img_SELECT = img_SELECT&"<input type=radio name=png value=1>Allow Png<BR>"& vbNewLine & _
"<input type=radio name=png value=0 checked>Deny Png<BR>"
Case 1
img_SELECT = img_SELECT&"<input type=radio name=png value=1 checked>Allow Png<BR>"& vbNewLine & _
"<input type=radio name=png value=0>Deny Png<BR>"
Case Else
img_SELECT = img_SELECT&"<input type=radio name=png value=1 checked>Allow Png<BR>"& vbNewLine & _
"<input type=radio name=png value=0>Deny Png<BR>"
End Select
Select Case bmp
Case 0
img_SELECT = img_SELECT&"<input type=radio name=bmp value=1>Allow Bmp<BR>"& vbNewLine & _
"<input type=radio name=bmp value=0 checked>Deny Bmp<BR>"
Case 1
img_SELECT = img_SELECT&"<input type=radio name=bmp value=1 checked>Allow Bmp<BR>"& vbNewLine & _
"<input type=radio name=bmp value=0>Deny Bmp<BR>"
Case Else
img_SELECT = img_SELECT&"<input type=radio name=bmp value=1 checked>Allow Bmp<BR>"& vbNewLine & _
"<input type=radio name=bmp value=0>Deny Bmp<BR>"
End Select
Select Case tif
Case 0
img_SELECT = img_SELECT&"<input type=radio name=tif value=1>Allow Tiff<BR>"& vbNewLine & _
"<input type=radio name=tif value=0 checked>Deny Tiff<BR>"
Case 1
img_SELECT = img_SELECT&"<input type=radio name=tif value=1 checked>Allow Tiff<BR>"& vbNewLine & _
"<input type=radio name=tif value=0>Deny Tiff<BR>"
Case Else
img_SELECT = img_SELECT&"<input type=radio name=tif value=1 checked>Allow Tiff<BR>"& vbNewLine & _
"<input type=radio name=tif value=0>Deny Tiff<BR>"
End Select
' If you need another image type just add it and assign like above there should be enough room for 10 file types.
' you will also need to modify the ToFileSystem.asp as well to filter the mime types I may make this modular and
' database driven next release.
Set objRec = Server.CreateObject ("ADODB.Recordset")
sqlstr = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.MEMBER_ID," & strTablePrefix & "ALBUM_USERS.MEMBER_ID AS nullchk FROM " & strMemberTablePrefix & "MEMBERS "&_
"LEFT JOIN " & strTablePrefix & "ALBUM_USERS on " & strMemberTablePrefix & "MEMBERS.MEMBER_ID=" & strTablePrefix & "ALBUM_USERS.MEMBER_ID "&_
"WHERE " & strTablePrefix & "ALBUM_USERS.MEMBER_ID IS NULL"
Member_Select =" <select name=""adduser"">"
objRec.Open sqlstr, my_Conn
Do While not objRec.EOF
Member_Select = Member_Select&"<option value="&objRec.fields("MEMBER_ID")&">"&objRec.fields("M_Name")&"</option>"
objRec.MoveNext
Loop
objRec.Close
Member_Select = Member_Select&" </select>"
Delete_Select = " <select name=""deleteuser"">"
sqlstr = "SELECT * FROM " & strTablePrefix & "ALBUM_USERS"
objRec.Open sqlstr, my_Conn
Do While not objRec.EOF
Delete_Select = Delete_Select&"<option value="&objRec.fields("MEMBER_ID")&">"&objRec.fields("M_Name")&"</option>"
objRec.MoveNext
Loop
objRec.Close
Delete_Select = Delete_Select&" </select>"
Set objRec = Nothing
Response.Write " <table border=""0"" width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""admin_home.asp"">Admin Section</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","align=""absmiddle""")& getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " Photo Album Admin<br />" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine & _
" <form action=""admin_album.asp"" method=""get"">"& vbNewLine & _
" <table border=""0"" cellspacing=""0"" cellpadding=""0"" align=center>"& vbNewLine & _
" <tr>"& vbNewLine & _
" <td bgcolor="""& strPopUpBorderColor &""">"& vbNewLine & _
" <table border=""0"" cellspacing=""1"" cellpadding=""1"">"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td align=center bgcolor="""& strHeadCellColor &""" colspan=""2""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &_
""" color="""& strHeadFontColor &"""><b>Configure Photo Album</b></font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Number of files per user:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"
If filenum <> "" Then
Response.Write "<input type=text name=filenum value="&filenum&" size=3>"
Else
Response.Write "<input type=text name=filenum value=""10"" size=3>"
End If
Response.Write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Number of sub categories per user:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
If numsub <> "" Then
Response.Write "<input type=text name=numsub value="&numsub&" size=3>"
Else
Response.Write "<input type=text name=numsub value=""5"" size=3>"
End If
Response.Write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>File Size allowed in KiloBytes KB:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
If filesize <> "" Then
Response.Write "<input type=text name=filesize value="&filesize&" size=5>"
Else
Response.Write "<input type=""text"" name=""filesize"" value=""120000"" size=""5"">"
End If
Response.Write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Root file directory:"& vbNewLine & _
"<BR>Please enter a virtual directory<BR> i.e. /forums/uploads or /uploads</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
strBasePath = Server.MapPath(Trim(basedir))
If basedir <> "" Then
Response.Write "<input type=text name=basedir value="&basedir&" size=40>"
If not FSO.FolderExists(strBasePath) Then
Response.Write "<BR><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><i><b>FOLDER DOESN'T EXIST ON FILE SYSTEM!</b></font>"
End If
Else
Response.Write "<input type=""text"" name=""basedir"" value=""" & Request("basedir") & """ size=""40"">"
If not FSO.FolderExists(strBasePath) Then
Response.Write "<BR><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><i><b>FOLDER DOESN'T EXIST ON FILE SYSTEM!</b></font>"
End If
End If
Response.Write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine &_
" <b>Absolute path to the nconvert.exe:<BR>i.e. h:\thumbnailer\ If you<BR>are not using the thumbnail<BR>program supplied Then this <BR>isn't relavant to you.</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
If thumbnailer <> "" Then
Response.Write "<input type=text name=thumbnailer value="&thumbnailer&" size=40>"
If not FSO.FolderExists(thumbnailer) Then
Response.Write "<BR><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><i><b>FOLDER DOESN'T EXIST ON FILE SYSTEM!</b></font>"
End If
Else
Response.Write "<input type=""text"" name=""thumbnailer"" value=""h:\thumbnailer\"" size=""40"">"
If not FSO.FolderExists(thumbnailer) Then
Response.Write "<BR><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><i><b>FOLDER DOESN'T EXIST ON FILE SYSTEM!</b></font>"
End If
End If
Set FSO = Nothing
Response.Write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Run in single album mode:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
Select Case single_album
Case 0
Response.Write"<input type=radio name=single_album value=1>Yes<BR>"
Response.Write"<input type=radio name=single_album value=0 checked>No"
Case 1
Response.Write"<input type=radio name=single_album value=1 checked>Yes<BR>"
Response.Write"<input type=radio name=single_album value=0>No"
Case Else
Response.Write"<input type=radio name=single_album value=1>Yes<BR>"
Response.Write"<input type=radio name=single_album value=0checked>No"
End Select
Response.Write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Force Administrator aproval of all photos:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
Select Case approve
Case 0
Response.Write"<input type=radio name=approve value=1>Yes<BR>"
Response.Write"<input type=radio name=approve value=0 checked>No"
Case 1
Response.Write"<input type=radio name=approve value=1 checked>Yes<BR>"
Response.Write"<input type=radio name=approve value=0>No"
Case Else
Response.Write"<input type=radio name=approve value=1>Yes<BR>"
Response.Write"<input type=radio name=approve value=0checked>No"
End Select
Response.Write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Display full image in pop-up window:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
Select Case pop_win
Case 0
Response.Write"<input type=radio name=pop_win value=1>Yes<BR>"
Response.Write"<input type=radio name=pop_win value=0 checked>No"
Case 1
Response.Write"<input type=radio name=pop_win value=1 checked>Yes<BR>"
Response.Write"<input type=radio name=pop_win value=0>No"
Case Else
Response.Write"<input type=radio name=pop_win value=1>Yes<BR>"
Response.Write"<input type=radio name=pop_win value=0 checked>No"
End Select
Response.Write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Show Thumbnails on pages:<BR>This only effects the album If there<BR>isn't a valid thumbnail available</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
Select Case thumbnails
Case 0
Response.Write"<input type=radio name=thumbnails value=1>Yes<BR>"
Response.Write"<input type=radio name=thumbnails value=0 checked>No"
Case 1
Response.Write"<input type=radio name=thumbnails value=1 checked>Yes<BR>"
Response.Write"<input type=radio name=thumbnails value=0>No"
Case Else
Response.Write"<input type=radio name=thumbnails value=1 checked>Yes<BR>"
Response.Write"<input type=radio name=thumbnails value=0>No"
End Select
Response.Write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Show Thumbnails on Category headings:</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
Select Case Cat_Photo_Display
Case 0
Response.Write"<input type=radio name=Cat_Photo_Display value=1>Yes<BR>"
Response.Write"<input type=radio name=Cat_Photo_Display value=0 checked>No"
Case 1
Response.Write"<input type=radio name=Cat_Photo_Display value=1 checked>Yes<BR>"
Response.Write"<input type=radio name=Cat_Photo_Display value=0>No"
Case Else
Response.Write"<input type=radio name=Cat_Photo_Display value=1 checked>Yes<BR>"
Response.Write"<input type=radio name=Cat_Photo_Display value=0>No"
End Select
Response.Write" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Default width for window:"& vbNewLine & _
"<BR>Please enter positive number.<BR>Set this to a standard screen size<BR>i.e. 640,800,1024</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
If base_hight > 0 Then
Response.Write "<input type=text name=base_hight value="&base_hight&" size=5>"
Else
Response.Write "<input type=""text"" name=""base_hight"" value=""480"" size=""5"">"
End If
Response.Write" </a>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Default hight for window:"& vbNewLine & _
"<BR>Please enter positive number.<BR>Set this to a standard screen size<BR>i.e. 480,600,768</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
If base_width > 0 Then
Response.Write "<input type=text name=base_width value="&base_width&" size=5>"
Else
Response.Write "<input type=""text"" name=""base_width"" value=""640"" size=""5"">"
End If
Response.Write" </a>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Offset from top:"& vbNewLine & _
"<BR>Please enter positive number. Remember,<BR>set this too high and you<BR>will not see the popup window.</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
If offset_top > 0 Then
Response.Write "<input type=text name=offset_top value="&offset_top&" size=5>"
Else
Response.Write "<input type=""text"" name=""offset_top"" value=""100"" size=""5"">"
End If
Response.Write" </a>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Offset from Left:"& vbNewLine & _
" <BR>Please enter positive number. Remember,<BR>Set this too high and you<BR>will not see the popup window.</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine
If offset_left > 0 Then
Response.Write "<input type=text name=offset_left value="&offset_left&" size=5>"
Else
Response.Write "<input type=""text"" name=""offset_left"" value=""100"" size=""5"">"
End If
Response.Write" </a>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Image type to allow"& vbNewLine & _
" <BR>Please be careful with Tiff image types<BR>You cannot inable tiff image type<BR> and still use the pop up window function</b> </font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine &_
img_select& vbNewLine & _
" </a>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" colspan=""2"" align=""center""><input type=""submit"" value=""Submit""></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" </form>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td align=center bgcolor="""& strHeadCellColor &""" colspan=""2""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &_
""" color="""& strHeadFontColor &"""><b>Add/Delete/Edit Album Users</b></font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" colspan=""2"" align=""center"">"& vbNewLine & _
" <FORM ACTION=""admin_album_admin_users.asp""><BR><INPUT TYPE=""submit"" VALUE=""Album User Administraton""></FORM>"& vbNewLine & _
" </td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td align=center bgcolor="""& strHeadCellColor &""" colspan=""2""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &_
""" color="""& strHeadFontColor &"""><b>Approve New Photos</b></font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" colspan=""2"" align=""center"">"& vbNewLine & _
" <FORM ACTION=""photo_album_approve.asp""><BR><INPUT TYPE=""submit"" VALUE=""Approve Any New Photos""></FORM>"& vbNewLine & _
" </td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <td align=center bgcolor="""& strHeadCellColor &""" colspan=""2""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &_
""" color="""& strHeadFontColor &"""><b>TroubleShoot Photo Album</b></font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" colspan=""2"" align=""center"">"& vbNewLine & _
" <FORM ACTION=""photo_album_test_34.asp""><BR><INPUT TYPE=""submit"" VALUE=""TroubleShoot""></FORM>"& vbNewLine & _
" </td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td align=center bgcolor="""& strHeadCellColor &""" colspan=""2""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &_
""" color="""& strHeadFontColor &"""><b>Upgrade Photo Album</b></font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <form action=""photo_album_setup.asp"" method=""post"">"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" align=""right""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><b>Update or Delete Album Tables<BR>All photos uploaded will be deleted.<BR>All Tables will be deleted.<BR>Run the upgrader only if the<BR>setup file says to<BR>BE CAREFUL NOT TO DELETE YOUR ALBUMS!</font></td>"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &"""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"& vbNewLine & _
" <input type=""radio"" name=""action"" value=""2"">Upgrade Photo Album<BR>"& vbNewLine & _
" <input type=""radio"" name=""action"" value=""3"">Delete Photo Album<BR>"& vbNewLine & _
" </font></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr valign=""top"">"& vbNewLine & _
" <td bgColor="""& strPopUpTableColor &""" colspan=""2"" align=""center""><input type=""submit"" value=""Submit""></TD>"& vbNewLine & _
" </tr>"& vbNewLine & _
" </form>"& vbNewLine & _
" </table>"& vbNewLine & _
" </td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" </table>"& vbNewLine & _
" </font>"& vbNewLine & _
" </form>"& vbNewLine & _
" <br>"& vbNewLine
Else
strDummy = cInt(strDummy)
Select Case strDummy
Case 1
Response.Write" <p align=""center""><font face="""& strDefaultFontFace &""" size="""& strHeaderFontSize &""">Album Configuration Changed!</font></p>"& vbNewLine & _
" <meta http-equiv=""Refresh"" content=""5; URL=admin_home.asp"">"& vbNewLine & _
" <p align=""center""><font face="""& strDefaultFontFace &""" size="""& strHeaderFontSize &""">Congratulations!</font></p>"& vbNewLine & _
" <p align=""center""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><a href=""admin_home.asp"">Back To Admin Home</font></a></p>"& vbNewLine
Case 2
Response.Write" <p align=""center""><font face="""& strDefaultFontFace &""" size="""& strHeaderFontSize &""">Album Configuration Changed!</font></p>"& vbNewLine & _
" <meta http-equiv=""Refresh"" content=""5; URL=admin_home.asp"">"& vbNewLine & _
" <p align=""center""><font face="""& strDefaultFontFace &""" size="""& strHeaderFontSize &""">Congratulations!</font></p>"& vbNewLine & _
" <p align=""center""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &"""><a href=""admin_home.asp"">Back To Admin Home</font></a></p>"& vbNewLine
End Select
End If
End If
Else
scriptname = split(Request.servervariables("SCRIPT_NAME"),"/")
Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
End If
WriteFooter
Set objRec = Nothing
%>
|
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 19 September 2013 : 00:05:13
|
Receiving this error message now, Carefree.
There was an error!
[MySQL][ODBC 5.1 Driver][mysqld-5.5.28]Unknown column 'base_hight' in 'field list'
Could this problem be as simple as a misspelling with "hight" in the coding?
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 19 September 2013 : 00:34:06
|
| In the copy which I use to create forums, I replaced all those "hight" with "height" in all of the files and fixed it in the database. |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 19 September 2013 : 01:18:24
|
quote:
Originally posted by Carefree
In the copy which I use to create forums, I replaced all those "hight" with "height" in all of the files and fixed it in the database.
So, what exactly does this mean I'll need to do, Carefree? I'm not familar with creating a new database file to run in order to correct columns, Carefree.
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 19 September 2013 : 06:50:40
|
| Shouldn't have to. If it didn't find "hight", then you probably used one of my copies which spelled it correctly. Just search/replace the word "hight" in the file. |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 19 September 2013 : 20:26:05
|
FINALLY, this worked! After making the latest corrections you suggested, it accepted the configuration without errors. Praise God!
However; there's still a problem. It's not working properly when I try to upload photos.
When I add a new category I don't receive an error message but it's not adding the category. If I go to view "Photo Albums" it's only displaying 1 category instead of the one I just added.
And when I go to Photo Details and make any changes i.e. adding/editing a description, it's taking forever to load after I click to submit the changes. And when I say "forever" I mean 30 or more minutes. This has got to be caused by a script in one of the files, Carefree, because everything else on the new domain is loading really fast. And then, the changes I make are not being applied after I've submitted them.
And after I have uploaded photos, they are not displaying. It displays the name and description but a transparent graphic instead of displaying the photo. I've checked the directories and the uploaded photos are there. It's displaying photos I was able to upload when I first installed this mod. I ran the "troubleshoot" script in the photo gallery from the Admin Options area and it says everything is fine.
I am Soooo lost with this, Carefree!! 
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 19 September 2013 : 21:20:02
|
| I sent you working files, tested here. See if it resolves your issue there. |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 19 September 2013 : 23:18:24
|
Oh my goodness! The files you sent fixed all of the problems, Carefree! INCREDIBLE!
Thank you so much!!
I just have one question. When viewing the photos and clicking on a photo to see the full size, the pop-up window that opens is really small. I tried to adjust the size in Admin Options but it didn't work. Your thoughts? |
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 20 September 2013 : 06:39:17
|
| lines 11-12, adjust max height/width |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 20 September 2013 : 10:29:01
|
I adjusted the max height/width on lines 11-12 in photo_album_view.asp but that didn't work either, Carefree.
A screen shot of the pop-up window is 161x748.
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 20 September 2013 : 11:37:40
|
Look at line 295, modify it by adding the bits in red:
|
|
|
|
Topic |
|
|
|
