<% Response.Redirect "http://www.orientbeachforum.com" %> All Forums All Forums


<% on error resume next public maxpages 'check to see if they are logged in I don't think this supports NT accounts if strDBNTUserName <> "" then strSql = "SELECT MEMBER_ID, M_LEVEL" strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE M_Name = '" &strDBNTUserName& "'" M_ID = my_conn.execute(strSql) sqldtl = M_ID("MEMBER_ID") sqldtl = cint(trim(sqldtl)) mem_id = sqldtl 'response.write sqldtl 'response.write mem_id mLev = cint(trim(M_ID("M_LEVEL"))) 'verify their account against the photo album accounts if sqldtl = 0 then response.write "You do not have an album account.

"&vbNewLine 'no account no edit! else end if end if NavBar SortBar response.buffer = true 'on error resume next set My_Conn = Server.CreateObject("ADODB.Connection") My_Conn.Open strConnString Set objFileSysObj = CreateObject("Scripting.FileSystemObject") '################################################################################# '# This is the part of the Photo Album that allows members to view the posted photos '################################################################################# sub RecentPhotos response.buffer = true 'on error resume next Response.Write " " & vbNewLine 'end javascript block set My_Conn = Server.CreateObject("ADODB.Connection") My_Conn.Open strConnString Set objFileSysObj = CreateObject("Scripting.FileSystemObject") if strDBNTUserName = "" then response.redirect "default.asp" end if show_pop = 0 cname = request.QueryString("cname") tMID = trim(cint(request.QueryString("mid"))) cid = trim(cint(request.QueryString("cid"))) strSql = "select * from "& strTablePrefix & "ALBUM_CONFIG" strConf = My_Conn.execute(strSql) file_size = trim(strConf("file_size")) bdir = trim(strConf("base_dir")) tb = strConf("thumbnails") tb = cint(tb) show_pop = cint(strConf("pop_win")) width = cint(strConf("base_width")) hight = cint(strConf("base_hight")) loffset = cint(strConf("offset_left")) toffset = cint(strConf("offset_top")) single_album = cint(strConf("single_album")) img_type = trim(strConf("img_type")) gif = trim(left(img_type, 1)) jpg = trim(right(left(img_type, 3),1)) tif = trim(right(left(img_type, 5),1)) png = trim(right(left(img_type, 7),1)) bmp = trim(right(left(img_type, 9),1)) sort = request.querystring("sort") direction = request.querystring("dir") range = request.querystring("range") criteria = request.querystring("si") action = request.querystring("action") select case sort case "t" strSqlSort = " order by " & strMemberTablePrefix & "album.photo_title " sortOption = "Title" case "f" strSqlSort = " order by " & strMemberTablePrefix & "album.photo_name " sortOption = "Name" case "l" strSqlSort = " order by " & strMemberTablePrefix & "album.photo_loc " sortOption = "Location" case "c" strSqlSort = " order by " & strMemberTablePrefix & "album.ul_dttm " sortOption = "Date" case "d" strSqlSort = " order by " & strMemberTablePrefix & "album.ul_dttm " sortOption = "Posted Date" case "v" strSqlSort = " order by " & strMemberTablePrefix & "album.views " sortOption = "Views" case else strSqlSort = " order by " & strMemberTablePrefix & "album.photo_id desc" end select strSqlSort = strSqlSort & direction select case action case "my" sqldtl = "select " & strMemberTablePrefix & "album.*, " & strMemberTablePrefix & "album_users.m_name " & _ "from " & strMemberTablePrefix & "album INNER JOIN " & strMemberTablePrefix & "ALBUM_USERS ON " & strMemberTablePrefix & "ALBUM.Member_id = " & strMemberTablePrefix & "ALBUM_USERS.Member_id" & _ " where photo_status = 1 " & _ " and " & strMemberTablePrefix & "album.member_id = " & strMemberTablePrefix & "album_users.member_id " & _ " and " & strMemberTablePrefix & "album.member_id = " & mem_id case "fav" sqldtl = "SELECT " & strMemberTablePrefix & "ALBUM.*, " & strMemberTablePrefix & "ALBUM_USERS.M_NAME, " & strMemberTablePrefix & "ALBUM_FAVORITES.Member_id " & _ " FROM (" & strMemberTablePrefix & "ALBUM_FAVORITES INNER JOIN " & strMemberTablePrefix & "ALBUM ON " & strMemberTablePrefix & "ALBUM_FAVORITES.Photo_id = " & strMemberTablePrefix & "ALBUM.Photo_id) INNER JOIN " & strMemberTablePrefix & "ALBUM_USERS ON " & strMemberTablePrefix & "ALBUM.Member_id = " & strMemberTablePrefix & "ALBUM_USERS.Member_id " & _ " WHERE " & strMemberTablePrefix & "ALBUM_FAVORITES.Member_id= " & mem_id case "search" if range = "all" then sqldtl = "select " & strMemberTablePrefix & "album.*, " & strMemberTablePrefix & "album_users.m_name " & _ "from " & strMemberTablePrefix & "album INNER JOIN " & strMemberTablePrefix & "ALBUM_USERS ON " & strMemberTablePrefix & "ALBUM.Member_id = " & strMemberTablePrefix & "ALBUM_USERS.Member_id" & _ " where photo_status = 1 " & _ " and " & strMemberTablePrefix & "album.member_id = " & strMemberTablePrefix & "album_users.member_id " else sqldtl = "select " & strMemberTablePrefix & "album.*, " & strMemberTablePrefix & "album_users.m_name " & _ "from " & strMemberTablePrefix & "album INNER JOIN " & strMemberTablePrefix & "ALBUM_USERS ON " & strMemberTablePrefix & "ALBUM.Member_id = " & strMemberTablePrefix & "ALBUM_USERS.Member_id" & _ " where photo_status = 1 " & _ " and " & strMemberTablePrefix & "album.member_id = " & strMemberTablePrefix & "album_users.member_id " & _ " and ul_dttm >= #" & now() - range & "#" end if if criteria <> "" then criteria = "'%" & criteria & "%'" sqldtl = sqldtl & " and (" & strMemberTablePrefix & "album.Photo_title like " & criteria & _ " or " & strMemberTablePrefix & "album.Photo_desc like " & criteria & _ " )" end if case else sqldtl = "select top 12 " & strMemberTablePrefix & "album.*, " & strMemberTablePrefix & "album_users.m_name " & _ "from " & strMemberTablePrefix & "album INNER JOIN " & strMemberTablePrefix & "ALBUM_USERS ON " & strMemberTablePrefix & "ALBUM.Member_id = " & strMemberTablePrefix & "ALBUM_USERS.Member_id" & _ " where photo_status = 1 " & _ " and " & strMemberTablePrefix & "album.member_id = " & strMemberTablePrefix & "album_users.member_id " end select sqldtl = sqldtl & strSqlSort 'response.write sqldtl set rs = Server.CreateObject("ADODB.Recordset") rs.open sqldtl, my_Conn, adOpenStatic itemsFound = rs.recordcount if rs.EOF or rs.BOF then Dim aData(0,0) aData(0,0) = 0 else aData = rs.GetRows end if rs.close: set rs=nothing mypage = request("whichpage") if ((Trim(mypage) = "") or (IsNumeric(mypage) = False)) then mypage = 1 mypage = cLng(mypage) 'set the mypage for the drop down if Request.QueryString("whichpage") <> "" then intPage = cint(Request.QueryString("whichpage")) else intPage = 1 end if 'check to see what page we are on if not set default it to the first page intRecordsPerPage = 12 ' Records per page if intFirstRecord + (intRecordsPerPage - 1) >= ubound(aData,2) then else if ((ubound(aData,2)+1) / intRecordsPerPage) > cint((ubound(aData,2)+1) / intRecordsPerPage) then 'check for any hangover records maxpages = cint(((ubound(aData,2)+1) / intRecordsPerPage)) maxpages = maxpages + 1 'make sure we have enough pages to cover all the records else maxpages = cint(((ubound(aData,2)+1) / intRecordsPerPage)) end if 'needed for the dropdown navigation. Only likes Whole numbers no fractions! end if if aData(0,0) = 0 then response.write "

