<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#include file="inc_file_lister_functions.asp"-->
<%
on error resume next

Response.Write "    <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
"    function ChangePage(fnum){" & vbNewLine & _
"     if (fnum == 1) {" & vbNewLine & _
"        document.PageNum1.submit();" & vbNewLine & _
"     }" & vbNewLine & _
"     else {" & vbNewLine & _
"        document.PageNum2.submit();" & vbNewLine & _
"     }" & vbNewLine & _
"    }" & vbNewLine & _
"    </script>" & vbNewLine
'end javascript block

Set objFileSysObj = CreateObject("Scripting.FileSystemObject")

cname = request.QueryString("cname")
tMID = trim(cint(request.QueryString("mid")))
cid = trim(cint(request.QueryString("cid")))

strSql = "select * from "& strTablePrefix & "FILELISTER_CONFIG"
strConf = My_Conn.execute(strSql)
file_size = trim(strConf("file_size"))
bdir = trim(strConf("base_dir"))
single_filelister = cint(strConf("single_filelister"))
file_type = trim(strConf("file_type"))
If Len(file_type) > 9 Then
	doc = trim(left(file_type, 1))
	txt = trim(right(left(file_type, 3),1))
	pdf = trim(right(left(file_type, 5),1))
	zip = trim(right(left(file_type, 7),1))
	arj = trim(right(left(file_type, 9),1))
End If
mode = trim(request.QueryString("mode"))
strMode = 0
if mode <> "" then
   if mode = "search" then
      strMode = 1
      strFileName = trim(request.QueryString("FileName"))
      strDescription = trim(request.QueryString("Description"))
      strFileSearch = trim(request.QueryString("File_Search"))
   response.write "search mode"&"<BR>"
'  response.write strFileName&"<BR>"
'  response.write strDescription&"<BR>"
'  response.write strFileSearch&"<BR>"
'  response.write sqldtl&"<BR>"
   end if
end if

if strMode = 1 then
      sqldtl = "select * from "& strMemberTablePrefix & "FILELISTER where file_status = 1 "
         if strDescription = "1" and strFileName = "1" then
            sqldtl = sqldtl &"and (file_desc LIKE '%" &strFileSearch&"%' or file_name LIKE '%" &strFileSearch&"%')"
         else
            if strFileName = "1" then
               sqldtl = sqldtl &"and file_name LIKE '%" &strFileSearch&"%'"
            else
               if strDescription = "1" then
                  sqldtl = sqldtl &"and file_desc LIKE '%" &strFileSearch&"%'"
               end if
            end if
         end if
else
   if single_album = 0 then
      sqldtl = "select * from "& strMemberTablePrefix & "FILELISTER where Member_Id ="&trim(cint(tMID))&" and File_Cat = "&trim(cint(cid))
   else
      sqldtl = "select * from "& strMemberTablePrefix & "FILELISTER where File_Cat = "&trim(cint(cid))&" and File_status = 1 order by File_Name"
   end if
end if

set rs = My_Conn.Execute(sqldtl)
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
if single_album = 0 then
   strSql = "select * from "& strMemberTablePrefix & "FILELISTER_USERS where Member_id ="&tMID
end if   
cmd_rt = My_Conn.execute(strSql)
m_name = cmd_rt("M_Name")
m_name = trim(m_name)

if strMode = 1 then
      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=""File_Lister.asp"">File Sections</a><BR>"& vbNewLine & _
      "  " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " Search Results</a><BR>"& vbNewLine & _
      "    </font></td>"& vbNewLine & _
      "  </tr>"& vbNewLine & _
      "</table>"& vbNewLine
else
   if single_filelister = 0 then
      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=""File_Lister.asp"">File Sections</a><BR>"& vbNewLine & _
      "  " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""file_lister_cat.asp?sqldtl="&tMID&""">"&_
      m_name&"'s Categories</a><BR>"& vbNewLine & _
      "  " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") &" "&m_name&"'s "&cname&"<br>"& vbNewLine & _
      "    </font></td>"& vbNewLine & _
      "  </tr>"& vbNewLine & _
      "</table>"& vbNewLine
   else
      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=""File_Lister.asp"">File Sections</a><BR>"& vbNewLine & _
      "  " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " Categories</a><BR>"& vbNewLine & _
      "    </font></td>"& vbNewLine & _
      "  </tr>"& vbNewLine & _
      "</table>"& vbNewLine
   end if
end if

mypage = request("page")
if ((Trim(mypage) = "") or (IsNumeric(mypage) = False)) then mypage = 1
mypage = cLng(mypage)
'set the mypage for the drop down
if Request.QueryString("page") <> "" then
   intPage = cint(Request.QueryString("page"))
else
   intPage = 1
