<%@ Language = VBScript %>
<%
'Get variables
Section = request.queryString("Section")
SectionType = request.queryString("Type")
'Prevent 500 Errors
if len(Section) = 0 then
response.redirect("index.asp")
elseIf Section = "media" or Section = "download" then
if len(SectionType) = 0 then
response.redirect("index.asp")
end if
end if
'Assign appropriate values
if Section = "faq" then
suffixLink = suffixLinkFF10Faqs
folder = folderFF10Faqs
titleOutput = "Final Fantasy 10 FAQs"
subTitleOutput = "Final Fantasy FAQs :: Final Fantasy 10"
bar1 = "Last updated"
bar2 = "Version"
bar3 = "Author"
elseIf Section = "fanart" then
suffixLink = suffixLinkFF10Fanart
folder = folderFF10Fanart
titleOutput = "Final Fantasy 10 Fanart"
subTitleOutput = "Final Fantasy Fanart :: Final Fantasy 10"
bar1 = "Added on"
bar2 = "Artist"
bar3 = "Posted by"
elseIf Section = "fanfic" then
suffixLink = suffixLinkFF10Fanfic
folder = folderFF10Fanfic
titleOutput = "Final Fantasy 10 Fanfic"
subTitleOutput = "Final Fantasy Fanfic :: Final Fantasy 10"
bar1 = "Added on"
bar2 = "Author"
bar3 = "Posted by"
elseIf Section = "download" then
'Get appropriate section to load
if SectionType = "winamp" then
suffixLink = suffixLinkFF10Winamp
folder = folderFF10Winamp
titleOutput = "Final Fantasy 10 Winamp Skins"
subTitleOutput = "Final Fantasy Downloads :: FF10 Winamp Skins"
bar1 = "Added on"
bar2 = "Author"
bar3 = "Posted by"
end if
elseIf Section = "media" then
'Get appropriate section to load
if SectionType = "midi" then
suffixLink = suffixLinkFF10Midi
folder = folderFF10Midi
titleOutput = "Final Fantasy 10 Midi"
subTitleOutput = "Final Fantasy Media :: FF10 Midi's"
bar1 = "Added on"
bar2 = "Posted by"
end if
elseIf Section = "wallpapers" then
suffixLink = suffixLinkFF10Wallpapers
folder = folderFF10Wallpapers
titleOutput = "Final Fantasy 10 Wallpapers"
subTitleOutput = "Final Fantasy Wallpapers :: Final Fantasy 10"
bar1 = "Added on"
bar2 = "Artist"
bar3 = "Posted by"
end if
set objFSO = server.createObject("Scripting.FileSystemObject")
set objFolder = objFSO.getFolder(folder)
'Create the array to store information
dim infoTemp
reDim infoTemp(5)
'Loop files in current folder and display them
for each objFile in objFolder.Files
'Make sure info files don't get loaded
if objFile.name <> "info.txt" then
'Get file name, link and last updated date
infoTemp(0) = replace(objFile.name, ".txt", "")
infoTemp(0) = replace(infoTemp(0), ".jpg", "")
infoTemp(0) = replace(infoTemp(0), ".mid", "")
infoTemp(0) = replace(infoTemp(0), ".zip", "")
infoTemp(1) = objFile.name
'Format the data properly (DD-MM-YY)
infoTemp(2) = formatDate(objFile.dateLastModified)
set objTextStream = objFSO.openTextFile(folder & "/info.txt")
do while not objTextStream.atEndOfStream
strInfo = objTextStream.readLine
strInfo = split(strInfo, "|")
'Get version number / author / posted by
if infoTemp(0) = strInfo(0) then
infoTemp(3) = strInfo(1)
'Prevent midi to loop here
if SectionType <> "midi" then
infoTemp(4) = strInfo(2)
end if
end if
loop
'Concatenate them together and replace underscores with spaces from title / adjust links
infoTemp(0) = replace(infoTemp(0), "_", " ")
infoTemp(1) = suffixLink & infoTemp(1)
output1 = output1 & ""&infoTemp(0)&" "
output2 = output2 & infoTemp(2) & " "
output3 = output3 & infoTemp(3) & " "
output4 = output4 & infoTemp(4) & " "
end if
next
%>
Final Fantasy Industry, your source of FF10, 9, 8, 7 information!<%=titleOutput%>
<%=subTitleOutput%>
<% if SectionType = "midi" then %>
<% else %>
<% end if %>