No photos matched your search!


"&vbNewline else intFirstRecord = (intPage - 1) * intRecordsPerPage 'The first record to display 'block to build the forward and back navigation ref = "
" if intPage > 1 then ' We're not on the 1st page, show a previous link ref = ref & ""&getCurrentIcon(strIconGoLeft,"","align=absmiddle")&"Previous " b_ref = ref & " " end if if intFirstRecord + (intRecordsPerPage - 1) >= ubound(aData,2) then 'We're on the last page intLastRecord = ubound(aData,2) else 'There's more pages - show a next link intLastRecord = intFirstRecord + (intRecordsPerPage - 1) ref = ref &" "&getCurrentIcon(strIconGoRight,"","align=absmiddle")&"Next" ref = pref & ref b_ref = ref & " " end if if maxpages > 1 then response.write ""&VbnewLine&_ " "&VbnewLine&_ " "&VbnewLine&_ " "&VbnewLine&_ " "&VbnewLine&_ "
" 'Call DropDownPaging(1) response.write ""&vbNewLine&_ ref & vbNewLine &_ "
"&VbnewLine 'if there are more than 1 page build and show the drop down nav end if select case request.querystring("action") case "my" header = "My Gallery - " & itemsFound & " items found" case "fav" header = "My Favorites - " & itemsFound & " items found" case "search" if criteria = "" then header = "Search Photos - " & itemsFound & " items found" else header = "Search Photo Title or Description for: '" & request.querystring("si") & "', " & itemsFound & " items found" end if case "" header = "Recent Photos " case else header = "Search - " & itemsFound & " items found" end select Response.Write "" & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if maxpages > 1 then response.write " "&VbnewLine '&_ Call DropDownPaging(1) else response.write " "&VbnewLine '&_ end if reccnt = intLastRecord + 1 if intPage > 1 then intRecordsPerPage = intRecordsPerPage + intFirstRecord end if i = intFirstRecord do while not(i = intRecordsPerPage) cntr = 0 Response.Write""&vbNewline do while cntr < 4 and not(i = intRecordsPerPage) pstat = cint(aData(5,i)) m_name = trim(aData(15,i)) strBasePath = bdir & "\" & m_name & "\"& aData(2,i) strBasePath = unclr_spaces(strBasePath) strBasePath = Server.MapPath(strBasePath) Set objF = objFileSysObj.GetFile(strBasePath) ref = "" if i => reccnt then else Response.Write"" '&vbNewline end if cntr = cntr + 1 i = i + 1 loop Response.Write ""&vbNewline loop if maxpages > 1 then response.write " " end if response.write"
" & header & " " & header & "
"&VbnewLine strTnPath = trim(Server.MapPath(bdir) & "\"& m_name &"\tn\tn_"&aData(2,i)) if objFileSysObj.FileExists(strTnPath) then strImage = clr_spaces(bdir &"\"& m_name &"\tn\tn_"&aData(2,i)) else strImage = clr_spaces(bdir &"\"& m_name &"\"& aData(2,i)) end if sqldtl = "Select count(reply_id) as r_count from " & strMemberTablePrefix & "ALBUM_REPLY where photo_id = "& aData(0,i) &" group by photo_id" 'response.write sqldtl 'response.end set rs = My_Conn.Execute(sqldtl) if not rs.BOF or not rs.EOF then rsCount = rs("r_count") refComment = ref else rsCount = "" refComment = "0" end if set rs = nothing response.write "" response.write " " response.write " " response.write " " response.write "
"&ref&"
" response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " if action = "fav" then response.write "
"&aData(7,i) & "
User: "& profileLink(ChkString(aData(15,i),"display"),aData(1,i)) & "
File: "&aData(2,i) & "
Views: "&aData(14,i) & "
Date: "&aData(13,i) & "
remove" end if response.write "
" Response.Write "
" Call DropDownPaging(1) response.write "
"&VbnewLine&_ "
" & b_ref&VbnewLine&_ " "&VbnewLine&_ " "&VbnewLine&_ ""&VbnewLine end if set strConf = nothing set objFC = nothing set objF = nothing set My_Conn = nothing Set objFileSysObj = nothing end sub sub selectPhoto 'on error resume next pic = request.querystring("photo") loc = request.querystring("loc") set My_Conn = Server.CreateObject("ADODB.Connection") My_Conn.Open strConnString Set objFileSysObj = CreateObject("Scripting.FileSystemObject") sqldtl = "Update " & strMemberTablePrefix & "album set views=views+1" & _ " where photo_id="&pic set rs = My_Conn.Execute(sqldtl) sqldtl = "select " & strMemberTablePrefix & "album.*, " & strMemberTablePrefix & "album_users.m_name " & _ "from " & strMemberTablePrefix & "album INNER JOIN " & strMemberTablePrefix & "ALBUM_USERS ON " & strMemberTablePrefix & "ALBUM.Member_id = " & strMemberTablePrefix & "ALBUM_USERS.Member_id" & _ " where photo_id="&pic set rs = My_Conn.Execute(sqldtl) M_ID = rs("Member_id") strMemberName = rs("m_name") if pic = "" then else strBasePath = loc strBasePath = unclr_spaces(strBasePath) strBasePath = Server.MapPath(strBasePath) 'Set objF = objFileSysObj.GetFile(strBasePath) 'if gfxSpex(objF.Path, w, h, c, strType) = true then ' width = w ' height = h 'end if if cint(width) = 0 then response.write ""& vbNewLine & _ " "& vbNewLine & _ " "& vbNewLine & _ "
"& vbNewLine & _ " "& vbNewLine & _ "
& loc &
" &rs("photo_title")&"
"& vbNewLine else response.write ""& vbNewLine & _ " "& vbNewLine & _ " "& vbNewLine & _ " alt="& loc &">" & vbNewLine & _ " "& vbNewLine & _ "
& loc &
" &rs("photo_title")&"
"& vbNewLine end if end if response.write "
" response.write "" response.write "
" response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write "
Photo Details
Poster: " & profileLink(ChkString(strMemberName,"display"),M_ID) & " " response.write " (see this users gallery)
" response.write "
" response.write "
" & rs("photo_desc") & "
" response.write "
· Date: " & rs("ul_dttm") & " · Views: "&rs("views")&" ·
" response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write "
Additional Info
Location: "&rs("photo_loc")&"
Equipment Used: "&rs("photo_equip")&"
Exposure: "&rs("photo_exp")&"
Film & Developer: "&rs("photo_film")&"
Paper & Developer: "&rs("photo_paper")&"
" response.write " Add to Favorites · ·" response.write " Print View" if (mLev>=3) or (mem_id = M_ID) then Response.Write " · Delete Photo" & vbNewLine end if response.write "