end if
'check to see what page we are on if not set default it to the first page  
intRecordsPerPage = 6 ' Records per page
response.write "<BR>"
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
   if strMode = 1 then
      response.write "<div align = center>No files matched your search!</div>"&vbNewline
   else
      response.write "<div align = center>There are currently No Files in this category!</div><br>"&vbNewline
   end if
   else
   intFirstRecord = (intPage - 1) * intRecordsPerPage 'The first record to display
   'block to build the forward and back navigation
   ref = "<div align = ""right"">"
   if intPage > 1 then ' We're not on the 1st page, show a previous link
      ref = ref & "<font face="""& strDefaultFontFace &""" size="""& strFooterFontSize &"""><a href=file_lister_view.asp?"
      if strMode = 1 then
         ref = ref &"mode="&mode
         ref = ref &"&FileName="&strFileName
         ref = ref &"&File_Search="&server.URLEncode(strFileSearch)
         ref = ref &"&Description="&strDescription
      else
         ref = ref &"cname="&Server.URLEncode(cname)
         ref = ref &"&mid="&tMID
         ref = ref &"&cid="&cid
      end if
      ref = ref &"&page="&intPage - 1
      ref = ref &">"&getCurrentIcon(strIconGoLeft,"","align=""absmiddle""")&"Previous</a></font> "
   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 &" <font face="""& strDefaultFontFace &""" size="""& strFooterFontSize &"""><a href=file_lister_view.asp?"
      if strMode = 1 then
         ref = ref &"mode="&mode
         ref = ref &"&FileName="&strFileName
         ref = ref &"&File_Search="&server.URLEncode(strFileSearch)
         ref = ref &"&Description="&strDescription
      else
         ref = ref &"cname="&Server.URLEncode(cname)
         ref = ref &"&mid="&tMID
         ref = ref &"&cid="&cid
      end if
      ref = ref &"&page="&intPage + 1
      ref = ref &">"&getCurrentIcon(strIconGoRight,"","align=""absmiddle""")&"Next</a></font>"  
      ref = pref & ref 
   end if
   ref = ref &"</div>"
   'end block
   if strMode = 1 then
         response.write "<div align = center><H4> File Lister Search Results</h4></div>"&vbNewline
   else
      if single_album = 0 then
         response.write"<div align = center><H4> "& m_name &"'s "& cname &" </h4></div>"&vbNewline
      else
         response.write "<div align = center><H4> "&STRFORUMTITLE&" Files </h4></div>"&vbNewline
      end if
   end if
   if maxpages > 1 then
      response.write "<table border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"" align=""center"">"&VbnewLine&_
         "      <tr>"&VbnewLine&_
      "        <td width=""50%"" valign=""bottom""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &""">"
      if strMode = 1 then
         Call DropDownPaging(1,strMode,mode,strFileName,strFileSearch,strDescription) 
      else
         Call DropDownPaging(1,0,0,0,0,0) 
      end if
      response.write  "</font></b></td>"&VbnewLine&_
      "        <td width=""50%"" align=""right""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strDefaultFontColor &""">"&vbNewLine&_
      ref & vbNewLine &_
      "</font></b><BR></td>"&VbnewLine&_
      "      </tr>"&VbnewLine&_
      "      </table>"&VbnewLine
      'if there are more than 1 page build and show the drop down nav
   end if
   Response.Write "<table border=""0"" width=""98%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
   "  <tr>" & vbNewLine & _
   "    <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
   "    <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
   "      <tr>" & vbNewLine & _  
   "  <td align=center bgColor="""& strHeadCellColor &"""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &""">File</font></b></td>"&VbnewLine&_
   "        <td align=center bgColor="""& strHeadCellColor &"""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &""">Description</font></b></td>"&VbnewLine&_
   "        <td align=center bgColor="""& strHeadCellColor &"""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &""">File</font></b></td>"&VbnewLine&_
   "        <td align=center bgColor="""& strHeadCellColor &"""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &""">Description</font></b></td>"&VbnewLine&_
   "      </tr>"&VbnewLine
   reccnt = intLastRecord + 1

   if intPage > 1 then
      intRecordsPerPage = intRecordsPerPage + intFirstRecord
   end if
      i = intFirstRecord
   do while not(i = intRecordsPerPage)
      cntr = 0
      Response.Write"<TR>"&vbNewline
      do while cntr < 2 and not(i = intRecordsPerPage)
         pstat = cint(aData(4,i))
         if single_album = 1 or strMode = 1 then
            strSql = "select * from "& strMemberTablePrefix & "FILELISTER_users where Member_Id = "&trim(cint(aData(1,i)))
            strName = My_Conn.execute(strSql)
            m_name = strName("m_name")
            m_name = trim(m_name)
         end if
         strBasePath = bdir&"\"&m_name&"\"&clr_spaces(aData(2,i))
         strBasePath = strBasePath
         ref = "<A HREF="&strBasePath&">"
         if i => reccnt then
            response.write"        <td align = ""center"" bgColor="""& strForumCellColor &""" width=""20%""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &"""> </td>"&VbnewLine
         else
            intFileType = instrrev(aData(2,i),".")
            intStrLen = len(trim(aData(2,i)))
            strFileType = right(trim(aData(2,i)),(intStrLen-intFileType))
            strFileType = UCASE(strFileType)
            Response.Write"        <td align = ""center"" bgcolor="""& strForumCellColor &""" width=""20%""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""">"&VbnewLine
				If strFileType = "JPG" Or strFileType = "BMP" Or strFileType = "GIF" Then Response.Write	"<img src = """ & strBasePath & """ height=""30"" />"
				select case strFileType
				case "ZIP","ARJ"
				Response.Write ref&getCurrentIcon(strIconZip,"","align=""absmiddle""")&"<br>"&unclr_spaces(trim(aData(2,i)))&vbNewline
				case "DOC"
				Response.Write ref&getCurrentIcon(strIconWord,"","align=""absmiddle""")&"<br>"&unclr_spaces(trim(aData(2,i)))&vbNewline				
				case "PDF"
				Response.Write ref&getCurrentIcon(strIconAdobe,"","align=""absmiddle""")&"<br>"&unclr_spaces(trim(aData(2,i)))&vbNewline				
				case "TXT"
				Response.Write ref&getCurrentIcon(strIconNotePad,"","align=""absmiddle""")&"<br>"&unclr_spaces(trim(aData(2,i)))&vbNewline
				Case "JPG"
					Response.Write	ref&"<br />"&trim(aData(2,i))&vbNewline
				Case "BMP"
					Response.Write	ref&"<br />"&trim(aData(2,i))&vbNewline
				Case "GIF"
					Response.Write	ref&"<br />"&trim(aData(2,i))&vbNewline
				Case "MP3"
					Response.Write	ref&getCurrentIcon(strIconMP3,"","align=""absmiddle""")&"<br />"&unclr_spaces(trim(aData(2,i)))&vbNewline
				case Else
					Response.Write	ref&" " & vbNewline
				end select
            Response.Write "</a></font></td>"&vbNewline
         end if
         if i => reccnt then
            response.write"        <td align = ""center"" bgColor="""& strForumCellColor &""" width=""20%""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strHeadFontColor &"""> </td>"&VbnewLine
         else
            Response.Write "        <td bgcolor="""& strForumCellColor &""" width=""20%""><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" width = ""20%"">"&VbnewLine
            Response.Write aData(3,i)
            Response.Write "</a></font></td>"&vbNewline
         end if
         cntr = cntr + 1
         i = i + 1
      loop
      Response.Write "</TR>"&vbNewline
   loop
   response.write"    </table>"&VbnewLine&_
   "    </td>"&VbnewLine&_
   "  </tr>"&VbnewLine&_
   "</table>"&VbnewLine
   'rap up the table
end if
response.write"<br>"&vbNewline
Call WriteFooter

sub DropDownPaging(fnum,strMode,mode,strFileName,strFileSearch,strDescription)
'********************************************
'* ripped from topic.asp and modified to work
'* for our little purpose
'********************************************
   if maxpages > 1 then
      if mypage = "" then
         pge = 1
      else
         pge = mypage
      end if
      scriptname = request.servervariables("script_name")
      Response.Write("<form name=""PageNum" & fnum & """ action=""file_lister_view.asp"">" & vbNewLine)
      if strMode = 1 then
         response.write"   <INPUT TYPE=""hidden"" NAME=""mode"" VALUE="""&mode&""">"
         response.write"   <INPUT TYPE=""hidden"" NAME=""FileName"" VALUE="""&strFileName&""">"
         response.write"   <INPUT TYPE=""hidden"" NAME=""File_Search"" VALUE="""&strFileSearch&""">"
         response.write"   <INPUT TYPE=""hidden"" NAME=""Description"" VALUE="""&strDescription&""">"
      else
         response.write"   <INPUT TYPE=""hidden"" NAME=""cname"" VALUE="""&cname&""">"
         response.write"   <INPUT TYPE=""hidden"" NAME=""mid"" VALUE="""&tMID&""">"
         response.write"   <INPUT TYPE=""hidden"" NAME=""cid"" VALUE="""&cid&""">"
      end if
      Response.Write("<b>Page: </b><select name=""page"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
      for counter = 1 to maxpages
         if counter <> cLng(pge) then   
            Response.Write "  <option value=""" & counter &  """>" & counter & "</option>" & vbNewLine
         else
            Response.Write "  <option selected value=""" & counter &  """>" & counter & "</option>" & vbNewLine
         end if
      next
      Response.Write("</select><b> of " & maxpages & "</b>" & vbNewLine)
      Response.Write("</font>" & vbNewLine)
      Response.Write("</form>" & vbNewLine)
   end if
   top = "0"
end sub 
%>