" call Comments() if strShowQuickReply = "1" and strDBNTUserName <> "" then call QuickReply() end if rs.close: set rs=nothing set My_Conn = nothing end sub Select case request("action") Case "my" RecentPhotos Case "fav" RecentPhotos Case "displayimage" SelectPhoto Case "search" RecentPhotos Case "searchName" RecentPhotos Case "addfav" on error resume next set My_Conn = Server.CreateObject("ADODB.Connection") My_Conn.Open strConnString Photo_id = request.querystring("pId") strSql = "Insert into " & strMemberTablePrefix & "album_favorites (Member_id, Photo_id) Values (" & mem_id & ", " & Photo_id & ")" set rs = My_Conn.Execute(strSql) set rs = nothing set My_Conn = nothing response.write "
Photo added to your Favorites List" response.write "" response.write "

Back to Forum

" 'response.write "
" & strsql Case "deletefav" on error resume next set My_Conn = Server.CreateObject("ADODB.Connection") My_Conn.Open strConnString Photo_id = request.querystring("pId") strSql = "Delete * From " & strMemberTablePrefix & "album_favorites where member_id=" & mem_id & " and photo_id=" & Photo_id set rs = My_Conn.Execute(strSql) set rs = nothing set My_Conn = nothing response.write "Photo deleted from your Favorites List" response.write "" response.write "

Back to Forum" Case "deleteReply" on error resume next set My_Conn = Server.CreateObject("ADODB.Connection") My_Conn.Open strConnString Photo_id = request.querystring("PHOTO_ID") Reply_id = request.querystring("REPLY_ID") '## Forum_SQL - Delete reply strSql = "DELETE FROM " & strMemberTablePrefix & "ALBUM_REPLY " strSql = strSql & " WHERE REPLY_ID = " & Reply_id & " and photo_id = " & Photo_id set rs = My_Conn.Execute(strSql) set rs = nothing set My_Conn = nothing 'response.write "
" & strsql response.write "Reply Deleted!" response.write "" response.write "

Back to Forum" Case "deletePhoto" on error resume next set My_Conn = Server.CreateObject("ADODB.Connection") My_Conn.Open strConnString Photo_id = request.querystring("PHOTO_ID") loc = request.querystring("loc") '## Forum_SQL - Delete Reply strSql = "DELETE FROM " & strMemberTablePrefix & "ALBUM_REPLY " strSql = strSql & " WHERE Photo_ID = " & Photo_id set rs = My_Conn.Execute(strSql) response.write "

Reply Deleted!" '## Forum_SQL - Delete Favorite strSql = "DELETE FROM " & strMemberTablePrefix & "ALBUM_FAVORITES " strSql = strSql & " WHERE Photo_ID = " & Photo_id set rs = My_Conn.Execute(strSql) response.write "
Favorite Deleted!" '## Forum_SQL - Delete Photo strSql = "DELETE FROM " & strMemberTablePrefix & "ALBUM " strSql = strSql & " WHERE Photo_ID = " & Photo_id set rs = My_Conn.Execute(strSql) response.write "
Photo Deleted!" set rs = nothing set My_Conn = nothing photo = Server.MapPath(loc) thumbnail = Server.MapPath(getdir(loc) & "tn/tn_" & getfilename(loc)) Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile photo, false objFSO.DeleteFile thumbnail, false Set objFSO = Nothing response.write "" response.write "

Back to Forum

" Case Else RecentPhotos End Select set strConf = nothing set objFC = nothing set objF = nothing set My_Conn = nothing Set objFileSysObj = nothing response.write "
" response.write " " response.write " " response.write " " response.write " " response.write "

" response.write "
" '## mod does is change the posting page so that when you press CTRL+B, CTRL+I or CTRL+U Response.Write "
" Call WriteFooter sub Comments() photo_id = Request.QueryString("photo") loc = Request.QueryString("loc") Dim ArchiveView, ArchiveLink, CColor if request("ARCHIVE") = "true" then strActivePrefix = strTablePrefix & "A_" ArchiveView = "true" ArchiveLink = "ARCHIVE=true&" elseif request("ARCHIVE") <> "" then Response.Redirect "default.asp" Response.End else strActivePrefix = strTablePrefix ArchiveView = "" ArchiveLink = "" end if Response.Write " " & vbNewLine mypage = request("whichpage") if ((Trim(mypage) = "") or (IsNumeric(mypage) = False)) then mypage = 1 mypage = cLng(mypage) if strSignatures = "1" and strDSignatures = "1" then if ViewSig(MemberID) <> "0" then CanShowSignature = 1 end if end if '## Forum_SQL - Get original topic and check for the Category, Forum or Topic Status and existence strSql = "SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO" & _ ", M.M_TITLE, M.M_HOMEPAGE, M.MEMBER_ID, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY" & _ ", T.PHOTO_NAME" if CanShowSignature = 1 then strSql = strSql & ", M.M_SIG" end if strSql = strSql & " FROM " & strActivePrefix & "ALBUM T, " & _ strMemberTablePrefix & "MEMBERS M " & _ " WHERE T.PHOTO_ID = " & PHOTO_ID & _ " AND M.MEMBER_ID = T.MEMBER_ID " 'response.write strSql set rsComment = Server.CreateObject("ADODB.Recordset") rsComment.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText if rsComment.EOF then recTopicCount = "" else recTopicCount = 1 Member_Name = rsComment("M_NAME") Member_ReceiveMail = rsComment("M_RECEIVE_EMAIL") Member_AIM = rsComment("M_AIM") Member_ICQ = rsComment("M_ICQ") Member_MSN = rsComment("M_MSN") Member_YAHOO = rsComment("M_YAHOO") 'Member_PM = rsComment("M_PMRECEIVE") Member_Title = rsComment("M_TITLE") Member_Homepage = rsComment("M_HOMEPAGE") TMember_ID = rsComment("MEMBER_ID") Member_Level = rsComment("M_LEVEL") Member_Posts = rsComment("M_POSTS") Member_Country = rsComment("M_COUNTRY") 'Member_Avatar = rsComment("M_AVATAR_URL") 'Member_Date = rsComment("M_DATE") if CanShowSignature = 1 then Topic_MemberSig = trim(rsComment("M_SIG")) end if end if rsComment.close set rsComment = nothing if mLev = 4 then AdminAllowed = 1 ForumChkSkipAllowed = 1 elseif mLev = 3 then AdminAllowed = 1 ForumChkSkipAllowed = 1 elseif lcase(strNoCookies) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 0 else AdminAllowed = 0 ForumChkSkipAllowed = 0 end if if strModeration > 0 and Cat_Moderation > 0 and Forum_Moderation > 0 and AdminAllowed = 0 then Moderation = "Y" else Moderation = "N" end if if mypage = -1 and Request.QueryString("REPLY_ID") <> "" then strSql1 = "SELECT REPLY_ID " strSql2 = "FROM " & strActivePrefix & "ALBUM_REPLY " strSql3 = "WHERE PHOTO_ID = " & PHOTO_ID & " " ' DEM --> if not a Moderator, all unapproved posts should not be viewed. if AdminAllowed = 0 then strSql3 = strSql3 & "AND (R_STATUS < " if Moderation = "Y" then ' Ignore unapproved/rejected posts strSql3 = strSql3 & "2 " else ' Ignore any previously rejected topic strSql3 = strSql3 & "3 " end if strSql3 = strSql3 & "OR R_AUTHOR = " & MemberID & ") " end if strSql4 = "ORDER BY R_DATE ASC " if strDBType = "mysql" then set rsReplies = Server.CreateObject("ADODB.Recordset") rsReplies.open strSql1 & strSql2 & strSql3 & strSql4, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText if rsReplies.EOF then iReplyCount = "" else arrReplyData = rsReplies.GetRows(adGetRowsRest) iReplyCount = UBound(arrReplyData, 2) rREPLY_ID = 0 end if LastPostReplyID = cLng(Request.QueryString("REPLY_ID")) if iReplyCount <> "" then for iReply = 0 to iReplyCount intReplyID = arrReplyData(rREPLY_ID,iReply) if LastPostReplyID = intReplyID then intPageNumber = ((iReply+1)/strPageSize) if intPageNumber > cLng(intPageNumber) then intPageNumber = cLng(intPageNumber) + 1 end if strwhichpage = "whichpage=" & intPageNumber & "&" exit for end if next else strwhichpage = "" end if rsReplies.Close set rsReplies = nothing else set rsReplies = Server.CreateObject("ADODB.Recordset") rsReplies.cachesize = strPageSize rsReplies.pagesize = strPageSize rsReplies.open strSql1 & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic, adLockReadOnly, adCmdText LastPostReplyID = cLng(Request.QueryString("REPLY_ID")) rsReplies.Find = "REPLY_ID=" & LastPostReplyID & "" if not (rsReplies.EOF or rsReplies.BOF) then if rsReplies.absolutepage > 1 then strwhichpage = "whichpage=" & rsReplies.absolutepage & "&" else strwhichpage = "" end if rsReplies.Close set rsReplies = nothing end if Response.Redirect("photo_gallery.asp?action=displayimage&photo="& photo_id &"&loc="&loc & strwhichpage & "PHOTO_ID=" & PHOTO_ID & "&#" & LastPostReplyID & "") Response.End end if 'response.write strSql1 & strSql2 & strSql3 & strSql4 'response.end ' -- Get all the high level(board, category, forum) subscriptions being held by the user Dim strSubString, strSubArray, strBoardSubs, strCatSubs, strForumSubs, strTopicSubs if MySubCount > 0 then strSubString = PullSubscriptions(0, 0, 0) strSubArray = Split(strSubString,";") if uBound(strSubArray) < 0 then strBoardSubs = "" strCatSubs = "" strForumSubs = "" strTopicSubs = "" else strBoardSubs = strSubArray(0) strCatSubs = strSubArray(1) strForumSubs = strSubArray(2) strTopicSubs = strSubArray(3) end if end If if (Moderation = "Y" and Topic_Status > 1 and Topic_Author <> MemberID) then Response.write "


Viewing of this Topic is not permitted until it has been moderated.
Please try again later

" & vbNewLine & _ "

Go Back


" & vbNewLine WriteFooter Response.end else Response.Write " " & vbNewLine '## Forum_SQL strSql = "SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO" strSql = strSql & ", M.M_TITLE, M.MEMBER_ID, M.M_HOMEPAGE, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY" strSql = strSql & ", R.REPLY_ID, R.R_AUTHOR, R.FORUM_ID, R.PHOTO_ID, R.R_MESSAGE, R.R_LAST_EDIT" strSql = strSql & ", R.R_LAST_EDITBY, R.R_SIG, R.R_STATUS, R.R_DATE" if CanShowSignature = 1 then strSql = strSql & ", M.M_SIG" end if strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS M, " & strActivePrefix & "ALBUM_REPLY R " strSql3 = " WHERE M.MEMBER_ID = R.R_AUTHOR " strSql3 = strSql3 & " AND R.PHOTO_ID = " & PHOTO_ID & " " ' DEM --> if not a Moderator, all unapproved posts should not be viewed. if AdminAllowed = 0 then strSql3 = strSql3 & " AND (R.R_STATUS < " if Moderation = "Y" then ' Ignore unapproved/rejected posts strSql3 = strSql3 & "2" else ' Ignore any previously rejected topic strSql3 = strSql3 & "3" end if strSql3 = strSql3 & " OR R.R_AUTHOR = " & MemberID & ")" end if strSql4 = " ORDER BY R.R_DATE ASC" 'response.write strSql & strSql1 & strSql2 & strSql3 if strDBType = "mysql" then 'MySql specific code if mypage > 1 then intOffset = cLng((mypage-1) * strPageSize) strSql5 = " LIMIT " & intOffset & ", " & strPageSize & " " end if '## Forum_SQL - Get the total pagecount strSql1 = "SELECT COUNT(R.PHOTO_ID) AS REPLYCOUNT " set rsCount = my_Conn.Execute(strSql1 & strSql2 & strSql3) iPageTotal = rsCount(0).value rsCount.close set rsCount = nothing if iPageTotal > 0 then maxpages = (iPageTotal \ strPageSize ) if iPageTotal mod strPageSize <> 0 then maxpages = maxpages + 1 end if if iPageTotal < (strPageSize + 1) then intGetRows = iPageTotal elseif (mypage * strPageSize) > iPageTotal then intGetRows = strPageSize - ((mypage * strPageSize) - iPageTotal) else intGetRows = strPageSize end if else iPageTotal = 0 maxpages = 0 end if if iPageTotal > 0 then set rsReplies = Server.CreateObject("ADODB.Recordset") rsReplies.Open strSql & strSql2 & strSql3 & strSql4 & strSql5, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText arrReplyData = rsReplies.GetRows(intGetRows) iReplyCount = UBound(arrReplyData, 2) rsReplies.Close set rsReplies = nothing else iReplyCount = "" end if else 'end MySql specific code set rsReplies = Server.CreateObject("ADODB.Recordset") rsReplies.cachesize = strPageSize rsReplies.open strSql & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic, adLockReadOnly, adCmdText if not (rsReplies.EOF or rsReplies.BOF) then rsReplies.pagesize = strPageSize rsReplies.absolutepage = mypage '** maxpages = cLng(rsReplies.pagecount) if maxpages >= mypage then arrReplyData = rsReplies.GetRows(strPageSize) iReplyCount = UBound(arrReplyData, 2) 'if iReplyCount = 0 then iReplyCount = 1 else iReplyCount = "" end if else '## No replies found in DB iReplyCount = "" end if rsReplies.Close set rsReplies = nothing end if if maxpages > 1 then Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" if mypage > 1 then Response.Write(""&getCurrentIcon(strIconGoLeft,"","align=absmiddle")&"Previous") if mypage > 1 and mypage < maxpages then Response.Write(" | ") if mypage < maxpages then Response.Write(""&getCurrentIcon(strIconGoRight,"","align=absmiddle")&"Next") Response.Write "
" & vbNewLine end if if iReplyCount > -1 then Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if (AdminAllowed = 1) then if maxpages > 1 then Call DropDownPaging(1) Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if else if maxpages > 1 then Call DropDownPaging(1) Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if end if Response.Write " " & vbNewLine '## Ignore post mod. Lets poulate the array with the ignored members ID if strIgnorePost = "1" then arrIgnoreMemberList = IgnoreMemberList() end if '## Ignore post mod if iReplyCount = "" then '## No replies found in DB ' Nothing else intI = 0 rM_NAME = 0 rM_RECEIVE_EMAIL = 1 rM_AIM = 2 rM_ICQ = 3 rM_MSN = 4 rM_YAHOO = 5 'rM_PM = 6 rM_TITLE = 6 rMEMBER_ID = 7 rM_HOMEPAGE = 8 rM_LEVEL = 9 rM_POSTS = 10 rM_COUNTRY = 11 'rM_Avatar = 13 'rM_Date = 14 rREPLY_ID = 12 rFORUM_ID = 13 rR_AUTHOR = 14 rPHOTO_ID = 15 rR_MESSAGE = 16 rR_LAST_EDIT = 17 rR_LAST_EDITBY = 18 rR_SIG = 19 rR_STATUS = 20 rR_DATE = 21 if CanShowSignature = 1 then rM_SIG = 22 end if for iForum = 0 to iReplyCount Reply_MemberName = arrReplyData(rM_NAME, iForum) Reply_MemberReceiveEmail = arrReplyData(rM_RECEIVE_EMAIL, iForum) Reply_MemberAIM = arrReplyData(rM_AIM, iForum) Reply_MemberICQ = arrReplyData(rM_ICQ, iForum) Reply_MemberMSN = arrReplyData(rM_MSN, iForum) Reply_MemberYAHOO = arrReplyData(rM_YAHOO, iForum) 'Reply_MemberPM = arrReplyData(rM_PM, iForum) Reply_MemberTitle = arrReplyData(rM_TITLE, iForum) Reply_MemberID = arrReplyData(rMEMBER_ID, iForum) Reply_MemberHomepage = arrReplyData(rM_HOMEPAGE, iForum) Reply_MemberLevel = arrReplyData(rM_LEVEL, iForum) Reply_MemberPosts = arrReplyData(rM_POSTS, iForum) Reply_MemberCountry = arrReplyData(rM_COUNTRY, iForum) 'Reply_MemberAvatar = arrReplyData(rM_Avatar, iForum) 'Reply_MemberDate = arrReplyData(rM_Date, iForum) Reply_ReplyID = arrReplyData(rREPLY_ID, iForum) Reply_ForumID = arrReplyData(rFORUM_ID, iForum) Reply_Author = arrReplyData(rR_AUTHOR, iForum) Reply_PhotoID = arrReplyData(rPHOTO_ID, iForum) Reply_Content = arrReplyData(rR_MESSAGE, iForum) Reply_LastEdit = arrReplyData(rR_LAST_EDIT, iForum) Reply_LastEditBy = arrReplyData(rR_LAST_EDITBY, iForum) Reply_Sig = arrReplyData(rR_SIG, iForum) Reply_Status = arrReplyData(rR_STATUS, iForum) Reply_Date = arrReplyData(rR_DATE, iForum) if CanShowSignature = 1 then Reply_MemberSig = trim(arrReplyData(rM_SIG, iForum)) end if if intI = 0 then CColor = strAltForumCellColor else CColor = strForumCellColor end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine intI = intI + 1 if intI = 2 then intI = 0 end if next end if Response.Write " " & vbNewLine if maxpages > 1 then Call DropDownPaging(2) Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine if (AdminAllowed = 1) then if maxpages > 1 then Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine & _ "
Comments on this picture can be made in the photo comment forum " & vbNewLine if strShowTopicNav = "1" then 'Call Topic_nav() else Response.Write("Photo") end if Response.Write "" & vbNewLine call AdminOptions(PHOTO_ID, loc) Response.Write " " & vbNewLine call AdminOptions(PHOTO_ID, loc) Response.Write "   
" & vbNewLine & _ "

" & profileLink(ChkString(Reply_MemberName,"display"),Reply_Author) & "
" & vbNewLine if strShowRank = 1 or strShowRank = 3 then Response.Write " " & ChkString(getMember_Level(Reply_MemberTitle, Reply_MemberLevel, Reply_MemberPosts),"display") & "
" & vbNewLine end if if strShowRank = 2 or strShowRank = 3 then Response.Write " " & getStar_Level(Reply_MemberLevel, Reply_MemberPosts) & "
" & vbNewLine end if 'Response.Write "

" & vbNewLine & _ '# "

" & vbNewLine if Reply_MemberAvatar <> "noavatar.gif" and Reply_MemberAvatar <> "" then response.write "

" end if if trim(Reply_MemberDate) <> "" then Response.Write " Joined: " & chkDate(Reply_MemberDate, " ", false) & "
" & vbNewLine end if if strCountry = "1" and trim(Reply_MemberCountry) <> "" then Response.Write " Location: " & Reply_MemberCountry & "
" & vbNewLine end if Response.Write " Posts: " & Reply_MemberPosts & "
" & vbNewLine Response.Write "

1) then Response.Write (" colspan=4 ") else Response.Write (" colspan=3 ") end if Response.Write "valign=top>" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if CanShowSignature = 1 and Reply_Sig = 1 and Reply_MemberSig <> "" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strEditedByDate = "1" and Reply_LastEditBy <> "" then if Reply_LastEditBy <> Reply_Author then Reply_LastEditByName = getMemberName(Reply_LastEditBy) else Reply_LastEditByName = chkString(Reply_MemberName,"display") end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine ' DEM --> Start of Code altered for moderation if Reply_Status < 2 then Response.Write " " & getCurrentIcon(strIconPosticon,"","hspace=3") & "Posted - " & ChkDate(Reply_Date, " : " ,true) & "" & vbNewline elseif Reply_Status = 2 then Response.Write " NOT MODERATED!!!" & vbNewline elseif Reply_Status = 3 then Response.Write " " & getCurrentIcon(strIconPosticonHold,"","hspace=3") & "ON HOLD" & vbNewline end if ' DEM --> End of Code added for moderation. Response.Write "  " & profileLink(getCurrentIcon(strIconProfile,"Show Profile","align=absmiddle hspace=6"),Reply_MemberID) & vbNewLine if mLev > 2 or Reply_MemberReceiveEmail = "1" then if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then Response.Write "  " & getCurrentIcon(strIconEmail,"Email Poster","align=absmiddle hspace=6") & "" & vbNewLine end if end if if strHomepage = "1" then if Reply_MemberHomepage <> " " then Response.Write "  " & getCurrentIcon(strIconHomepage,"Visit " & ChkString(Reply_MemberName,"display") & "'s Homepage","align=absmiddle hspace=6") & "" & vbNewLine end if end if if (AdminAllowed = 1 or Reply_MemberID = MemberID) then Response.Write "  " & getCurrentIcon(strIconEditTopic,"Edit Reply","align=absmiddle hspace=6") & "" & vbNewLine end if if (strAIM = "1") then if Trim(Reply_MemberAIM) <> "" then Response.Write "  " & getCurrentIcon(strIconAIM,"Send " & ChkString(Reply_MemberName,"display") & " an AOL message","align=absmiddle hspace=6") & "" & vbNewLine end if end if if strICQ = "1" then if Trim(Reply_MemberICQ) <> "" then Response.Write "  " & getCurrentIcon(strIconICQ,"Send " & ChkString(Reply_MemberName,"display") & " an ICQ Message","align=absmiddle hspace=6") & "" & vbNewLine end if end if if (strMSN = "1") then if Trim(Reply_MemberMSN) <> "" then Response.Write "  " & getCurrentIcon(strIconMSNM,"Click to see " & ChkString(Reply_MemberName,"display") & "'s MSN Messenger address","align=absmiddle hspace=6") & "" & vbNewLine end if end if if strYAHOO = "1" then if Trim(Reply_MemberYAHOO) <> "" then Response.Write "  " & getCurrentIcon(strIconYahoo,"Send " & ChkString(Reply_MemberName,"display") & " a Yahoo! Message","align=absmiddle hspace=6") & "" & vbNewLine end if end if If (Reply_MemberPM = "1" and strPMStatus = "1") Then if Trim(Reply_MemberPM) <> "" then Response.Write " " & getCurrentIcon(strIconPmprivatemessage,"Send " & ChkString(Reply_MemberName,"display") & " a Private Message","align=absmiddle hspace=0") & "" & vbNewLine End If End IF 'if (AdminAllowed = 1) and ArchiveView = "" then Response.Write "  " & getCurrentIcon(strIconReplyTopic,"Reply with Quote","align=absmiddle hspace=6") & "" & vbNewLine 'end if if (strIPLogging = "1") then if (AdminAllowed = 1) then Response.Write "  " & getCurrentIcon(strIconIP,"View user's IP address","align=absmiddle hspace=6") & "" & vbNewLine end if end if if strIgnorePost = "1" then Response.Write " " & getCurrentIcon(strIconIgnoreMember,"Ignore this user's posts","align=""absmiddle"" hspace=""0""") & "" end if if (AdminAllowed = 1 or Reply_MemberID = MemberID) then if (AdminAllowed = 1 or Reply_MemberID = MemberID) then 'Response.Write "  " & getCurrentIcon(strIconDeleteReply,"Delete Reply","align=absmiddle hspace=6") & "" & vbNewLine Response.Write "  " & getCurrentIcon(strIconDeleteReply,"Delete Reply","align=absmiddle hspace=6") & "" & vbNewLine end if ' DEM --> Start of Code added for Full Moderation if (AdminAllowed = 1 and Reply_Status > 1) then ReplyString = "REPLY_ID=" & Reply_ReplyID & "&CAT_ID=" & Cat_ID & "&FORUM_ID=" & Forum_ID & "&PHOTO_ID=" & PHOTO_ID Response.Write "  " & getCurrentIcon(strIconFolderModerate,"Approve/Hold/Reject this Reply","align=absmiddle hspace=6") & "" & vbNewline end if ' DEM --> End of Code added for Full Moderation end if Response.Write "
" '## Ignore Post mod if strIgnorePost = "1" then boolIgnoreReply = ChkIgnoreList(arrIgnoreMemberList, Reply_MemberID) end if if Request.QueryString("SearchTerms") <> "" then if strIgnorePost = "1" then if boolIgnoreReply then WriteIgnPostLinks Photo_ID, Reply_ReplyID, Reply_MemberID else Response.Write SearchHiLite(formatStr(Reply_Content)) end if else Response.Write SearchHiLite(formatStr(Reply_Content)) end if else if strIgnorePost = "1" then if boolIgnoreReply then WriteIgnPostLinks Photo_ID, Reply_ReplyID, Reply_MemberID else Response.Write formatStr(Reply_Content) end if else Response.Write formatStr(Reply_Content) end if end if Response.Write "

" & formatStr(Reply_MemberSig) & "

" & _ "Edited by - " & Reply_LastEditByName & " on " & chkDate(Reply_LastEdit, " " ,true) & "
" & getCurrentIcon(strIconGoUp,"Go to Top of Page","align=right") & "
" & vbNewLine & _ "
   1 and (AdminAllowed = 1) then Response.Write(" colspan=2") Response.Write ">" & vbNewLine if strShowTopicNav = "1" then 'Call Topic_nav() else Response.Write("Photo") end if Response.Write " " & vbNewLine call AdminOptions(PHOTO_ID, loc) Response.Write " 
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine if maxpages > 1 then Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" if mypage > 1 then Response.Write(""&getCurrentIcon(strIconGoLeft,"","align=absmiddle")&"Previous") if mypage > 1 and mypage < maxpages then Response.Write(" | ") if mypage < maxpages then Response.Write(""&getCurrentIcon(strIconGoRight,"","align=absmiddle")&"Next") Response.Write "
" & vbNewLine end if Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine) Response.Write(" " & vbNewLine) end if top = "0" end sub '############################################## '## New Function which is not a DropDown but '## we keep the functions name so that it works '## with Snitz '############################################### sub DropDownPaging(fnum) on error resume next photo_id = Request.QueryString("photo") loc = Request.QueryString("loc") mypage = Request.QueryString("whichpage") strQuery = request.queryString iPos = cint(instr(strQuery, "&whichpage")) - 1 if iPos > 0 then ref = mid(strQuery, 1, iPos) else ref = strQuery 'response.write "
"&iPos 'response.write "
"&strQuery 'response.write "
"&ref if maxpages > 1 then if mypage = "" then pge = 1 else pge = mypage end if Response.Write " " & vbNewLine) end if end sub Private Function getDir(strFilename) Dim iPos Dim x On Error Resume Next For x = 1 To Len(strFilename) If Mid(strFilename, x, 1) = "/" Then iPos = x End If Next getDir = Left(strFilename, iPos) End Function Private Function getFileName(strFilename) Dim iPos On Error Resume Next iLength = len(strFileName) For x = 1 To Len(strFilename) If Mid(strFilename, x, 1) = "/" Then iPos = x End If Next getFileName = right(strFilename, iLength - iPos) End Function %>
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine Call PostingOptions() Response.Write "" & vbNewLine %> <% Response.Write "

" & vbNewLine end if end if end sub sub PostingOptions() Response.Write " " & vbNewLine if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (strDBNTUserName = "") then if lcase(strEmail) = "1" and Topic_Status < 2 then if ((mlev <> 0) or (mlev = 0 and strLogonForMail <> "1")) and lcase(strShowSendToFriend) = "1" then Response.Write "
" & getCurrentIcon(strIconSendTopic,,"align=absmiddle") & " Send Topic to a Friend" & vbNewLine end if end if if lcase(strShowPrinterFriendly) = "1" and Topic_Status < 2 then Response.Write "
" & getCurrentIcon(strIconPrint,,"align=absmiddle") & " Printer Friendly" & vbNewLine end if end if Response.Write "
" end sub sub AdminOptions(PHOTO_ID, loc) Response.Write " " & vbNewLine if (mLev >= 3) then Response.Write "  " & getCurrentIcon(strIconDeleteReply,"Delete Gallery Entry","align=absmiddle hspace=6") & "" & vbNewLine end if Response.Write " " end sub function SearchHiLite(fStrMessage) 'function derived from HiLiTeR by 2eNetWorX fArr = split(replace(Request.QueryString("SearchTerms"),";",""), ",") strBuffer = "" for iPos = 1 to len(fStrMessage) bChange = False 'Looks for html tags if mid(fStrMessage, iPos, 1) = "<" then bInHTML = True end if 'Looks for End of html tags if bInHTML = True then if mid(fStrMessage, iPos, 1) = ">" then bInHTML = False end if end if if bInHTML <> True then for i = 0 to UBound(fArr) if fArr(i) <> "" then if lcase(mid(fStrMessage, iPos, len(fArr(i)))) = lcase(fArr(i)) then bChange = True strBuffer = strBuffer & "" & _ mid(fStrMessage, iPos, len(fArr(i))) & "" iPos = iPos + len(fArr(i)) - 1 end if end if next end if if Not bChange then strBuffer = strBuffer & mid(fStrMessage, iPos, 1) end if next SearchHiLite = strBuffer end function Function IgnoreMemberList() strSql = "SELECT I.I_IGNOREID FROM " & _ strTablePrefix & "IGNORE_MEMBER I WHERE I.I_MEMBERID = " & MemberID set rsIgnore = my_Conn.Execute(strSql) if rsIgnore.BOF or rsIgnore.EOF then rsIgnore.close set rsIgnore = nothing exit function else IgnoreMemberList = rsIgnore.GetRows() rsIgnore.close set rsIgnore = nothing end if End Function Function ChkIgnoreList(IgnoredMembers, CurrentMember) if IsArray(IgnoredMembers) = False then ChkIgnoreList = False exit function end if For iRow = 0 to UBound(IgnoredMembers, 2) if IgnoredMembers(0,iRow) = CurrentMember then ChkIgnoreList = True Exit Function end if Next ChkIgnoreList = False End Function Sub WriteIgnPostLinks(Photo_ID, ReplyID, IMemberID) if ReplyID > 0 then strReplyPart = "&REPLY_ID=" & ReplyID if mLev >= 3 then Response.Write "[View Post] " end if Response.Write "[Un-Ignore User]" End Sub sub NavBar response.write "
" response.write " " response.write " " response.write " " response.write " " response.write " " response.write "
" response.write " " response.write "  " response.write " My Album · " response.write " My Favorites" response.write " " response.write " " response.write "  " response.write " Gallery Home · " 'response.write " Search · " response.write " Upload Photos
" response.write "
" response.write "
" response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write "
" response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write "
" response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write "
 Welcome, " & strDBNTUserName & "" response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write "
Search " response.write "
Recent Photos " response.write " 1 day  " response.write " 7 days  " response.write " 14 days  " response.write " all" response.write " " response.write "
" response.write "
" response.write "
" response.write "
" response.write "
" end sub sub sortBar response.write "
" response.write "" response.write " " 'response.write " " 'response.write " " 'response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write " " response.write "
Sort Options
Sort By" response.write " " response.write " From" response.write " " response.write " Sort Order" response.write " " response.write "  " response.write "
" response.write "
" end sub Sub QuickReply() Photo_id = request.querystring("photo") intSigDefault = getSigDefault(MemberID) Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
Quick Reply
Message: 
" & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine if strAllowHTML = "1" then Response.Write " * HTML is ON
" & vbNewLine else Response.Write " * HTML is OFF
" & vbNewLine end if if strAllowForumCode = "1" then Response.Write " * Forum Code is ON
" & vbNewLine else Response.Write " * Forum Code is OFF
" & vbNewLine end if if strSignatures = "1" then Response.Write "

" & vbNewLine end if Response.Write "
" & vbNewLine & _ "

 " 'Response.Write " 
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine end sub sub DropDownPaging2(fnum) response.write "DropDownPaging1 " response.write maxpages if maxpages > 1 then if mypage = "" then pge = 1 else pge = mypage end if scriptname = request.servervariables("script_name") Response.Write("
" & vbNewLine) Response.Write("
" & vbNewLine) if Archiveview = "true" then Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" Page: of " & maxpages & "" & vbNewLine) if Request.QueryString("SearchTerms") <> "" then Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine Response.Write " (Page " & pge & " of " & maxpages &")  " 'We define the range to show 'we will currently only show 10 pages as the default PagesToShow = 5 If cLng(pge) > 1 then MinPageToShow = cLng(pge) - 1 Else MinPageToShow = 1 End If If cLng(pge) + PagesToShow > maxpages then MaxPageToShow = maxpages Else MaxPageToShow = cLng(pge) + PagesToShow End If If MaxPageToShow < maxpages then ShowMaxPage = True Else ShowMaxPage = False End If If MinPageToShow > 1 then ShowMinPage = True Else ShowMinPage = False End If If ShowMinPage then Response.Write " < " End If for counter = MinPageToShow to MaxPageToShow if counter <> cLng(pge) then 'Response.Write "" & counter & " " else Response.Write "" & counter & " " end if Response.Write " " next If ShowMaxPage then Response.Write "> " End If Response.Write " " Response.Write("