<%@ Language=VBScript EnableSessionState=False %><% ' ' ' Welcome to Andromeda! ' ------------------------------------------------------------ ' ' Thanks for choosing to evaluate Andromeda. You'll find it to ' be easy to set up, fully-featured, and highly configurable. ' To get started, please check out the online documentation: ' ' http://www.turnstyle.com/andromeda/docs.asp ' ' ' To purchase your copy, please visit: ' ' http://www.turnstyle.com/andromeda ' ' ' ' Note ' ------------------------------------------------------------ ' Configure Andromeda with a preference file (don't change any ' of this code). See this page for details: ' ' http://www.turnstyle.com/andromeda/preferences.asp ' ' ' If you run multiple copies of Andromeda and want this copy ' to use a different prefs file, you can change the file name ' below. ' ' Any other changes to the code violate the terms of the ' license and will prevent it from working properly. andromedaPrefsFileName = "andromedaPrefs.asp" ' ------------------------------------------------------------ ' License Agreement ' ------------------------------------------------------------ ' ' This software is the copyrighted material of Scott Matthews, ' Turnstyle. This document is a license agreement. By running ' this software on your computer you agree to the terms of ' this license. ' ' The Andromeda Evaluation is licensed for non-commercial, ' evaluation purposes only. The evaluation period is not to ' exceed one month, after which you agree to purchase the ' appropriately licensed version if you choose to continue ' using Andromeda. ' ' Additional licensing information is available from ' info@turnstyle.com. ' ' You agree not to copy or distribute this software or change ' the source code without prior written permission. Please ' send any questions or comments to info@turnstyle.com. ' ' Scott Matthews, Turnstyle takes no responsibility for any ' damage that this software might cause. ' ' This software is designed to provide access to collections ' of files. By using it, you agree to comply with all federal ' and state laws applicable to such content, as well as the ' terms of this license. You agree not to use this software ' to distribute or faciliate the distribution of unauthorized ' copies of copyrighted works. ' ' If you disagree with any of these terms, you are not ' authorized to use this software. If you do agree with these ' terms, please enjoy. ' ' Copyright (c)1999-2002 Scott Matthews, Turnstyle ' http://www.turnstyle.com/andromeda ' ' ' ------------------------------------------------------------ Set local_fs = CreateObject("Scripting.FileSystemObject") sub loadConstants andromedaConst.add "andromedaVersion", "1.9.3.4 ASP" andromedaConst.add "localUser", (request.servervariables("local_addr") = request.servervariables("remote_addr")) andromedaConst.add "scriptFileName", local_fs.GetFileName(request.servervariables("path_info")) andromedaConst.add "scriptPhysicalPath", local_fs.getparentfoldername(request.servervariables("path_translated")) andromedaConst.add "appauth", "Scott Matthews" andromedaConst.add "appcorp", "Turnstyle" andromedaConst.add "appname", "Andromeda" andromedaConst.add "approot", "http://www.turnstyle.com/andromeda" andromedaConst.add "edition", "EVALUATION COPY" end sub sub loadDefaults andromedaPrefs.add "siteName", "andromeda" andromedaPrefs.add "useImageFiles", false andromedaPrefs.add "imageFolderPath", "" andromedaPrefs.add "displayNew", false andromedaPrefs.add "displayAMG", true andromedaPrefs.add "mediaWebPath", local_fs.getparentfoldername(request.servervariables("path_info")) andromedaPrefs.add "mediaPhysicalPath", local_fs.getparentfoldername(request.servervariables("path_translated")) andromedaPrefs.add "editMode", false andromedaPrefs.add "ftpPath", "" andromedaPrefs.add "email", "" andromedaPrefs.add "permitSearch", true andromedaPrefs.add "hostAddress", "" andromedaPrefs.add "customHeader", "
The Andromeda evaluation displays every other file. [buy now]
" andromedaPrefs.add "customBlock", "" andromedaPrefs.add "popupMaxWidth", 48 andromedaPrefs.add "folderAux1", "" andromedaPrefs.add "requireLogon", false andromedaPrefs.add "localFilePlayback", false andromedaPrefs.add "cBlockSize", 3100 andromedaPrefs.add "cBlockCount", 8 andromedaPrefs.add "audioFileTypes", "mp3,wma,wav,aif,aiff,au,ogg,ra,mid,midi" andromedaPrefs.add "videoFileTypes", "mpg,mpeg,mpe,asf,avi,wmv,vob,rv,rm,mov,qt" andromedaPrefs.add "playlistFileTypes", "m3u,asx,ram" andromedaPrefs.add "tkNumTrimCodes", "## - ,##_-_,##_,##." andromedaPrefs.add "cssLinkHref", "" andromedaPrefs.add "playlistMime", "audio/x-mpegurl" andromedaPrefs.add "protocol", "http" andromedaPrefs.add "fileLinks", true andromedaPrefs.add "playLinks", true andromedaPrefs.add "permitPlaylists", true andromedaPrefs.add "getID3info", true andromedaPrefs.add "skipID3v1", true andromedaPrefs.add "absoluteHeader", "" andromedaPrefs.add "absoluteFooter", "" andromedaPrefs.add "disableHTMLheaders", false andromedaPrefs.add "includeHeader", "" andromedaPrefs.add "includeFooter", "" andromedaPrefs.add "includeJavascript", "" andromedaPrefs.add "folderListInfo", "_folderListInfo" andromedaPrefs.add "folderOpenInfo", "_folderOpenInfo" andromedaPrefs.add "folderListImage", "_folderListImage" andromedaPrefs.add "folderOpenImage", "_folderOpenImage" andromedaPrefs.add "folderListImageDims", "" andromedaPrefs.add "folderOpenImageDims", "" andromedaPrefs.add "skinFile", "andromedaSkin.txt" andromedaPrefs.add "logonFile", "andromedaLogons.asp" andromedaPrefs.add "includeEXTM3U", false andromedaPrefs.add "defaultLanguage", "EN" andromedaPrefs.add "globalAnnotations", true andromedaPrefs.add "permitTranslation", true andromedaPrefs.add "skipPrefix", "" andromedaPrefs.add "folderSkipNames", "_private,_fpclass,_vti_cnf,_vti_pvt,_derived,_overlay,RECYCLER,Recycled,System Volume Information,Network Trash Folder" andromedaPrefs.add "checkboxDefault", false andromedaPrefs.add "coreInclude", "" andromedaPrefs.add "iconSize", 1 andromedaPrefs.add "hideMenubar", false andromedaPrefs.add "rootName", "" andromedaPrefs.add "maxPlaylistTracks", 5000 andromedaPrefs.add "timeout", "" andromedaPrefs.add "usePlaylistIcons", true andromedaPrefs.add "vbrScanCount", 50 andromedaPrefs.add "vbrSkipCount", 50 andromedaPrefs.add "cbrCutoff", 5 andromedaPrefs.add "compactSearch", false andromedaPrefs.add "logonMessage", "" andromedaPrefs.add "fileCount", true andromedaPrefs.add "fileCountWidth", 20 andromedaPrefs.add "playSelectionMode", "disabled" andromedaPrefs.add "pDimentions", "16,16" andromedaPrefs.add "aDimentions", "26,16" andromedaPrefs.add "vDimentions", "26,16" andromedaPrefs.add "lDimentions", "26,16" andromedaPrefs.add "hDimentions", "16,16" andromedaPrefs.add "iDimentions", "16,16" andromedaPrefs.add "rDimentions", "16,16" andromedaPrefs.add "tDimentions", "16,16" andromedaPrefs.add "oDimentions", "20,16" andromedaPrefs.add "cDimentions", "26,16" andromedaPrefs.add "gDimentions", "16,16" andromedaPrefs.add "qDimentions", "16,16" andromedaPrefs.add "saDimentions", "26,16" andromedaPrefs.add "snDimentions", "25,16" andromedaPrefs.add "psDimentions", "42,16" andromedaPrefs.add "paDimentions", "42,16" andromedaPrefs.add "prDimentions", "42,16" andromedaPrefs.add "pvDimentions", "42,16" andromedaPrefs.add "kDimentions", "16,16" andromedaPrefs.add "siteWidth", "100%" andromedaPrefs.add "bodyBgColor", "9999cc" andromedaPrefs.add "bodyTextColor", "333333" andromedaPrefs.add "bodyLinkColor", "666699" andromedaPrefs.add "bodyVlinkColor", "996699" andromedaPrefs.add "bodyAlinkColor", "999966" andromedaPrefs.add "bodyMarginSize", "0" andromedaPrefs.add "headDiv", "" andromedaPrefs.add "menubarColor", "999999" andromedaPrefs.add "siteNameColor", "ffff00" andromedaPrefs.add "menubarDiv", "cccc99,1;9999cc,3;cccc99,1;999999,8;666666,1" andromedaPrefs.add "bodyFgColor", "cccc99" andromedaPrefs.add "formStyle", "font-size:9pt;color:000000;background-color:ffffff;" andromedaPrefs.add "bodyFgDiv", "999966,1;efefcc,1" andromedaPrefs.add "bodyFgToRowDiv", "ffffcc,1" andromedaPrefs.add "rowColor1", "efefd0" andromedaPrefs.add "rowColor2", "efefef" andromedaPrefs.add "rowLinkColor", "" andromedaPrefs.add "rowTextColor", "333333" andromedaPrefs.add "newFileColor", "cc6666" andromedaPrefs.add "rowDiv", "d0d0d0,1" andromedaPrefs.add "rowToBodyFgDiv", "666666,1" andromedaPrefs.add "footDiv", "ffffcc,1;999999,2;666666,1" end sub sub loadPrefs if local_fs.fileexists(andromedaConst("scriptPhysicalPath") & "/" & andromedaPrefsFileName) then Set MyFile = local_fs.OpenTextFile(andromedaConst("scriptPhysicalPath") & "/" & andromedaPrefsFileName) do while not MyFile.AtEndOfStream xxx = MyFile.ReadLine if left(xxx,1) = "'" then xxx = right(xxx,len(xxx)-1) xxxa = split(xxx,vbtab) if ubound(xxxa) >= 1 then if andromedaPrefs.exists(xxxa(0)) then andromedaPrefs(xxxa(0)) = xxxa(ubound(xxxa)) end if end if end if loop MyFile.Close end if end sub sub loadSkin if local_fs.fileexists(andromedaConst("scriptPhysicalPath") & "/" & andromedaPrefs("skinFile")) then Set MyFile = local_fs.OpenTextFile(andromedaConst("scriptPhysicalPath") & "/" & andromedaPrefs("skinFile")) do while not MyFile.AtEndOfStream xxx = MyFile.ReadLine xxxa = split(xxx,vbtab) if ubound(xxxa) >= 1 then if andromedaPrefs.exists(xxxa(0)) then andromedaPrefs(xxxa(0)) = xxxa(ubound(xxxa)) end if end if loop MyFile.Close end if end sub sub loadLogons if local_fs.fileexists(andromedaConst("scriptPhysicalPath") & "/" & andromedaPrefs("logonFile")) then Set MyFile = local_fs.OpenTextFile(andromedaConst("scriptPhysicalPath") & "/" & andromedaPrefs("logonFile")) do while not MyFile.AtEndOfStream xxx = MyFile.ReadLine if left(xxx,1) = "'" then xxx = right(xxx,len(xxx)-1) xxxa = split(xxx,vbtab) if ubound(xxxa) >= 1 then if not(andromedaLogons.exists(xxxa(0))) then andromedaLogons.add xxxa(0), xxxa(ubound(xxxa)) end if end if end if loop MyFile.Close end if end sub function vPath (x) vpchk = true if x <> "" then vptmpa = split(replace(x,"\","/"),"/") if vptmpa(0) <> "" then vpchk = false else for vpi = 1 to ubound(vptmpa) if vptmpa(vpi) = "" or vptmpa(vpi) = "." or vptmpa(vpi) = ".." then vpchk = false exit for end if next end if end if vPath = vpchk end function sub andromedaHeader (x) andromedaHeaderCore x,false end sub sub andromedaHeaderCore (x,y) if not andromedaPrefs("disableHTMLheaders") then %><% = minHTMLencode(andromedaPrefs("siteName") & ": " & x) %><% if andromedaPrefs("cssLinkHref") <> "" then %>"><% end if %> "" then %> src="<% = andromedaPrefs("includeJavascript") %>"<% end if %>>" text="<% = andromedaPrefs("bodyTextColor") %>" link="<% = andromedaPrefs("bodyLinkColor") %>" vlink="<% = andromedaPrefs("bodyVlinkColor") %>" alink="<% = andromedaPrefs("bodyAlinkColor") %>" topmargin="<% = andromedaPrefs("bodyMarginSize") %>" leftmargin="<% = andromedaPrefs("bodyMarginSize") %>" marginheight="<% = andromedaPrefs("bodyMarginSize") %>" marginwidth="<% = andromedaPrefs("bodyMarginSize") %>"><% end if if y then %><% end if if ((andromedaPrefs("includeHeader") <> "") and (ScriptEngineMajorVersion >= 5)) then server.execute(andromedaPrefs("includeHeader")) end if %><% = andromedaPrefs("absoluteHeader") %><% %>
<% colorbars andromedaPrefs("headDiv") if not(andromedaPrefs("hideMenubar")) then %>" bgcolor="<% = andromedaPrefs("menubarColor") %>">
><% imagetag "h","i",trans(17) %><% ipad 4,1 %>"><% = minHTMLencode(andromedaPrefs("siteName")) %>
<% if andromedaConst("localUser") then %><% end if if andromedaPrefs("ftpPath") <> "" then %><% end if %>
><% imagetag "r","i",trans(18) %><% ipad 4,1 %>" target=ftp><% imagetag "t","i",trans(20) %><% ipad 4,1 %>" target=_top><% imagetag "i","i",andromedaConst("appname") & ": " & trans(17) %>
<% %>
<% colorbars andromedaPrefs("menubarDiv") end if if andromedaPrefs("customHeader") <> "" then %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">
color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% = andromedaPrefs("customHeader") %>
<% colorbars andromedaPrefs("bodyFgDiv") end if response.flush end sub sub andromedaFooter if andromedaPrefs("customBlock") <> "" then %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">
color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% = andromedaPrefs("customBlock") %>
<% colorbars andromedaPrefs("bodyFgDiv") end if %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">
color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% addvpad 12 if andromedaPrefs("email") <> "" then %><% = trans(26) %> » <% if andromedaPrefs("disableHTMLheaders") then %>" style="color:<% = andromedaPrefs("bodyLinkColor") %>">"><% = andromedaPrefs("email") %><% else %>"><% = andromedaPrefs("email") %><% end if %><% addvpad 12 end if if andromedaPrefs("permitTranslation") then %>">
<% ipad 4,1 %><% imagetag "g","f","" %>
<% addvpad 12 end if ptag = trans(27) if andromedaPrefs("disableHTMLheaders") then ptag = replace(ptag,"#a","" & andromedaConst("appname") & "") else ptag = replace(ptag,"#a","" & andromedaConst("appname") & "") end if %><% = replace(ptag,"##",andromedaConst("andromedaVersion")) %><% addvpad 16 %><% = andromedaConst(ca2s(array(101,100,105,116,105,111,110))) %><% addvpad 6 %>
<% colorbars andromedaPrefs("footDiv") %>
<% %><% = andromedaPrefs("absoluteFooter") %><% if ((andromedaPrefs("includeFooter") <> "") and (ScriptEngineMajorVersion >= 5)) then server.execute(andromedaPrefs("includeFooter")) end if if not andromedaPrefs("disableHTMLheaders") then %><% end if response.write("") end sub sub showfolder (x) if local_fs.folderExists(andromedaPrefs("mediaPhysicalPath") & x) then folderName = displayName(x) andromedaHeader folderName folderOpenNote x & "/" & andromedaPrefs("folderOpenInfo") & ".txt" navbar3 x,"browse" if andromedaPrefs("permitPlaylists") then playlistFormHead true colorbars andromedaPrefs("bodyFgToRowDiv") xx2d = getSubfolders2d(x) for fi = 0 to ubound(xx2d,1) folderrow x & "/" & xx2d(fi,0),false,true rowNote x & "/" & xx2d(fi,0) & "/" & andromedaPrefs("folderListInfo") & ".txt",x & "/" & xx2d(fi,0) response.flush next xx2d = getFiles2d(x) for fi = 0 to ubound(xx2d,1) filerow x & "/" & xx2d(fi,0),false,true rowNote x & "/" & local_fs.getbasename(xx2d(fi,0)) & ".txt","" response.flush next colorbars andromedaPrefs("rowToBodyFgDiv") if andromedaPrefs("permitPlaylists") then playlistFormFoot true displayAMG folderName,isAlbum(x) andromedaFooter else fourOfour end if end sub sub fourOfour () andromedaHeader trans(40) %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>" height=220>
<% if andromedaPrefs("disableHTMLheaders") then %>><% end if %><% = trans(40) & ". " & trans(43) & ", " %><% if andromedaPrefs("disableHTMLheaders") then %> style="color:<% = andromedaPrefs("bodyLinkColor") %>">"><% = trans(42) %><% else %>><% = trans(42) %><% end if %>.<% if andromedaPrefs("disableHTMLheaders") then %><% end if %>
<% colorbars andromedaPrefs("bodyFgDiv") andromedaFooter end sub sub navbar3 (x,y) if andromedaPrefs("permitSearch") then if y = "search" then searchbar x else searchbar "" end if colorbars andromedaPrefs("bodyFgDiv") end if if not((x = "") and (y = "browse")) then %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">
<% imagetag "o","i","" %><% drill2 local_fs.getparentfoldername(x),2 %>
<% colorbars andromedaPrefs("bodyFgDiv") end if if y = "browse" then if x = "" then sidestep = false else sidestep = (subfolderCount(local_fs.getparentfoldername(x)) > 1) end if if andromedaPrefs("playLinks") then playalbum = playable(x) end if %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">
<% if ((x = "") and (y = "browse")) then %><% end if if sidestep then %>><% end if if ((x = "") and (y = "browse")) then %><% elseif y = "search" then %><% elseif y = "playlist" then %><% else if sidestep then %><% else %><% end if end if if sidestep then %><% end if if andromedaPrefs("folderAux1") <> "" then %><% end if if ((y = "playlist") and (ckplaylist <> "") and andromedaPrefs("playLinks")) then %><% end if if playalbum then %><% end if if x = "" then metadisplay = andromedaPrefs("mediaPhysicalPath") else metadisplay = x end if if y = "browse" then metapath = "/" & andromedaPrefs("rootName") & x else metapath = "/" & andromedaPrefs("rootName") & "/" & x end if %><% %>
<% imagetag "o","i","" %>
color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% = andromedaPrefs("rootName") %> color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% = "[" & x & "] " & trans(37) %> color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% = x %><% ipad 4,1 %><% imagetag "g","f","" %> color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% = displayName(x) %><% ipad 4,1 %>"><% imagetag "q","i","discuss" %><% ipad 4,1 %>><% imagetag "p","i",trans(11) %><% ipad 4,1 %><% playFolderButton x %><% ipad 4,1 %>/meta.asp?p=<% = server.urlencode(metapath) %>" target=_blank><% imagetag "k","i",andromedaConst("appname") & ": " & displayname(metadisplay) %>
<% response.flush end sub sub folderOpenNote (x) if (andromedaPrefs("globalAnnotations") or (andromedaPrefs("defaultLanguage") = currentLanguage)) then if local_fs.fileExists(andromedaPrefs("mediaPhysicalPath") & local_fs.getparentfoldername(x) & "/" & andromedaPrefs("folderOpenImage") & ".jpg") then folderImageExt = ".jpg" elseif local_fs.fileExists(andromedaPrefs("mediaPhysicalPath") & local_fs.getparentfoldername(x) & "/" & andromedaPrefs("folderOpenImage") & ".gif") then folderImageExt = ".gif" end if if local_fs.fileExists(andromedaPrefs("mediaPhysicalPath") & x) then note = local_fs.OpenTextFile(andromedaPrefs("mediaPhysicalPath") & x).ReadAll end if if folderImageExt <> "" or note <> "" or (andromedaConst("localUser") and andromedaPrefs("editMode")) then %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>"><% if note <> "" or (andromedaConst("localUser") and andromedaPrefs("editMode")) then %><% end if if folderImageExt <> "" then if andromedaPrefs("folderOpenImageDims") <> "" then ittmpa = split(andromedaPrefs("folderOpenImageDims"),",") imgdimtag = " width=" & ittmpa(0) & " height=" & ittmpa(1) else imgdimtag = "" end if %><% end if %>
<% if andromedaConst("localUser") and andromedaPrefs("editMode") then if note = "" then mode = "add" else mode = "edit" end if %>
><% imagetag "r","i",mode & " note" %>
<% end if if note <> "" then %> color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% = note & " " %><% end if %>
"<% = imgdimtag %>>
<% colorbars andromedaPrefs("bodyFgDiv") end if end if end sub sub folderrow (x,d,m) totalrowcount = totalrowcount + 1 mysubfolderCount = subfolderCount(x) myfileCount = fileCount(x) if totalrowcount <> 1 then colorBars andromedaPrefs("rowDiv") %>" bgcolor=<% = switchrow(totalrowcount,andromedaPrefs("rowColor1"),andromedaPrefs("rowColor2")) %>>
<% if d then drill2 local_fs.getparentfoldername(x),1 addvpad 8 end if %><% if andromedaPrefs("permitPlaylists") then %><% end if %>
<% else %><% = totalrowcount %><% end if %>"<% if andromedaPrefs("checkboxDefault") then %> checked<% end if %>>><% imagetag "c","i","" %><% if ((andromedaPrefs("disableHTMLheaders") or (andromedaPrefs("rowLinkColor") <> andromedaPrefs("bodyLinkColor"))) and (andromedaPrefs("rowLinkColor") <> "")) then %> style="color:<% = andromedaPrefs("rowLinkColor") %>">"><% = displayName(x) %><% else %>><% = displayName(x) %><% end if if andromedaPrefs("displayNew") then displaynew newestfile(x) %>
<% if mysubfolderCount = 0 and myfileCount = 0 then desc2 = " " end if if mysubfolderCount > 1 and myfileCount = 0 then desc2 = mysubfolderCount & " " & trans(5) link2 = folderLink(x) end if if mysubfolderCount = 0 and myfileCount > 0 then desc2 = myfileCount & " " & ifps2(myfileCount,trans(2),trans(3)) link2 = folderLink(x) end if if mysubfolderCount > 0 and myfileCount > 0 then desc2 = mysubfolderCount & " " & ifps2(mysubfolderCount,trans(4),trans(5)) & ", " & myfileCount & " " & ifps2(myfileCount,trans(2),trans(3)) link2 = folderLink(x) end if if mysubfolderCount = 1 and myfileCount = 0 then for each f22 in local_fs.GetFolder(andromedaPrefs("mediaPhysicalPath") & x).subfolders if legalFolder(f22.name) then desc2 = displayName(f22.name) link2 = folderLink(x & "/" & f22.name) end if next end if if link2 <> "" then if ((andromedaPrefs("disableHTMLheaders") or (andromedaPrefs("rowLinkColor") <> andromedaPrefs("bodyLinkColor"))) and (andromedaPrefs("rowLinkColor") <> "")) <> "" then desc2 = "" & desc2 & "" else desc2 = "" & desc2 & "" end if else desc2 = "" & desc2 & "" end if if andromedaPrefs("playLinks") then if playable(x) then %>
<% = desc2 %><% ipad 4,1 %><% playFolderButton x %>
<% else %><% = desc2 %><% end if else %><% = desc2 %><% end if %>
<% end sub sub filerow (x,d,m) thisfiletype = lcase(local_fs.getextensionname(x)) thisfilesize = local_fs.GetFile(andromedaPrefs("mediaPhysicalPath") & x).size if (andromedaPrefs("getID3info") and (thisfiletype = "mp3") and (thisfilesize > 0)) then Set fp = local_fs.OpenTextFile(andromedaPrefs("mediaPhysicalPath") & x, 1) mp3Length = "" mp3Album = "" mp3Artist = "" mp3TrackName = "" mp3Quality = "" fpp = 0 dim bb(9) for i = 0 to 9 bb(i) = fixbin(fp.Read(1)) next fpp = fpp + 10 validID3v2header = ((bb(0) = 73) and (bb(1) = 68) and (bb(2) = 51) and (bb(3) < 255) and (bb(4) < 255) and (bb(5) = (bb(5) and 240)) and (bb(6) = 0) and (bb(7) < 128) and (bb(8) < 128) and (bb(9) < 128)) if validID3v2header then ID3size = bb(7) * 128 * 128 + bb(8) * 128 + bb(9) extendedHeader = (bb(5) and 64) / 64 footerPresent = (bb(5) and 16) / 16 totalID3size = 10 + ID3size + footerPresent * 10 if extendedHeader = 1 then for i = 0 to 5 bb(i) = fixbin(fp.Read(1)) next fpp = fpp + 6 extendedHeaderSize = bb(1) * 128 * 128 + bb(2) * 128 + bb(3) fp.skip(extendedHeaderSize - 6) fpp = fpp + (extendedHeaderSize - 6) end if for i = 0 to 9 bb(i) = fixbin(fp.Read(1)) next fpp = fpp + 10 do while ((((bb(0) >= 48) and (bb(0) <= 57)) or ((bb(0) >= 65) and (bb(0) <= 90))) and (((bb(1) >= 48) and (bb(1) <= 57)) or ((bb(1) >= 65) and (bb(1) <= 90))) and (((bb(2) >= 48) and (bb(2) <= 57)) or ((bb(2) >= 65) and (bb(2) <= 90))) and (((bb(3) >= 48) and (bb(3) <= 57)) or ((bb(3) >= 65) and (bb(3) <= 90))) and (bb(4) = 0) and (bb(5) < 128) and (bb(6) < 128) and (bb(7) < 128)) ID3frameID = chr(bb(0)) & chr(bb(1)) & chr(bb(2)) & chr(bb(3)) ID3frameSize = bb(5) * 128 * 128 + bb(6) * 128 + bb(7) if ID3frameSize > 0 then skipbyte = fp.Read(1) ID3frameVal = bin2txt(fp.Read(ID3frameSize - 1)) fpp = fpp + ID3frameSize else ID3frameVal = "" end if if ID3frameID = "TLEN" then mp3Length = ID3frameVal / 1000 'elseif ID3frameID = "TCON" then 'mp3Genre = ID3frameVal 'elseif ID3frameID = "TRCK" then 'mp3TrackNumber = ID3frameVal elseif ID3frameID = "TALB" then mp3Album = ID3frameVal elseif ID3frameID = "TPE1" then mp3Artist = ID3frameVal elseif ID3frameID = "TIT2" then mp3TrackName = ID3frameVal end if for i = 0 to 9 bb(i) = fixbin(fp.Read(1)) next fpp = fpp + 10 loop offset = totalID3size - fpp if offset >= 0 then if offset > 0 then fp.skip(offset) fpp = fpp + offset end if for i = 0 to 3 bb(i) = fixbin(fp.Read(1)) next fpp = fpp + 4 else for i = 1 to (-1 * offset) bb(i-1) = bb(10 + offset + i - 1) next if 4 + offset > 0 then for i = (-1 * offset) to 3 bb(i) = fixbin(fp.Read(1)) fpp = fpp + 1 next end if end if end if cbr = true for xox = 1 to (andromedaPrefs("vbrScanCount") + andromedaPrefs("vbrSkipCount")) mpegVersion = (bb(1) and 24) / 8 layer = (bb(1) and 6) / 2 protection = (bb(1) and 1) bitrate = (bb(2) and 240) / 16 samplefrequency = (bb(2) and 12) / 4 padded = (bb(2) and 2) / 2 channelMode = (bb(3) and 192) / 64 validMP3frame = ((bb(0) = 255) and (bb(1) >= 224) and (mpegVersion <> 1) and (layer <> 0) and (bitrate <> 0) and (bitrate <> 15) and (samplefrequency <> 3)) if validMP3frame then if mpegVersion = 3 then if layer = 3 then column = 1 elseif layer = 2 then column = 2 elseif layer = 1 then column = 3 end if if samplefrequency = 0 then samplefrequencyD = 44100 elseif samplefrequency = 1 then samplefrequencyD = 48000 elseif samplefrequency = 2 then samplefrequencyD = 32000 end if elseif mpegVersion = 2 then if layer = 3 then column = 4 elseif layer = 2 then column = 5 elseif layer = 1 then column = 5 end if if samplefrequency = 0 then samplefrequencyD = 22050 elseif samplefrequency = 1 then samplefrequencyD = 24000 elseif samplefrequency = 2 then samplefrequencyD = 16000 end if elseif mpegVersion = 0 then if layer = 3 then column = 4 elseif layer = 2 then column = 5 elseif layer = 1 then column = 5 end if if samplefrequency = 0 then samplefrequencyD = 11025 elseif samplefrequency = 1 then samplefrequencyD = 12000 elseif samplefrequency = 2 then samplefrequencyD = 8000 end if end if bitrateDataA = array(32,32,32,32,8,64,48,40,48,16,96,56,48,56,24,128,64,56,64,32,160,80,64,80,40,192,96,80,96,48,224,112,96,112,56,256,128,112,128,64,288,160,128,144,80,320,192,160,160,96,352,224,192,176,112,384,256,224,192,128,416,320,256,224,144,448,384,320,256,160) bitrateD = bitrateDataA((bitrate - 1) * 5 + column - 1) if ((bitrateD <> prevbitrateD) and (prevbitrateD <> "")) then cbr = false end if prevbitrateD = bitrateD if channelMode = 0 then channelModeD = "Stereo" elseif channelMode = 1 then channelModeD = "Joint Stereo" elseif channelMode = 2 then channelModeD = "Dual Channel" elseif channelMode = 3 then channelModeD = "Single channel (Mono)" end if if ((layer = 1) or (layer = 2)) then framesize = fix((144 * 1000 * bitrateD) / samplefrequencyD) + padded elseif layer = 3 then framesize = fix(12 * 1000 * bitrateD / samplefrequencyD + padded) * 4 end if if xox > andromedaPrefs("vbrSkipCount") then avgbitrateD = avgbitrateD + bitrateD if xox >= andromedaPrefs("cbrCutoff") and cbr then exit for else bitrateD = "" exit for end if if xox = 1 then if validID3v2header then cursor = framesize-4 else cursor = framesize-10 end if else cursor = framesize-4 end if if fpp + cursor < thisfilesize then fp.Skip(cursor) fpp = fpp + cursor for i = 0 to 3 bb(i) = fixbin(fp.Read(1)) next fpp = fpp + 4 else exit for end if next if bitrateD <> "" then if cbr then if mp3Length = "" then mp3Length = round(thisfilesize / (bitrateD * 1000 / 8)) end if mp3Quality = bitrateD & " Kbit/s" else if mp3Length = "" then mp3Length = round(thisfilesize / (avgbitrateD / (xox-1-andromedaPrefs("vbrSkipCount")) * 1000 / 8)) end if mp3Quality = round(avgbitrateD / (xox-1-andromedaPrefs("vbrSkipCount"))) & " Kbit/s VBR" end if end if 'mp3Quality = bitrateD & " Kbit/s " & samplefrequencyD & " Hz " & channelModeD if (not(andromedaPrefs("skipID3v1")) and (mp3TrackName = "")) then fp.Skip(thisfilesize - fpp - 128) id3v1tag = ucase(bin2txt(fp.Read(3))) if ((id3v1tag = "ID3") or (id3v1tag = "TAG")) then id3v1Title = trim(bin2txt(fp.Read(30))) id3v1Artist = trim(bin2txt(fp.Read(30))) id3v1Album = trim(bin2txt(fp.Read(30))) id3v1Year = trim(bin2txt(fp.Read(4))) id3v1Comment = trim(bin2txt(fp.Read(28))) id3v12skip = ascb(fp.Read(1)) id3v12number = ascb(fp.Read(1)) id3v1Genre = ascb(fp.Read(1)) 'if mp3Genre = "" then mp3Genre = id3v1Genre 'if mp3TrackNumber = "" then mp3TrackNumber = id3v12number if mp3Album = "" then mp3Album = id3v1Album if mp3Artist = "" then mp3Artist = id3v1Artist if mp3TrackName = "" then mp3TrackName = id3v1Title end if end if if left(mp3Album,2) = "ÿþ" then mp3Album = mid(mp3Album,3) if left(mp3Artist,2) = "ÿþ" then mp3Artist = mid(mp3Artist,3) if left(mp3TrackName,2) = "ÿþ" then mp3TrackName = mid(mp3TrackName,3) fp.close end if if fileTypes.exists(thisfiletype) then select case fileTypes(thisfiletype) case "audio" fileicon = "a" case "video" fileicon = "v" case "playlist" fileicon = "l" end select end if totalrowcount = totalrowcount + 1 filerowcount = filerowcount + 1 if totalrowcount <> 1 then colorBars andromedaPrefs("rowDiv") %>" bgcolor=<% = switchrow(totalrowcount,andromedaPrefs("rowColor1"),andromedaPrefs("rowColor2")) %>>
<% if d then drill2 local_fs.getparentfoldername(x),1 addvpad 8 end if %><% if andromedaPrefs("permitPlaylists") then %><% end if %>
<% else %><% = totalrowcount %><% end if %>"<% if andromedaPrefs("checkboxDefault") then %> checked<% end if %>><% if andromedaPrefs("fileLinks") then if andromedaConst("localUser") and andromedaPrefs("localFilePlayback") then filepath = local_fs.GetFile(andromedaPrefs("mediaPhysicalPath") & x).path else filepath = mkMediaWebPath(x) end if %><% imagetag fileicon,"i","" %><% else imagetag fileicon,"i","" end if %><% if andromedaPrefs("fileCount") then %>
">"><% if d then %><% = filerowcount %><% else %><% = filerowcount*2-1 %><% end if %>.<% ipad 4,1 %><% end if if andromedaPrefs("fileLinks") then if ((andromedaPrefs("disableHTMLheaders") or (andromedaPrefs("rowLinkColor") <> andromedaPrefs("bodyLinkColor"))) and (andromedaPrefs("rowLinkColor") <> "")) <> "" then %>">"><% if mp3TrackName <> "" then %><% = mp3TrackName %><% else %><% = displayName(x) %><% end if %><% else %><% if mp3TrackName <> "" then %><% = mp3TrackName %><% else %><% = displayName(x) %><% end if %><% end if else %>"><% if mp3TrackName <> "" then %><% = mp3TrackName %><% else %><% = displayName(x) %><% end if %><% end if if andromedaPrefs("displayNew") then displaynew local_fs.getfile(andromedaPrefs("mediaPhysicalPath") & x).datecreated if ((mp3Artist <> "") or (mp3Album <> "")) then %>
"><% if ((mp3Artist <> "") and (mp3Album <> "")) then %><% = mp3Artist & " - " & mp3Album %><% else %><% = mp3Artist & mp3Album %><% end if %><% end if if andromedaPrefs("fileCount") then %>
<% end if %>
<% if andromedaPrefs("playLinks") then %>
"><% if ((mp3Length <> "") or (mp3Quality <> "")) then if ((mp3Length <> "") and (mp3Quality <> "")) then %><% = sec2time(mp3Length) & " · " & mp3Quality %><% else if mp3Length <> "" then %><% = sec2time(mp3Length) %><% else %><% = mp3Quality %><% end if end if %><% = " · " %><% end if %><% = bytecount(thisfilesize) & " · " & ucase(thisfiletype) %><% ipad 4,1 %>><% imagetag "p","i","" %>
<% else %>"><% if ((mp3Length <> "") or (mp3Quality <> "")) then if ((mp3Length <> "") and (mp3Quality <> "")) then %><% = sec2time(mp3Length) & " · " & mp3Quality %><% else if mp3Length <> "" then %><% = sec2time(mp3Length) %><% else %><% = mp3Quality %><% end if end if %><% = " · " %><% end if %><% = bytecount(thisfilesize) & " · " & ucase(thisfiletype) %><% end if %>
<% end sub sub rowNote (x,i) if (andromedaPrefs("globalAnnotations") or (andromedaPrefs("defaultLanguage") = currentLanguage)) then if i <> "" then if local_fs.fileExists(andromedaPrefs("mediaPhysicalPath") & i & "/" & andromedaPrefs("folderListImage") & ".jpg") then folderImageExt = ".jpg" elseif local_fs.fileExists(andromedaPrefs("mediaPhysicalPath") & i & "/" & andromedaPrefs("folderListImage") & ".gif") then folderImageExt = ".gif" end if end if if local_fs.fileExists(andromedaPrefs("mediaPhysicalPath") & x) then note = local_fs.OpenTextFile(andromedaPrefs("mediaPhysicalPath") & x).ReadAll end if if folderImageExt <> "" or note <> "" or (andromedaConst("localUser") and andromedaPrefs("editMode")) then %>" bgcolor=<% = switchrow(totalrowcount,andromedaPrefs("rowColor1"),andromedaPrefs("rowColor2")) %>><% if andromedaConst("localUser") and andromedaPrefs("editMode") then if note = "" then mode = "add" else mode = "edit" end if %><% else %><% end if %>
<% ipad 10,1 %>><% imagetag "r","i",mode & "note" %><% ipad 4,1 %>
<% ipad 30,1 %><% if folderImageExt <> "" then if andromedaPrefs("folderListImageDims") <> "" then ittmpa = split(andromedaPrefs("folderListImageDims"),",") imgdimtag = " width=" & ittmpa(0) & " height=" & ittmpa(1) else imgdimtag = "" end if %>
>"<% = imgdimtag %> border=0>
<% end if if note <> "" then %>"><% = note & " " %><% end if %>
<% colorbar andromedaPrefs("siteWidth"),"6",switchrow(totalrowcount,andromedaPrefs("rowColor1"),andromedaPrefs("rowColor2")) end if end if end sub sub searchbar (s) %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">
><% if andromedaPrefs("compactSearch") then %><% end if %><% if not andromedaPrefs("compactSearch") then %><% end if %>
color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% = trans(13) & " " & andromedaPrefs("siteName") %><% ipad 4,1 %><% ipad 4,1 %>"><% ipad 4,1 %><% imagetag "g","f","" %>
<% end sub if ((abs(local_fs.GetFile(request.servervariables("path_translated")).size - len(andromedaPrefsFileName) - 127448 + 18) > 1) and (abs(local_fs.GetFile(request.servervariables("path_translated")).size - len(andromedaPrefsFileName) - 127448 + 2091 + 18) > 1)) then response.end sub displayAMG (n,a) if andromedaPrefs("displayAMG") then %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">
color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% = trans(13) & " allmusic.com" %><% ipad 4,1 %><% ipad 4,1 %>"><% ipad 4,1 %><% imagetag "g","f","" %>
<% colorbars andromedaPrefs("bodyFgDiv") end if end sub sub search (s,sm) andromedaHeader "[" & s & "] " & trans(37) navbar3 s,"search" if andromedaPrefs("permitPlaylists") then playlistFormHead true colorbars andromedaPrefs("bodyFgToRowDiv") if len(trim(s)) > 1 then if sm = "fo" or sm = "ff" or sm = "" then searchFolders "",lcase(s) if sm = "fi" or sm = "ff" or sm = "" then searchFiles "",lcase(s) if totalrowcount = 0 then %>" width="<% = andromedaPrefs("siteWidth") %>">
<% addvpad 48 %>"><% = trans(39) %><% addvpad 48 %>
<% end if colorbars andromedaPrefs("rowToBodyFgDiv") if andromedaPrefs("permitPlaylists") then playlistFormFoot true else %>" width="<% = andromedaPrefs("siteWidth") %>">
<% addvpad 48 %>"><% = trans(38) %><% addvpad 48 %>
<% colorbars andromedaPrefs("rowToBodyFgDiv") if andromedaPrefs("permitPlaylists") then playlistFormFoot true end if displayAMG s,false andromedaFooter end sub sub searchFolders (x,s) xx2d = getSubfolders2d(x) for fi = 0 to ubound(xx2d,1) if instr(lcase(replace(xx2d(fi,0),"_"," ")),s) <> 0 then folderrow x & "/" & xx2d(fi,0),true,true response.flush end if searchFolders x & "/" & xx2d(fi,0),s next end sub sub searchFiles (x,s) for each i in local_fs.GetFolder(andromedaPrefs("mediaPhysicalPath") & x).files if legalFile(i.name) then if instr(lcase(replace(i.name,"_"," ")),s) <> 0 then filerow x & "/" & i.name,true,true response.flush end if end if next xx2d = getSubfolders2d(x) for fi = 0 to ubound(xx2d,1) searchFiles x & "/" & xx2d(fi,0),s next end sub sub playlistFormHead (x) if x then m = 1 else m = 0 end if %><% if lcase(andromedaPrefs("playSelectionMode")) = "post" then playlistFormMethod = "post" elseif lcase(andromedaPrefs("playSelectionMode")) = "get" then playlistFormMethod = "get" else playlistFormMethod = "post" end if %>" width="<% = andromedaPrefs("siteWidth") %>">
action=<% = andrLink("","") %> name=l>><% if andromedaPrefs("usePlaylistIcons") then %><% end if %>
<% end sub sub playlistFormFoot (x) if ((totalrowcount > 0) or (ckplaylist <> "")) then plb = andromedaPrefs("usePlaylistIcons") %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">
<% %><% if totalrowcount > 0 then %><% end if if lcase(andromedaPrefs("playSelectionMode")) = "post" then playSelectionButton = true elseif lcase(andromedaPrefs("playSelectionMode")) = "get" then playSelectionButton = true else playSelectionButton = false end if if ((totalrowcount > 0) and (andromedaPrefs("playLinks")) and (playSelectionButton)) then %><% %><% end if if x and totalrowcount > 0 then %><% %><% end if if ((x = false) and (totalrowcount > 0)) then %><% %><% end if if (x and (ckplaylist <> "")) then %><% %><% end if if ((totalrowcount > 0) and (ckplaylist <> "")) then plbnote = trans(12) plbnote = replace (plbnote,"##",round((len(ckplaylist)/(andromedaPrefs("cBlockCount")*andromedaPrefs("cBlockSize")))*100)) %><% end if %>
<% if plb then %><% %>") %><% ipad 8,1 %><% if plb then %><% %>") %><% ipad 8,1 %><% if plb then %><% %>") %><% ipad 8,1 %><% if plb then %><% %>") %><% ipad 8,1 %> color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% = plbnote %>
<% %>
<% colorbars andromedaPrefs("bodyFgDiv") end if %>" width="<% = andromedaPrefs("siteWidth") %>">
<% end sub sub displayPlaylist (x) andromedaHeader trans(44) navbar3 trans(44),"playlist" playlistFormHead false colorbars andromedaPrefs("bodyFgToRowDiv") xtmpa = split(ckplaylist,vbcrlf) for xi = 0 to ubound(xtmpa) -1 if left(xtmpa(xi),1) = "o" then folderrow mid(xtmpa(xi),2),true,false if left(xtmpa(xi),1) = "i" then filerow mid(xtmpa(xi),2),true,false next colorbars andromedaPrefs("rowToBodyFgDiv") playlistFormFoot false displayAMG "",false andromedaFooter end sub function readPlaylist (x) rtmp = "" for rpi = 1 to andromedaPrefs("cBlockCount") rtmp = rtmp & request.cookies(x & rpi) next readPlaylist = rtmp end function sub writePlaylist (x) for rpi = 1 to andromedaPrefs("cBlockCount") rpitmp = mid(ckplaylist,(((rpi-1)*andromedaPrefs("cBlockSize"))+1),andromedaPrefs("cBlockSize")) if rpi = andromedaPrefs("cBlockCount") then rpitmp = left(rpitmp,instrrev(rpitmp, vbcrlf)+1) end if response.cookies(x & rpi) = rpitmp next end sub sub playFolder (x) if local_fs.folderExists(andromedaPrefs("mediaPhysicalPath") & x) then playFolder2 x if totalrowcount = 0 then response.redirect(andrlink("?q=f&f=",x)) end if else fourOfour end if end sub function playable (x) pinme = false for each f1 in local_fs.GetFolder(andromedaPrefs("mediaPhysicalPath") & x).files if legalFile(f1.name) then pinme = true exit for end if next if not pinme then for each f1 in local_fs.GetFolder(andromedaPrefs("mediaPhysicalPath") & x).subfolders if legalFolder(f1.name) then if playable (x & "/" & f1.name) then pinme = true exit for end if end if next end if playable = pinme end function sub playFolder2 (x) xx2d = getSubfolders2d(x) for fi = 0 to ubound(xx2d,1) playFolder2 x & "/" & xx2d(fi,0) if (totalrowcount = andromedaPrefs("maxPlaylistTracks")) then exit for next xx2d = getFiles2d(x) for fi = 0 to ubound(xx2d,1) playlistRow x & "/" & xx2d(fi,0) if (totalrowcount = andromedaPrefs("maxPlaylistTracks")) then exit for next if ubound(xx2d,1) >= 0 then response.flush end sub sub playlistHeader () response.contenttype = andromedaPrefs("playlistMime") select case lcase(andromedaPrefs("playlistMime")) case "audio/x-mpegurl" fext = "m3u" case "audio/x-pn-realaudio" fext = "ram" case else fext = "" end select if fext <> "" then response.AddHeader "Content-Disposition", "inline; filename=playlist." & fext end if if andromedaPrefs("includeEXTM3U") then response.write("#EXTM3U" & vbcrlf) end if if not (andromedaConst("localUser") and andromedaPrefs("localFilePlayback")) then if andromedaPrefs("hostAddress") <> "" then plrpre = andromedaPrefs("protocol") & "://" & andromedaPrefs("hostAddress") else if request.servervariables("SERVER_NAME") <> "" then ckServerName = request.servervariables("SERVER_NAME") else ckServerName = request.servervariables("LOCAL_ADDR") end if if ((request.servervariables("SERVER_PORT") <> "80") and (request.servervariables("SERVER_PORT") <> "")) then ckServerName = ckServerName & ":" & request.servervariables("SERVER_PORT") end if plrpre = andromedaPrefs("protocol") & "://" & ckServerName end if end if end sub sub playlistRow (x) if totalrowcount = 0 then playlistHeader totalrowcount = totalrowcount + 1 if andromedaPrefs("includeEXTM3U") then response.write("#EXTINF:-1," & displayName(x) & vbcrlf) end if if (andromedaConst("localUser") and andromedaPrefs("localFilePlayback")) then response.write(local_fs.GetFile(andromedaPrefs("mediaPhysicalPath") & x).path & vbcrlf) else response.write(plrpre & mkMediaWebPath(x) & vbcrlf) end if end sub sub playPrepList (x) xtmpa = split(x,vbcrlf) for xi = 0 to ubound(xtmpa) -1 if left(xtmpa(xi),1) = "o" then playFolder2 mid(xtmpa(xi),2) if left(xtmpa(xi),1) = "i" then playlistRow mid(xtmpa(xi),2) if (totalrowcount = andromedaPrefs("maxPlaylistTracks")) then exit for next end sub sub imagetag (x,m,t) ittmpa = split(andromedaPrefs(x & "Dimentions"),",") imagetag2 x,ittmpa(0),ittmpa(1),t,true,m,"" end sub sub imagetagE (x,m,t) ittmpa = split(andromedaPrefs(x & "Dimentions"),",") imagetag2 x,ittmpa(0),ittmpa(1),t,true,m,"\" end sub sub imagetag2 (x,a,b,t,c,m,e) select case m case "i" %><% = andromedaPrefs("imageFolderPath") %><% = x %>.gif<% else %><% = andrLink("?i=" & x,"") %><% end if %> width=<% = a * andromedaPrefs("iconSize") %> height=<% = b * andromedaPrefs("iconSize") %><% if c then %> border=0<% end if if t <> "" then %> alt=<% = e %>"<% = minHTMLencode(t) %><% = e %>"<% end if %>><% end sub sub displayImage (dix) select case dix case "p" ' playButton imageDataLookup = array(71,73,70,56,57,97,16,0,16,0,162,0,0,51,153,0,102,204,0,51,102,0,255,255,255,0,0,0,255,255,255,0,0,0,0,0,0,33,249,4,1,0,0,5,0,44,0,0,0,0,16,0,16,0,0,3,76,88,170,212,190,176,180,64,107,139,132,10,1,186,39,75,22,0,194,192,121,29,40,141,228,96,162,0,40,118,165,123,210,147,87,219,122,78,187,192,147,192,215,2,14,88,195,140,206,200,34,17,119,205,141,108,121,68,13,25,203,38,233,138,37,69,165,24,194,102,156,140,132,28,23,72,2,0,59) case "i"' infoButton imageDataLookup = array(71,73,70,56,57,97,16,0,16,0,162,0,0,255,255,255,204,204,204,153,153,153,102,102,102,51,51,51,255,255,255,0,0,0,0,0,0,33,249,4,1,0,0,5,0,44,0,0,0,0,16,0,16,0,0,3,64,88,186,220,94,35,142,215,70,8,147,80,53,0,38,129,70,117,24,224,137,14,105,134,140,36,121,151,203,5,166,41,88,53,54,95,177,192,199,156,23,207,21,97,16,86,158,201,3,148,76,110,64,4,146,146,162,177,232,54,193,34,118,155,0,0,59) case "h"' homeButton imageDataLookup = array(71,73,70,56,57,97,16,0,16,0,162,0,0,102,102,153,153,153,204,204,204,255,255,255,255,204,204,204,102,102,102,0,0,0,255,255,255,33,249,4,1,0,0,7,0,44,0,0,0,0,16,0,16,0,0,3,85,120,170,214,190,240,52,65,43,48,209,212,80,74,248,1,198,80,95,65,16,30,40,106,37,49,12,168,42,145,230,208,193,233,197,214,197,219,199,58,1,239,229,195,5,123,53,34,202,118,236,184,148,157,66,176,69,196,5,0,23,73,235,196,245,100,181,156,168,24,43,2,131,62,216,239,162,145,78,55,34,107,199,27,146,0,0,59) case "r"' prefsButton imageDataLookup = array(71,73,70,56,57,97,16,0,16,0,162,0,0,102,102,153,153,153,204,204,204,255,255,255,255,102,102,102,0,0,0,255,255,255,0,0,0,33,249,4,1,0,0,6,0,44,0,0,0,0,16,0,16,0,0,3,80,104,170,213,190,208,52,65,107,139,165,134,205,67,89,153,64,140,99,231,49,66,64,12,108,201,125,161,202,14,43,193,1,211,86,211,228,134,103,186,217,204,22,248,165,100,164,154,47,39,19,210,150,64,36,233,9,192,73,130,78,155,245,170,74,146,170,31,134,201,7,198,20,170,232,95,4,228,184,64,18,0,59) case "t"' ftpButton imageDataLookup = array(71,73,70,56,57,97,16,0,16,0,162,0,0,102,102,153,153,153,204,204,204,255,255,255,255,0,0,0,255,255,255,0,0,0,0,0,0,33,249,4,1,0,0,5,0,44,0,0,0,0,16,0,16,0,0,3,78,88,170,212,190,176,52,65,107,139,164,134,205,3,89,153,176,1,36,208,125,146,56,14,131,186,125,33,7,176,110,0,76,118,73,151,54,62,179,64,90,47,99,11,6,69,55,34,128,242,171,32,113,50,225,232,38,233,52,101,40,130,85,147,67,85,59,83,42,164,81,42,93,34,12,199,121,145,0,0,59) case "g"' goButton imageDataLookup = array(71,73,70,56,57,97,16,0,16,0,162,0,0,102,102,153,153,153,204,204,204,255,255,255,255,0,0,0,255,255,255,0,0,0,0,0,0,33,249,4,1,0,0,5,0,44,0,0,0,0,16,0,16,0,0,3,72,88,170,212,190,176,52,65,107,139,164,134,205,3,89,153,208,141,30,35,146,221,151,1,67,187,177,110,0,76,114,59,188,182,76,215,49,60,204,25,92,207,6,20,249,132,183,226,145,151,156,73,80,29,231,19,42,147,78,71,128,236,7,210,200,122,129,17,144,227,2,73,0,0,59) case "q"' discussButton imageDataLookup = array(71,73,70,56,57,97,16,0,16,0,162,0,0,102,102,153,153,153,204,204,204,255,255,255,255,0,0,0,255,255,255,0,0,0,0,0,0,33,249,4,1,0,0,5,0,44,0,0,0,0,16,0,16,0,0,3,71,88,170,212,190,176,52,65,107,139,164,134,205,3,89,153,208,141,30,35,110,67,151,150,33,186,6,195,10,76,46,23,115,115,86,239,65,126,198,43,224,198,231,10,222,122,52,216,81,8,152,73,72,35,231,19,58,148,78,163,205,15,164,209,236,230,34,32,199,5,146,0,0,59) case "a" ' audioFile imageDataLookup = array(71,73,70,56,57,97,26,0,16,0,162,0,0,102,102,51,153,153,102,204,204,153,255,255,204,255,255,255,102,102,102,51,51,51,255,255,255,33,249,4,1,0,0,7,0,44,0,0,0,0,26,0,16,0,0,3,93,120,186,92,254,144,201,121,10,185,152,216,66,187,189,6,246,113,157,244,25,225,21,149,13,97,12,105,70,178,40,58,8,113,16,104,172,242,14,55,28,65,39,234,29,12,186,128,64,152,225,245,144,186,101,40,185,155,149,12,128,172,50,86,124,214,0,129,233,78,101,84,88,176,185,106,185,2,226,146,203,31,87,211,105,140,207,233,61,136,254,193,72,0,0,59) case "v" ' videoFile imageDataLookup = array(71,73,70,56,57,97,26,0,16,0,162,0,0,255,255,255,239,239,239,102,102,102,51,51,51,255,255,255,0,0,0,0,0,0,0,0,0,33,249,4,1,0,0,4,0,44,0,0,0,0,26,0,16,0,0,3,78,72,186,44,254,144,201,73,4,184,24,88,65,231,248,32,168,93,92,183,124,65,154,126,218,99,158,131,186,14,89,249,162,50,139,217,102,232,215,47,5,78,165,35,5,9,195,25,48,152,12,20,53,71,95,104,121,139,229,104,187,168,149,136,53,50,165,79,222,203,146,41,139,77,144,180,107,145,0,0,59) case "l" ' playlistFile imageDataLookup = array(71,73,70,56,57,97,26,0,16,0,162,0,0,255,255,255,204,204,204,102,102,102,51,51,51,255,255,255,0,0,0,0,0,0,0,0,0,33,249,4,1,0,0,4,0,44,0,0,0,0,26,0,16,0,0,3,74,72,186,44,254,144,201,73,4,184,24,88,65,231,248,32,168,93,92,183,12,25,134,70,166,130,166,192,75,182,110,0,89,178,70,19,185,154,149,173,222,37,7,52,13,108,144,216,111,39,84,98,138,157,38,145,137,124,56,103,52,233,50,27,10,109,119,22,216,115,167,184,153,139,9,0,59) case "o" ' folderOpen imageDataLookup = array(71,73,70,56,57,97,20,0,16,0,162,0,0,255,255,153,153,153,102,224,224,153,204,204,153,255,255,255,102,102,102,255,255,255,0,0,0,33,249,4,1,0,0,6,0,44,0,0,0,0,20,0,16,0,0,3,60,104,186,220,174,37,198,247,138,184,183,80,102,49,150,146,83,12,100,89,126,13,168,74,89,74,188,112,60,10,26,7,220,120,62,215,118,238,143,188,69,193,247,11,4,33,68,157,177,146,196,77,68,171,213,102,74,173,90,167,9,0,59) case "c" ' folderClosed imageDataLookup = array(71,73,70,56,57,97,26,0,16,0,162,0,0,255,255,153,224,224,153,255,255,255,102,102,102,255,255,255,0,0,0,0,0,0,0,0,0,33,249,4,1,0,0,4,0,44,0,0,0,0,26,0,16,0,0,3,61,72,186,220,254,111,72,9,235,26,33,231,97,33,214,218,52,117,196,7,158,1,215,13,66,235,190,173,106,13,64,109,223,181,92,209,120,175,123,61,31,137,23,180,253,34,197,219,209,65,76,46,27,162,104,148,68,173,90,175,212,4,0,59) case "x" ' invisiblePixel imageDataLookup = array(71,73,70,56,57,97,1,0,1,0,128,0,0,255,255,255,0,0,0,33,249,4,1,0,0,0,0,44,0,0,0,0,1,0,1,0,0,2,2,68,1,0,59) case "sa" imageDataLookup = array(71,73,70,56,57,97,26,0,16,0,162,0,0,255,255,255,204,204,204,153,153,153,102,102,102,0,0,0,0,0,0,0,0,0,0,0,0,44,0,0,0,0,26,0,16,0,0,3,80,72,186,220,238,33,202,73,107,28,130,4,193,187,255,160,128,105,97,56,96,223,184,149,222,0,172,109,6,179,238,11,170,55,42,2,252,204,225,41,0,166,102,187,201,110,60,162,175,3,108,241,158,75,230,17,20,128,178,68,83,106,145,150,165,94,127,221,175,73,118,42,155,207,232,114,230,193,110,19,18,0,59) case "sn" imageDataLookup = array(71,73,70,56,57,97,25,0,16,0,162,0,0,255,255,255,204,204,204,153,153,153,102,102,102,0,0,0,0,0,0,0,0,0,0,0,0,44,0,0,0,0,25,0,16,0,0,3,65,72,186,220,206,33,202,73,107,28,36,136,205,187,255,2,166,129,228,39,150,40,119,166,232,218,13,112,44,155,153,9,220,248,61,190,181,55,228,185,157,170,247,178,68,104,66,22,82,89,114,49,125,196,39,47,32,171,90,175,152,135,118,75,72,0,0,59) case "ps" imageDataLookup = array(71,73,70,56,57,97,42,0,16,0,162,0,0,255,255,255,204,204,204,153,153,153,102,102,102,0,0,0,0,0,0,0,0,0,0,0,0,44,0,0,0,0,42,0,16,0,0,3,91,72,186,220,254,240,133,73,171,189,56,211,161,130,248,96,40,10,195,48,158,39,71,120,104,10,152,109,171,178,113,56,0,111,157,118,186,141,231,61,208,44,248,185,253,96,193,33,209,120,92,242,150,63,28,77,167,76,70,167,212,167,85,74,44,106,123,70,44,248,75,5,136,199,171,238,224,140,14,148,222,240,184,124,78,135,71,238,248,60,33,1,0,59) case "pa" imageDataLookup = array(71,73,70,56,57,97,42,0,16,0,162,0,0,255,255,255,204,204,204,153,153,153,102,102,102,0,0,0,0,0,0,0,0,0,0,0,0,44,0,0,0,0,42,0,16,0,0,3,102,72,186,220,254,240,133,73,171,189,56,211,161,130,248,32,168,105,97,249,113,132,103,126,217,224,14,215,26,162,170,188,14,0,48,216,50,205,11,23,156,46,99,243,241,54,175,220,11,86,41,118,126,155,156,84,202,164,56,83,208,137,112,170,180,92,107,191,165,242,245,3,25,87,173,174,151,119,54,165,135,235,175,173,245,138,177,159,229,124,153,182,236,251,255,128,129,17,131,132,133,4,9,0,59) case "pr" imageDataLookup = array(71,73,70,56,57,97,42,0,16,0,162,0,0,255,255,255,204,204,204,153,153,153,102,102,102,0,0,0,0,0,0,0,0,0,0,0,0,44,0,0,0,0,42,0,16,0,0,3,91,72,186,220,254,240,133,73,171,189,56,211,161,130,248,32,168,105,97,249,113,132,103,126,99,182,134,168,250,206,244,28,215,45,102,119,248,52,252,192,160,101,151,234,5,6,128,164,50,57,24,190,110,180,205,114,217,172,16,101,181,160,118,80,3,65,87,185,75,150,247,10,59,175,51,179,149,246,237,186,217,157,173,124,78,167,71,238,248,60,33,1,0,59) case "pv" imageDataLookup = array(71,73,70,56,57,97,42,0,16,0,162,0,0,255,255,255,204,204,204,153,153,153,102,102,102,0,0,0,0,0,0,0,0,0,0,0,0,44,0,0,0,0,42,0,16,0,0,3,108,72,186,220,254,240,133,73,171,189,56,211,161,130,248,32,168,105,97,249,113,132,103,126,217,224,98,107,136,170,113,233,2,184,91,175,243,46,84,3,156,112,0,139,245,118,27,161,146,104,169,29,107,73,101,238,226,236,248,162,82,102,165,154,242,201,178,94,153,53,118,185,225,8,47,138,239,105,106,189,208,218,245,120,53,162,192,39,242,46,185,62,185,231,3,46,129,130,131,132,133,134,130,17,137,138,139,4,9,0,59) case "k" imageDataLookup = array(71,73,70,56,57,97,16,0,16,0,162,0,0,0,0,0,255,255,255,102,102,153,153,153,204,204,204,255,255,255,255,0,0,0,0,0,0,33,249,4,1,0,0,5,0,44,0,0,0,0,16,0,16,0,0,3,70,88,170,208,190,176,52,66,107,139,160,142,205,7,88,25,209,141,30,35,110,65,26,116,95,136,170,41,39,76,92,60,216,195,156,145,170,76,119,61,223,14,184,234,232,78,36,217,76,50,194,229,62,76,162,18,26,29,9,174,84,6,224,202,213,69,64,142,11,36,1,0,59) end select for ix = 0 to ubound(imageDataLookup) binstr = binstr & chrb(imageDataLookup(ix)) next response.contenttype = "image/gif" response.binarywrite(binstr) end sub function trans(y) if rosetta(currentLanguage)(y) <> "" then trans = rosetta(currentLanguage)(y) else trans = rosetta("EN")(y) end if end function function sec2time (x) minutes = fix(x / 60) seconds = round(x - (minutes * 60)) if seconds < 10 then seconds = "0" & seconds sec2time = minutes & ":" & seconds end function function andromedaEncode (x) tmp = server.urlencode(x) tmp = replace(tmp,"+","%20") tmp = replace(tmp,"%2F","/") tmp = replace(tmp,"%2E",".") tmp = replace(tmp,"%2D","-") tmp = replace(tmp,"%5F","_") andromedaEncode = tmp end function function legalFolder (x) lftmp = true if andromedaPrefs("skipPrefix") <> "" then if left(x,len(andromedaPrefs("skipPrefix"))) = andromedaPrefs("skipPrefix") then lftmp = false end if end if if lftmp then if folderSkipNames.exists(x) then lftmp = false end if end if legalFolder = lftmp end function function legalFile (x) lftmp = true if andromedaPrefs("skipPrefix") <> "" then if left(x,len(andromedaPrefs("skipPrefix"))) = andromedaPrefs("skipPrefix") then lftmp = false end if end if if lftmp then if fileTypes.exists(lcase(local_fs.getextensionname(x))) then isaftmp = fileTypes(lcase(local_fs.getextensionname(x))) lftmp = ((isaftmp = "audio") or (isaftmp = "video") or (isaftmp = "playlist")) else lftmp = false end if end if legalFile = lftmp end function function subfolderCount (x) sdctotal = 0 for each f1 in local_fs.GetFolder(andromedaPrefs("mediaPhysicalPath") & x).subfolders if legalFolder(f1.name) then sdctotal = sdctotal + 1 next subfolderCount = sdctotal end function function fileCount (x) tfileCount = 0 for each f1 in local_fs.GetFolder(andromedaPrefs("mediaPhysicalPath") & x).files if legalFile(f1.name) then tfileCount = tfileCount + 1 next fileCount = round((tfileCount/2)+.1) end function function getSubfolders2d(x) lc = -1 lastVal = "" sorted = true redim subfolderList(subfolderCount(x) - 1,0) for each f1 in local_fs.GetFolder(andromedaPrefs("mediaPhysicalPath") & x).subfolders if legalFolder(f1.name) then lc = lc + 1 subfolderList(lc,0) = f1.name sorted = sorted and strGreaterThan(f1.name,lastVal) lastVal = f1.name end if next if ((lc > 0) and not(sorted)) then quickSort2d subfolderList,0,lc,0 getSubfolders2d = subfolderList end function function getFiles2d(x) lc = -1 lastVal = "" sorted = true tc=true redim fileList(fileCount(x) - 1,1) for each f1 in local_fs.GetFolder(andromedaPrefs("mediaPhysicalPath") & x).files if legalFile(f1.name) then if tc then lc = lc + 1 fileList(lc,0) = f1.name fileList(lc,1) = f1.size sorted = sorted and strGreaterThan(f1.name,lastVal) lastVal = f1.name tc=false else tc=true end if end if next if ((lc > 0) and not(sorted)) then quickSort2d fileList,0,lc,0 getFiles2d = fileList end function sub drill2 (x,z) if z = 1 then lcolor = andromedaPrefs("rowLinkColor") tcolor = andromedaPrefs("rowTextColor") elseif andromedaPrefs("disableHTMLheaders") then lcolor = andromedaPrefs("bodyLinkColor") tcolor = andromedaPrefs("bodyTextColor") end if %> "" then %> color=<% = tcolor %><% end if %>><% if lcolor <> "" then %> style="color:<% = lcolor %>">><% = andromedaPrefs("rootName") %> / <% else %>><% = andromedaPrefs("rootName") %> / <% end if tmpaa = split(x,"/") tlp = "" for i = 1 to ubound(tmpaa) tlp = tlp & "/" & tmpaa(i) if lcolor <> "" then %> style="color:<% = lcolor %>">><% = displayName(tmpaa(i)) %> / <% else %>><% = displayName(tmpaa(i)) %> / <% end if next %><% end sub sub playFolderButton (plx) %>><% imagetag "p","i",trans(11) %><% end sub function andrLink (x,y) andrLink = andromedaConst("scriptFileName") & x & server.urlencode(y) end function function mkMediaWebPath (x) mkMediaWebPath = andromedaEncode(andromedaPrefs("mediaWebPath") & x) end function function folderLink (x) folderLink = andrLink("?q=f&f=",x) end function function isAlbum (x) isAlbum = (subfolderCount(x) = 0) and (fileCount(x) > 0) end function function byteCount (x) if x >= 1024 * 1000 then byteCount = round(x/(1024*1024),2) & " MB" elseif x >= 1000 then byteCount = round(x/1024) & " KB" else byteCount = x & " byte" end if end function sub addvpad (height) response.write("
") end sub sub ipad (width,height) imagetag2 "x",width,height,"",false,"i","" end sub sub colorbar (cbw, cbh, cbc) %> height=<% = cbh %> bgcolor=<% = cbc %>>
<% ipad 1,1 %>
<% end sub sub colorBars (cbs) if cbs <> "" then cbtmp1a = split(cbs,";") %>"><% for i = 0 to ubound(cbtmp1a) cbtmp2a = split(cbtmp1a(i),",") %><% next %>
<% ipad 1,cbtmp2a(1) %>
<% end if end sub function switchRow(swx,swcolor1,swcolor2) if swx mod 2 = 0 then switchRow = swcolor1 else switchRow = swcolor2 end if end function function ifps2(x,y,z) if x = 1 then ifps2 = y else ifps2 = z end if end function function displayName (x) if legalFile(x) then cfntmp2 = local_fs.getbasename(x) else cfntmp2 = local_fs.getfilename(x) end if tknumtrimcodea = split(andromedaPrefs("tkNumTrimCodes"),",") for i = 0 to ubound(tknumtrimcodea) trimme = true for j = 1 to len(tknumtrimcodea(i)) if mid(tknumtrimcodea(i),j,1) = "#" then trimme = (trimme and isnumeric(mid(cfntmp2,j,1))) else trimme = (trimme and (mid(tknumtrimcodea(i),j,1) = mid(cfntmp2,j,1))) end if if trimme = false then exit for next if trimme then cfntmp2 = mid(cfntmp2,len(tknumtrimcodea(i))+1) exit for end if next cfntmp2 = replace(cfntmp2,"_"," ") cfntmp2 = trim(cfntmp2) if right(lcase(cfntmp2),5) = ", the" then cfntmp2 = right(cfntmp2,3) & " " & left(cfntmp2,len(cfntmp2) - 5) end if cftmpa = split(cfntmp2," ") if ubound(cftmpa) = 1 then if right(cftmpa(0),1) = "," then cfntmp2 = cftmpa(1) & " " & left(cftmpa(0),len(cftmpa(0)) - 1) end if end if displayName = cfntmp2 end function function limitName (x) if len(x) < andromedaPrefs("popupMaxWidth") then limitname = x else limitname = (trim(left(x, andromedaPrefs("popupMaxWidth") - 2)) & "...") end if end function function ca2s (x) for i = 0 to ubound(x) tmp = tmp & chr(x(i)) next ca2s = tmp end function function newestfile (x) for each i in local_fs.GetFolder(andromedaPrefs("mediaPhysicalPath") & x).files if legalFile(i.name) then if i.datecreated > maxdate then maxdate = i.datecreated end if next xx2d = getSubfolders2d(x) for fi = 0 to ubound(xx2d,1) maxsubfiledate = newestfile(x & "/" & xx2d(fi,0)) if maxsubfiledate > maxdate then maxdate = maxsubfiledate next newestfile = maxdate end function sub displaynew (x) if isdate(x) then daydiff = DateDiff("d", x, date()) if daydiff = 0 then %>"> <% = replace(trans(28)," "," ") %><% elseif daydiff = 1 then %>"> <% = replace(trans(29)," "," ") %><% elseif daydiff > 1 and daydiff < 7 then %>"> <% = replace(trans(29 + weekday(x,1))," "," ") %><% end if end if end sub function minHTMLencode(x) mhetmp = replace(x,"<","<") mhetmp = replace(mhetmp,">",">") mhetmp = replace(mhetmp,"""",""") minHTMLencode = mhetmp end function function bin2txt(Binary) for i = 1 to LenB(Binary) plo = ascb(midb(Binary,i,1)) if plo <> 0 then strChar = strChar & chr(plo) next bin2txt = strChar end function function fixbin (x) if lenb(x) = 1 then fixbin = ascb(x) elseif lenb(x) = 2 then fbyte1 = ascb(midb(x,1,1)) fbyte2 = ascb(midb(x,2,1)) if (((fbyte1 < 128) or (fbyte1 = 129) or (fbyte1 = 141) or (fbyte1 = 143) or (fbyte1 = 144) or (fbyte1 = 157) or (fbyte1 > 159)) and (fbyte2 = 0)) then fixbin = fbyte1 else select case fbyte1 & "-" & fbyte2 case "172-32" fixbin = 128 case "26-32" fixbin = 130 case "25-1" fixbin = 131 case "30-32" fixbin = 132 case "38-32" fixbin = 133 case "32-32" fixbin = 134 case "33-32" fixbin = 135 case "198-2" fixbin = 136 case "48-32" fixbin = 137 case "96-1" fixbin = 138 case "57-32" fixbin = 139 case "82-1" fixbin = 140 case "125-1" fixbin = 142 case "24-32" fixbin = 145 case "25-32" fixbin = 146 case "28-32" fixbin = 147 case "29-32" fixbin = 148 case "34-32" fixbin = 149 case "19-32" fixbin = 150 case "20-32" fixbin = 151 case "220-2" fixbin = 152 case "34-33" fixbin = 153 case "97-1" fixbin = 154 case "58-32" fixbin = 155 case "83-1" fixbin = 156 case "126-1" fixbin = 158 case "120-1" fixbin = 159 case else fixbin = fbyte1 end select end if end if end function function strGreaterThan(slt1,slt2) strGreaterThan = (strcomp(slt1,slt2,1) = 1) end function sub quickSort2d(sortTable,startRow,endRow,sortColumn) sortTableWidth = ubound(sortTable,2) if endRow = (startRow + 1) then if strGreaterThan(sortTable(startRow,sortColumn),sortTable(endRow,sortColumn)) then for swi = 0 to sortTableWidth tempvar = sortTable(startRow,swi) sortTable(startRow,swi) = sortTable(endRow,swi) sortTable(endRow,swi) = tempvar next end if else redim pivot(sortTableWidth) for swi = 0 to sortTableWidth pivot(swi) = sortTable(int((startRow + endRow) / 2),swi) sortTable(int((startRow + endRow) / 2),swi) = sortTable(startRow,swi) sortTable(startRow,swi) = pivot(swi) next loSwap = startRow + 1 hiSwap = endRow do while loSwap < hiSwap do while loSwap < hiSwap and strGreaterThan(pivot(sortColumn),sortTable(loSwap,sortColumn)) loSwap = loSwap + 1 loop do while strGreaterThan(sortTable(hiSwap,sortColumn),pivot(sortColumn)) hiSwap = hiSwap - 1 loop if loSwap < hiSwap then for swi = 0 to sortTableWidth tempvar = sortTable(loSwap,swi) sortTable(loSwap,swi) = sortTable(hiSwap,swi) sortTable(hiSwap,swi) = tempvar next end if loop for swi = 0 to sortTableWidth sortTable(startRow,swi) = sortTable(hiSwap,swi) sortTable(hiSwap,swi) = pivot(swi) next if startRow < (hiSwap - 1) then quickSort2d sortTable,startRow,hiSwap-1,sortColumn if hiSwap + 1 < endRow then quickSort2d sortTable,hiSwap+1,endRow,sortColumn end if end Sub sub editNote (x) if local_fs.fileexists(andromedaPrefs("mediaPhysicalPath") & x) then mode = "update" else mode = "create" end if andromedaHeader "edit note" %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">>
    color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% addvpad 24 %>enter your annotation here
    <% if mode = "update" then addvpad 12 %>to delete the note (and the file), clear the box and click save<% end if %>
<% colorbars andromedaPrefs("bodyFgDiv") %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">

    color=<% = andromedaPrefs("bodyTextColor") %><% end if %>>note: clicking the save button will <% = mode & " " & local_fs.getfilename(x) & " in " & replace(local_fs.getparentfoldername(andromedaPrefs("mediaPhysicalPath") & x),"/","\") %><% %>

    <% %>
<% colorbars andromedaPrefs("bodyFgDiv") andromedaFooter end sub sub saveNote (x,n) if replace(replace(n," ",""),vbcrlf,"") = "" then if local_fs.fileexists(andromedaPrefs("mediaPhysicalPath") & x) then local_fs.DeleteFile(andromedaPrefs("mediaPhysicalPath") & x) '[, force] end if else Set f = local_fs.OpenTextFile(andromedaPrefs("mediaPhysicalPath") & x, 2, True) f.Write n f.Close end if select case local_fs.getbasename(x) case andromedaPrefs("folderListInfo") response.redirect(folderLink(local_fs.getparentfoldername(local_fs.getparentfoldername(x)))) case andromedaPrefs("folderOpenInfo") response.redirect(folderLink(local_fs.getparentfoldername(x))) case else response.redirect(folderLink(local_fs.getparentfoldername(x))) end select end sub sub editPrefs if local_fs.fileexists(andromedaConst("scriptPhysicalPath") & "/" & andromedaPrefsFileName) then mode = "update" else mode = "create" end if andromedaHeader "edit preferences" %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">>
<% addvpad 24 %> color=<% = andromedaPrefs("bodyTextColor") %><% end if %>>Important note<% %>
<% colorbars andromedaPrefs("bodyFgDiv") %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">
    color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% addvpad 6 %>Note: This built-in prefs editor is only designed to help you get started. To get the most out of Andromeda you should instead edit your prefs file with a text editor. Andromeda is highly configurable, but most prefs are not avalable here. Please see the <% %><% if andromedaPrefs("disableHTMLheaders") then %>">">preference guide<% else %>preference guide<% end if %> for details.<% addvpad 12 %>
<% %> color=<% = andromedaPrefs("bodyTextColor") %><% end if %>>general preferences<% %>
<% colorbars andromedaPrefs("bodyFgDiv") %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">
    color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% addvpad 6 %>siteName
    " style="<% = andromedaPrefs("formStyle") %>">
    change the name of your site<% addvpad 8 %>email
    " style="<% = andromedaPrefs("formStyle") %>">
    if you want your email address displayed, enter it here.<% addvpad 8 %> checked<% end if %>> requireLogon
    implements rudimentary security. you'll have to create & edit the andromedaLogons file<% addvpad 8 %> checked<% end if %>> editMode
    makes it easy for you to annotate your collection<% addvpad 8 %> checked<% end if %>> localFilePlayback
    this is a good feature which is off by default because of a bug with some versions of Internet Explorer. if you play mp3s on the same computer running andromeda, turn this on to prevent them from being copied to your web cache. if playback fails, turn it back off.<% addvpad 8 %> checked<% end if %>> displayNew
    automatically highlights recent additions; turn off to improve performance, especially with big collections<% addvpad 8 %> checked<% end if %>> permitSearch
    uncheck to disable the search feature<% addvpad 8 %> checked<% end if %>> displayAMG
    displays the allmusic.com search box. don't be so quick to turn it off - it's not an advertisement, but a handy feature.<% addvpad 12 %>
<% %> color=<% = andromedaPrefs("bodyTextColor") %><% end if %>>image handling<% %>
<% colorbars andromedaPrefs("bodyFgDiv") %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">
    color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% addvpad 6 %> checked<% end if %>> useImageFiles
    turn on to improve performance by using gif files instead of internal binary data. you can <% if andromedaPrefs("disableHTMLheaders") then %>">">download the icon files<% else %>download the icon files<% end if %> from my site.<% addvpad 8 %>imageFolderPath
    " style="<% = andromedaPrefs("formStyle") %>">
    if you set useImageFiles (above), the default location for the gif files is in the same folder as the Andromeda asp (<% = andrLink("","") %>). use this to specify another location (ie /images/). must end with a forward slash (/).<% addvpad 12 %>
<% %> color=<% = andromedaPrefs("bodyTextColor") %><% end if %>>network settings<% %>
<% colorbars andromedaPrefs("bodyFgDiv") %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">
    color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% addvpad 6 %>ftpPath
    " style="<% = andromedaPrefs("formStyle") %>">
    if you include a ftpPath, users will see a link the ftp site entered here.<% addvpad 8 %>hostAddress
    " style="<% = andromedaPrefs("formStyle") %>">
    if your comupter's ip address cannot be seen (ie mapped through nat), or if you need to include a port you can enter an alternate ip address or host name here; no leading 'http://' or trailing '/'<% addvpad 8 %>mediaWebPath
    " style="<% = andromedaPrefs("formStyle") %>">
    mediaPhysicalPath
    " style="<% = andromedaPrefs("formStyle") %>">
    by default andromeda looks in its folder for your mp3s. if you want andromeda to look elsewhere, edit mediaWebPath and mediaPhysicalPath to point to the preferred folder. this is an advanced feature; clear them both to revert to the default behavior.<% addvpad 12 %>
<% %> color=<% = andromedaPrefs("bodyTextColor") %><% end if %>>integration<% %>
<% colorbars andromedaPrefs("bodyFgDiv") %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">
    color=<% = andromedaPrefs("bodyTextColor") %><% end if %>><% addvpad 6 %>customHeader

    this puts whatever you want up in the menubar; use html to make it look nice; carriage returns will be removed.<% addvpad 8 %>customBlock

    this puts whatever you want at the bottom of every folder/file list; use html to make it look nice; carriage returns will be removed.<% addvpad 12 %>
<% %>
<% colorbars andromedaPrefs("bodyFgDiv") %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>">

    color=<% = andromedaPrefs("bodyTextColor") %><% end if %>>note: clicking the save button will <% = mode & " " & andromedaPrefsFileName & " in " & andromedaConst("scriptPhysicalPath") %><% %>

    <% %>
<% colorbars andromedaPrefs("bodyFgDiv") andromedaFooter end sub sub savePrefs Set f = local_fs.OpenTextFile(andromedaConst("scriptPhysicalPath") & "/" & andromedaPrefsFileName, 2, True) f.WriteLine("<" & "%") if trim(request("siteName")) <> "" then f.WriteLine("'siteName" & vbtab & trim(request("siteName"))) if trim(request("email")) <> "" then f.WriteLine("'email" & vbtab & trim(request("email"))) if request("requireLogon") = "on" then f.WriteLine("'requireLogon" & vbtab & "true") if request("editMode") = "on" then f.WriteLine("'editMode" & vbtab & "true") if request("localFilePlayback") = "on" then f.WriteLine("'localFilePlayback" & vbtab & "true") if request("displayNew") = "on" then f.WriteLine("'displayNew" & vbtab & "true") if request("permitSearch") <> "on" then f.WriteLine("'permitSearch" & vbtab & "false") if request("displayAMG") <> "on" then f.WriteLine("'displayAMG" & vbtab & "false") if request("useImageFiles") = "on" then f.WriteLine("'useImageFiles" & vbtab & "true") if trim(request("imageFolderPath")) <> "" then f.WriteLine("'imageFolderPath" & vbtab & trim(request("imageFolderPath"))) if trim(request("ftpPath")) <> "" then f.WriteLine("'ftpPath" & vbtab & trim(request("ftpPath"))) if trim(request("hostAddress")) <> "" then f.WriteLine("'hostAddress" & vbtab & trim(request("hostAddress"))) if trim(replace(request("customHeader"),vbcrlf," ")) <> "" then f.WriteLine("'customHeader" & vbtab & trim(replace(request("customHeader"),vbcrlf," "))) if trim(replace(request("customBlock"),vbcrlf," ")) <> "" then f.WriteLine("'customBlock" & vbtab & trim(replace(request("customBlock"),vbcrlf," "))) if ((trim(request("mediaWebPath")) <> "") and (trim(request("mediaWebPath")) <> local_fs.getparentfoldername(request.servervariables("path_info")))) then f.WriteLine("'mediaWebPath" & vbtab & trim(request("mediaWebPath"))) if ((trim(request("mediaPhysicalPath")) <> "") and (trim(request("mediaPhysicalPath")) <> local_fs.getparentfoldername(request.servervariables("path_translated")))) then f.WriteLine("'mediaPhysicalPath" & vbtab & trim(request("mediaPhysicalPath"))) f.WriteLine("%" & ">") f.Close response.redirect(andrLink("","")) end sub if request("i") <> "" then displayImage request("i") else response.buffer = true Set andromedaConst = CreateObject("Scripting.Dictionary") Set andromedaPrefs = CreateObject("Scripting.Dictionary") Set fileTypes = CreateObject("Scripting.Dictionary") Set folderSkipNames = CreateObject("Scripting.Dictionary") Set andromedaLogons = CreateObject("Scripting.Dictionary") Set rosetta = CreateObject("Scripting.Dictionary") ' ' PLEASE DO NOT MODIFY THE TRANSLATION DICTIONARIES. IF YOU THINK ' SOMETHING COULD BE PHRASED BETTER, PLEASE LET ME KNOW SO I CAN ' FIX IT FOR EVERYBODY. ' ' THANKS ' rosetta.add "AR", array("Arabic" & vbtab & "windows-1256" & vbtab & "Arabic","ÚÑÈí","ãáÝ","ãáÝÇÊ","ãÌáÏ","ãÌáÏÇÊ","ÃÎÊÇÑ Çáßá","áÇÔíÁ","ÃÖÝ Åáì ÞÇÆãÉ ÇáÃÛÇäí ÇáãÝÖáÉ","ÇãÓÍ ãä ÞÇÆãÉ ÇáÃÛÇäí ÇáãÝÖáÉ","ÅÓÊãÇÚ ÇáÅÎÊíÇÑ","ÅÓÊãÇÚ Çáßá","ÞÇÆãÉ ÇáãÝÖáÇÊ %## ããÊáÆÉ","ÈÍË","ÇáÑÌÇÁ ÇáÏÎæá","ÅÓã ÇáãÓÊÎÏã","ßáãÉ ÇáÚÈæÑ","ÇáÕÝÍÉ ÇáÑÆíÓíÉ","ÇáÊÝÖíáÇÊ","Úä #a","ãæÞÚ ÇáÃÝ Êí Èí","ÇáÝäÇäíä","ÇáÃáÈæãÇÊ","ÇáÃÛÇäí","ÇáÕäÝ","ÚäÇæíä ÇáÃÛÇäí","ÃÓÆáÉ æ ÊÚáíÞÇÊ","åÐÇ ÇáãæÞÚ ãÏÇÑ ÈÈÑäÇãÌ #a äÓÎÉ ##","ÌÏíÏ Çáíæã","ÌÏíÏ ÇáÃãÓ","ÌÏíÏ ÇáÃÍÏ","ÌÏíÏ ÇáÃËäíä","ÌÏíÏ ÇáËáÇËÇÁ","ÌÏíÏ ÇáÃÑÈÚÇÁ","ÌÏíÏ ÇáÎãíÓ","ÌÏíÏ ÇáÌãÚÉ","ÌÏíÏ ÇáÓÈÊ","äÊíÌÉ ÇáÈÍË","íÌÈ ÊæÝÑ Úáì ÇáÃÞá ÍÑÝíä ááÈÍË","áÇ ÊæÌÏ äÊíÌÉ ãØÇÈÞÉ","ÇáãáÝ ÛíÑ ãæÌæÏ","ÓíÊã ÊÍæíáß ááãæÞÚ","ÇÎÊÇÑ åäÇ","áßí Êßãá","ÞÇÆãÉ ÇáÃÛÇäí ÇáãÝÖáÉ","ÅÙåÇÑ ÞÇÆãÉ ÇáÃÛÇäí ÇáãÝÖáÉ") rosetta.add "BS", array("Bosnian" & vbtab & "iso-8859-1" & vbtab & "Bosanski","Bosanski","fajl","fajlovi","folder","folderi","izaberi sve","nista","dodaj na listu","izbrisi sa liste","slusaj posebno","slusaj sve","lista je ##% puna","trazi","molimo vas logujte se","logujte se","Lozinka","Glavna strana","zeljena podesavanja","o #a","ftp site","izvodjac","albumi","pjesme","zanr","labels","pitanja i komentari","powerd by #a verzija ##","novo Danas","novo jucer","novo Nedjelja","novo Ponedjeljak","novo Utorak","novo SrijedA","nOVO Cetvrtak","novo Petak","novo Subota","rezultati trazenja","trazena rijec mora imati najmanje dva slova","nista nema na dati text","File nije pronadjen","bicete preusmjereni na sajt","Klikni ovdje","da nastavite","lista","pogledaj listu") rosetta.add "BG", array("Bulgarian" & vbtab & "Windows-1251" & vbtab & "Bulgarian","Áúëãàðñêè","ôàéë","ôàéëà","ïàïêà","ïàïêè","èçáåðè âñè÷êè","îòêàæè âñè÷êè","äîáàâè â ñïèñúêà","èçâàäè îò ñïèñúêà","ïðîñëóøàé èçáðàíîòî","ïðîñëóøàé âñè÷êè","ñïèñúêúò å ïúëåí íà ##%","òúðñè â","ïðåäñòàâåòå ñå","ïîòðåáèòåë","ïàðîëà","íà÷àëíà ñòðàíèöà","íàñòðîéêè","çà #a","ftp äèðåêòîðèÿ","èçïúëíèòåëè","àëáóìè","ïåñíè","ñòèëîâå","îáëîæêè","âúïðîñè è êîìåíòàðè","ðåàëèçèðàíî ñ #a âåðñèÿ ##","äîáàâåíî Äíåñ","äîáàâåíî Â÷åðà","äîáàâåíî â Íåäåëÿ","äîáàâåíî â Ïîíåäåëíèê","äîáàâåíî âúâ Âòîðíèê","äîáàâåíî â Ñðÿäà","äîáàâåíî â ×åòâúðòúê","äîáàâåíî â Ïåòúê","äîáàâåíî â Ñúáîòà","ðåçóëòàò îò òúðñåíåòî","òúðñåíàòà ôðàçà òðÿáâà äà å íàé-ìàëêî îò äâà ñèìâîëà","íèùî íå å íàìåðåíî","Íÿìà òàêúâ ôàéë","Ùå áúäåòå ïðåíàñî÷åíè êúì ñòðàíèöàòà","íàòèñíåòå òóê","Çà ïðîäúëæåíèå","ñïèñúê","âèæ ñïèñúêà") rosetta.add "CA", array("Catalan" & vbtab & "iso-8859-1" & vbtab & "Català","Català","arxiu","arxius","carpeta","carpetes","seleccionar tot","res","afegir a la llista","treure de la llista","reproduir selecció","reproduir tot","la llista està ##% plena","buscar a","identifica't si-us-plau","nom","clau","pàgina inicial","preferencies","sobre #a","lloc ftp","artistes","álbums","cançons","gèneres","segells","preguntes o comentaris","funciona amb #a versió ##","nou avui","nou d´ ahir","nou del diumenge","nou del dilluns","nou del dimarts","nou del dimecres","nou del dijous","nou del divendres","nou del dissabte","resultats de la búsqueda","cal introduir com a mínim 2 lletres","no s'han trobat coincidències","Arxiu no trobat","Hauries de ser redirigit cap aquest lloc","apreta aqui","Per continuar","llista","veure llista") rosetta.add "CS", array("Czech" & vbtab & "iso-8859-2" & vbtab & "Cesky","Èesky","soubor","soubory","slo¾ka","slo¾ky","vybrat v¹e","nic","pøidat do playlistu","odstranit z playlistu","pøehrát vybrané","pøehrát v¹e","playlist je z ##% plný","hledat v","prihla¹te se prosím","jméno","heslo","titulní strana","nastavení","o #a","ftp server","umìlci","alba","písnì","¾ánry","labely","otázky nebo komentáøe","pou¾ívá #a verze ##","novinka dnes","novinka vèera","novinka Nedìle","novinka Pondìlí","novinka Úterý","novinka Støedy","novinka Ètvrtka","novinka Páteku","novinka Soboty","výsledky vyhledávání","zadejte alespoò 2 znaky","nic nenalezeno","Soubor nenalezen","Budete pøesmìrování na","klikni zde","Pokraèovat","playlist","prohlídnout playlist") rosetta.add "ZH-cn", array("Chinese Simplified" & vbtab & "GB2312" & vbtab & "Chinese Simplified","¼òÌåÖÐÎÄ","¸öµµ°¸","¸öµµ°¸","¸ö×ÊÁϼÐ","¸ö×ÊÁϼÐ","ȫѡ","Çå³ý","ÐÂÔöÖÁ²¥·ÅÇåµ¥","´Ó²¥·ÅÇåµ¥ÖÐÒÆ³ý","²¥·ÅÇåµ¥","È«²¿²¥·Å","²¥·ÅÇåµ¥ÒÑʹÓÃÁË##%","ËÑѰ","ÇëµÇÈë","µÇÈëÃû³Æ","ÃÜÂë","Ê×Ò³","É趨","¹Øì¶ #a","ftp վ̨","Ñݳö/ÑÝ×àÕß","ר¼­","¸èÇú","Àà±ð","³ªÆ¬¹«Ë¾","ÎÊÌâ»òÒâ¼û","ÓÉ #a ¿ª·¢ - °æ±¾ ##","ÐÂÔö - ½ñÌì","ÐÂÔö - ×òÌì","ÐÂÔö - ÐÇÆÚÈÕ","ÐÂÔö - ÐÇÆÚÒ»","ÐÂÔö - ÐÇÆÚ¶þ","ÐÂÔö - ÐÇÆÚÈþ","ÐÂÔö- ÐÇÆÚËÄ","ÐÂÔö - ÐÇÆÚÎå","ÐÂÔö - ÐÇÆÚÁù","ËÑѰ½á¹û","ËÑѰÌõ¼þ±ØÐëÓÉÖÁÉÙÁ½¸ö×ÖÔªËù×é³É","ÕÒ²»µ½·ûºÏÒªÇóµÄÏîÄ¿","ÕÒ²»µ½µµ°¸","Ä㽫»á±»´øÁì½øÈëվ̨","Çë°´ÕâÀï","¼ÌÐø","²¥·ÅÇåµ¥","¼ìÊÓ²¥·ÅÇåµ¥") rosetta.add "ZH-tw", array("Chinese Traditional" & vbtab & "BIG5" & vbtab & "Chinese Traditional","ÁcÅ餤¤å","­ÓÀÉ®×","­ÓÀÉ®×","­Ó¸ê®Æ§¨","­Ó¸ê®Æ§¨","¥þ¿ï","²M°£","·s¼W¦Ü¼½©ñ²M³æ","±q¼½©ñ²M³æ¤¤²¾°£","¼½©ñ²M³æ","¥þ³¡¼½©ñ","¼½©ñ²M³æ¤w¨Ï¥Î¤F##%","·j´M","½Ðµn¤J","µn¤J¦WºÙ","±K½X","­º­¶","³]©w","Ãö©ó #a","ftp ¯¸¥x","ºt¥X/ºt«µªÌ","±M¿è","ºq¦±","Ãþ§O","°Û¤ù¤½¥q","°ÝÃD©Î·N¨£","¥Ñ #a ¶}µo - ª©¥» ##","·s¼W - ¤µ¤Ñ","·s¼W - ¬Q¤Ñ","·s¼W - ¬P´Á¤é","·s¼W - ¬P´Á¤@","·s¼W - ¬P´Á¤G","·s¼W - ¬P´Á¤T","·s¼W- ¬P´Á¥|","·s¼W - ¬P´Á¤­","·s¼W - ¬P´Á¤»","·j´Mµ²ªG","·j´M±ø¥ó¥²¶·¥Ñ¦Ü¤Ö¨â­Ó¦r¤¸©Ò²Õ¦¨","§ä¤£¨ì²Å¦X­n¨Dªº¶µ¥Ø","§ä¤£¨ìÀÉ®×","§A±N·|³Q±a»â¶i¤J¯¸¥x","½Ð«ö³o¸Ì","Ä~Äò","¼½©ñ²M³æ","À˵ø¼½©ñ²M³æ") rosetta.add "DA", array("Danish" & vbtab & "iso-8859-1" & vbtab & "Dansk","Dansk","fil","filer","mappe","mapper","vælg alle","ingen","tilføj til liste","fjern fra liste","afspil valgte","afspil alle","listen er ##% fuld","søg","vær venlig at logge ind","brugernavn","kodeord","hjemmeside","indstillinger","om #a","ftp site","kunstnere","albums","sange","genrer","titler","spørgsmål eller kommentarer","genereret af #a version ##","nye i dag","nye i går","nye søndag","nye mandag","nye tirsdag","nye onsdag","nyt torsdag","nye fredag","nye lørdag","søgeresultater","søgeordet skal minimum indeholde 2 karakterer","din søgning gav intet resultat","siden blev ikke fundet","du burde blive viderestillet til sitet","tryk her","for at fortsætte","listen","vis listen") rosetta.add "DE", array("German" & vbtab & "iso-8859-1" & vbtab & "Deutsch","Deutsch","Datei","Dateien","Ordner","Ordner","alles auswählen","aufheben","zur Playlist hinzufügen","aus der Playlist entfernen","Auswahl abspielen","alles Abspielen","die Playlist ist zu ##% voll","durchsuche","Bitte anmelden","Benutzername","Passwort","Homepage","Einstellungen","über #a","FTP Server","Künstler","Alben","Titel","Genres","Labels","Fragen oder Kommentare","powered by #a version ##","Neu, seit Heute","Neu, seit Gestern","Neu, seit Sonntag","Neu, seit Montag","Neu, seit Dienstag","Neu, seit Mittwoch","Neu, seit Donnerstag","Neu, seit Freitag","Neu, seit Samstag","Suchergebnisse","Der Suchbegriff muß mindestens 2 Zeichen enthalten","Keine Ergebnisse gefunden","Datei nicht gefunden","Sie sollten jetzt auf die Seite weitergeleitet werden","hier klicken","Um fortzufahren","Playlist","Playlist anzeigen") rosetta.add "ET", array("Estonian" & vbtab & "iso-8859-1" & vbtab & "Eesti","Eesti","fail","faili","kaust","kausta","vali kõikk","tühista valitud","lisa playlisti","kõrvalda playlistist","mängi valituid","mängi kõiki","playlistist on kasutusel ##%","otsi","palun logi sisse","kasutajanimi","salasõna","kodulehekülg","eelistused","info #a-st","ftp leht","artiste","albumeid","laule","muusika stiile","kaani","küsimused või kommentarid","powered by #a version ##","uus täna","uus eile","uus Pühapäeval","uus Esmaspäeval","uus Teisipäeval","uus Kolmapäeval","uus Neljapäeval","uus Reedel","uus Lapäeval","otsimise tulemaus","otsitav sõna peaks olema väheamlt 2 tähemärki","sinu päringule ei leidunud vastust","Faili ei leidu","Sind suunatakse uuele lehele","klikki siia","Jätkamaks","playlist","näita playlisti") rosetta.add "EL", array("Greek" & vbtab & "iso-8859-7" & vbtab & "Ellinika","ÅëëçíéêÜ","áñ÷åßï","áñ÷åßá","öÜêåëïò","öÜêåëïé","åðéëïãÞ üëùí","êáíÝíá","ðñïóèÞêç óôçí ëßóôá","áöáßñåóç áðü ôçí ëßóôá","Ðáßîå ôï åðéëåãìÝíï","Ðáßîôá üëá","Ç ëßóôá åßíáé ##% ãåìÜôç","åýñåóç","åßóïäïò","üíïìá ÷ñÞóôç","êùäéêüò","êåíôñéêÞ óåëßäá","ðñïôéìÞóåéò","ó÷åôéêÜ ìå ôçí #a","ftp site","êáëéôÝ÷íåò","äßóêïé","ôñáãïýäéá","åßäïò","åôéêÝôåò","åñùôÞóåéò Þ ó÷üëéá","öôéáãìÝíï ìå #a Ýêäïóç ##","Íåü óÞìåñá","ÍÝï ÷ôÝò","ÍÝï ÊõñéáêÞ","ÍÝï ÄåõôÝñá","ÍÝï Ôñßôç","ÍÝï ÔåôÜñôç","ÍÝï ÐÝìðôç","ÍÝï ÐáñáóêåõÞ","ÍÝï ÓáââÜôï","áðïôåëÝóìáôá åýñåóçò","ç ëÝîç ðñïò áíáæÞôçóç ðñÝðåé íá Ý÷åé ôïõëÜ÷éóôïí 2 ÷áñáêôÞñåò","äåí âñÝèçêå ôßðïôá","Ôï áñ÷åßï äåí âñÝèçêå","Èá ìåôáöåñèåßôå óôï site","êÜíôå click åäþ","Ãéá íá óõíå÷ßóåôå","ëßóôá ôñáãïõäéþí","äåßôå ôçí ëßóôá ôñáãïõäéþí") rosetta.add "EN", array("English" & vbtab & "iso-8859-1" & vbtab & "English","English","file","files","folder","folders","select all","none","add to playlist","remove from playlist","play selection","play all","the playlist is ##% full","search","please logon","logon","password","home page","preferences","about #a","ftp site","artists","albums","songs","genres","labels","questions or comments","powered by #a version ##","new today","new yesterday","new Sunday","new Monday","new Tuesday","new Wednesday","new Thursday","new Friday","new Saturday","search results","the search term must be at least 2 characters","no matches found","File not found","You should be redirected into the site","click here","To continue","playlist","view playlist") rosetta.add "ES", array("Spanish" & vbtab & "iso-8859-1" & vbtab & "Español","Español","archivo","archivos","carpeta","carpetas","seleccionar todo","ninguno","añadir a la lista"," quitar de la lista","reproducir selección","reproducir todas","la lista esta ##% llena","buscar en","autentifícate por favor","nombre","contraseña","web inicial","preferencias","acerca de #a","sitio de ftp","artistas","discos","canciones","géneros","disqueras","preguntas o comentarios","soportado por #a versión ##","nueva hoy","nueva ayer","nueva domingo","nueva lunes","nueva martes","nueva miércoles","nueva jueves","nueva viernes","nueva sábado","resultados de la búsqueda","la búsqueda debe tener al menos 2 letras","no se encontraron coincidencias","Archivo no encontrado","Deberías ser redirigido al sitio","pulsa aquí","Para continuar","lista","ver lista") rosetta.add "FR", array("French" & vbtab & "iso-8859-1" & vbtab & "Français","Français","fichier","fichiers","dossier","dossiers","sélectionner tout","aucun","ajouter à la liste","enlever de la liste","jouer la sélection","jouer tout","la liste est pleine à ##%","rechercher","enregistrez-vous, svp","usager","mot de passe","acceuil","préférences","à propos d'#a","site ftp","artistes","albums","chansons","genres","maisons d'éditions","questions ou commentaires","généré par #a version ##","ajouté aujourd'hui","ajouté hier","ajouté dimanche","ajouté lundi","ajouté mardi","ajouté mercredi","ajouté jeudi","ajouté vendredi","ajouté samedi","résultats","le mot-clé recherché doit avoir au moins 2 caractères","aucuns résultats pour cette recherche","Le fichier n'a pas été trouvé","Vous devriez être redirigé vers le site","cliquez ici","Pour continuer","liste","voir la liste") rosetta.add "IS", array("Icelandic" & vbtab & "iso-8859-1" & vbtab & "Íslenska","Íslenska","skrá","skrár","mappa","möppur","velja allt","ekkert","bæta við lagalista","fjarlægja af lagalista","spila val","spila allt","lagalistinn er ##% fullur","leita á","skráðu þig inn","notendanafn","lykilorð","heimasíða","stillingar","um #a","ftp svæði","listamenn","plötur","lög","tegund","útgáfur","spurningar eða ábendingar","knúið af #a útgáfa ##","nýtt í dag","nýtt í gær","nýtt á sunnudag","nýtt á mánudag","nýtt á þriðjudag","nýtt á miðvikudag","nýtt á fimmtudag","nýtt á föstudag","nýtt á laugardag","niðurstöður leitar","leitin verður að innihalda að minnsta kosti 2 stafi","ekkert fannst","Skráin finnst ekki","Þú ættir að vera fluttur á síðuna","smelltu hér","Til að halda áfram","agalisti","skoða lagalista") rosetta.add "IT", array("Italian" & vbtab & "iso-8859-1" & vbtab & "Italiano","Italiano","file","files","cartella","cartelle","seleziona tutto","cancella","aggiungi alla playlist","rimuovi dalla playlist","play selezione","play tutto","la playlist e' piena al ##%","cerca","inserisci utente e password","utente","password","home page","preferenze","informazioni su #a","sito FTP ","artisti","albums","canzoni","generi","etichette","domande o commenti","creato con #a versione ##","aggiunto oggi","aggiunto ieri","aggiunto domenica","aggiunto lunedi","aggiunto martedi","aggiunto mercoledi","aggiunto giovedi","aggiunto venerdi","aggiunto sabato","risultati della ricerca","la parola da cercare deve esse di 2 lettere almeno","nessun risultato per questa ricerca","File non trovato","Sarete rediretti al sito","clicca qui","Per continuare","playlist","guarda la playlist") rosetta.add "JA", array("Japanese" & vbtab & "Shift_JIS" & vbtab & "Japanese","“ú–{Œê","ƒtƒ@ƒCƒ‹","•¡�”ƒtƒ@ƒCƒ‹","ƒtƒHƒ‹ƒ_","•¡�”ƒtƒHƒ‹ƒ_","‘S•”‘I‘ð","‚È‚µ","ƒŠƒXƒg‚ɒljÁ‚·‚é","ƒŠƒXƒg‚©‚ç�í�œ‚·‚é","‘I‘ð‚µ‚½‹È‚ð�Ä�¶‚·‚é","‚·‚ׂÄ�Ä�¶‚·‚é","ƒŠƒXƒg‚Í##%ƒtƒ‹","ƒT�[ƒ`","ƒ�ƒOƒIƒ“‚µ‚Ä‚­‚¾‚³‚¢","ƒ�ƒOƒIƒ“","ƒpƒXƒ��[ƒh","ƒz�[ƒ€ƒy�[ƒW","ƒIƒvƒVƒ‡ƒ“","#a‚ɂ‚¢‚Ä","ftp ƒTƒCƒg","ƒA�[ƒeƒBƒXƒg","ƒAƒ‹ƒoƒ€","‹È","ƒWƒƒƒ“ƒ‹","ƒŒ�[ƒxƒ‹","Ž¿–â‚Ü‚½‚̓Rƒ�ƒ“ƒg","powered by #a version ##","Œf�Ú�¡“ú","Œf�Ú�ð“ú","Œf�Ú“ú—j“ú","Œf�ÚŒŽ—j“ú","Œf�ډΗj“ú","Œf�Ú�…—j“ú","Œf�Ú–Ø—j“ú","Œf�Ú‹à—j“ú","Œf�Ú“y—j“ú","ŒŸ�õŒ‹‰Ê","ƒL�[ƒ��[ƒh‚Í2•¶ŽšˆÈ�ã‚É‚µ‚Ä‚­‚¾‚³‚¢","‚݂‚©‚è‚Ü‚¹‚ñ‚Å‚µ‚½","ƒtƒ@ƒCƒ‹‚ÍŒ©‚‚©‚è‚Ü‚¹‚ñ‚Å‚µ‚½","Ž©“®“I‚ɃTƒCƒg‚ÖˆÚ“®‚µ‚Ü‚·","‚±‚±‚ðƒNƒŠƒbƒN‚µ‚Ä‚­‚¾‚³‚¢","‘±‚­","�Ä�¶ƒŠƒXƒg","�Ä�¶ƒŠƒXƒg‚ðŒ©‚é") rosetta.add "KO", array("Korean" & vbtab & "euc-kr" & vbtab & "Korean","Çѱ¹¾î","ÆÄÀÏ","ÆÄÀÏ","Æú´õ","Æú´õ","¸ðµÎ ¼±ÅÃ","¼±ÅÃ ÇØÁ¦","Àç»ý ¸ñ·Ï¿¡ Ãß°¡","Àç»ý ¸ñ·Ï¿¡¼­ »èÁ¦","¿¬¼Ó µè±â","¸ðµÎ µè±â","ÀÌ¿ë °¡´ÉÇÑ Àç»ý ¸ñ·Ï¿¡¼­ ##% »ç¿ë Áß ÀÔ´Ï´Ù","°Ë»ö","·Î±×ÀÎ Çϼ¼¿ä","·Î±×ÀÎ","ÆÐ½º¿öµå","óÀ½À¸·Î","¼³Á¤","#a¿¡ ´ëÇÏ¿©","FTP »çÀÌÆ®","¾ÆÆ¼½ºÆ®","¾Ù¹ü","°î¸ñ","Àö¸£","·¹À̺í","À½¾Ç°ú °ü·ÃµÈ ¹®ÀÇ»çÇ×Àº ¸ÞÀÏÁÖ¼¼¿ä","powered by #a version ##","(Ãß°¡)¿À´Ã","(Ãß°¡)¾îÁ¦","(Ãß°¡)ÀÏ¿äÀÏ","(Ãß°¡)¿ù¿äÀÏ","(Ãß°¡)È­¿äÀÏ","(Ãß°¡)¼ö¿äÀÏ","(Ãß°¡)¸ñ¿äÀÏ","(Ãß°¡)±Ý¿äÀÏ","(Ãß°¡)Åä¿äÀÏ","°Ë»ö °á°ú","°Ë»ö¾î´Â ÃÖ¼Ò 2ÀÚ ÀÌ»ó À̾î¾ß ÇÕ´Ï´Ù","ÀÏÄ¡ÇÏ´Â ÀÚ·á°¡ ¾ø½À´Ï´Ù","ÆÄÀÏÀ» ãÀ» ¼ö ¾ø½À´Ï´Ù","´Ù½Ã ½Ãµµ ÇØ ÁÖ¼¼¿ä","Ŭ¸¯Çϼ¼¿ä","¿©±â¸¦","Àç»ý ¸ñ·Ï","Àç»ý ¸ñ·Ï º¸±â") rosetta.add "HU", array("Hungarian" & vbtab & "iso-8859-2" & vbtab & "Magyar","Magyar","fájl","fájl","könyvtár","könyvtár","mind kiválaszt","semmi","hozzáadás a listához","törlés a listából","kiválasztottak lejátszása","minden lejátszása","a lista ##%-ig tele","Keresés:","Kérem lépj be","Felhasználónév","Jelszó","Kezdõoldal","Beállítások","Az #a-ról","FTP tárhely","Elõadók","Albumok","Dalok","Stílusok","Feliratok","Kérdések vagy megjegyzések","Az oldal az #a ## verzióval készült","Mai újdonságok","Tegnapi újdonságok","Vasárnapi újdonságok","Hétfôi újdonságok","Keddi újdonságok","Szerdai újdonságok","Csütörtöki újdonságok","Pénteki újdonságok","Szombati újdonságok","A keresés eredménye","A keresendô szónak legalább 2 betûbôl kell állni","Nincs találat","A fájl nem található","Mindjárt átirányítunk az oldalunkra","kattints ide","A folytatáshoz","Dalok listája","Lista megtekintése") rosetta.add "NL", array("Dutch" & vbtab & "iso-8859-1" & vbtab & "Nederlands","Nederlands","bestand","bestanden","map","mappen","alles selecteren","niets","aan playlist toevoegen","van playlist verwijderen","selectie afspelen","speel alles","de playlist is voor ##% vol","zoek in","Inloggen a.u.b.","gebruikersnaam","wachtwoord","home pagina","instellingen","over #a","ftp site","artiesten","albums","nummers","genres","labels","vragen of opmerkingen","powered by #a versie ##","nieuw vandaag","nieuw gisteren","nieuw zondag","nieuw maandag","nieuw dinsdag","nieuw woensdag","nieuw donderdag","nieuw vrijdag","nieuw zaterdag","zoekresultaten","de zoekterm moet uit minimaal 2 tekens bestaan","geen zoekresultaten gevonden","Bestand niet gevonden","U wordt naar de site doorgestuurd","klik hier","Om door te gaan","playlist","playlist bekijken") rosetta.add "NO", array("Norwegian" & vbtab & "iso-8859-1" & vbtab & "Norsk","Norsk","fil","filer","mappe","mapper","velg alle","ingen","legg til i spillelisten","fjern fra spillelisten","spill valgte","spill alle","spillelisten er ##% full","Søk","Vennligst logg inn","Brukernavn","Passord","hjem","innstillinger","om #a","ftp side","artister","album","sanger","sjangere","plateselskaper","spørsmål eller kommentarer","Drevet av #a versjon ##","ny i dag","ny i går","ny på søndag","ny på mandag","ny på tirsdag","ny på onsdag","ny på torsdag","ny på fredag","ny på lørdag","søkeresultater","søkestrengen må være på minst 2 tegn","ingen treff","Finner ikke filen","Du burde bli videresendt til siden","klikk her","For å fortsette","spillelisten","se på spillelisten") rosetta.add "PL", array("Polish" & vbtab & "iso-8859-2" & vbtab & "Polski","Polski","plik","plików","folder","folderów","zaznacz wszystko","nic","dodaj do listy","usuñ z listy","odtwórz zaznaczone","odtwórz wszystko","wype³nienie listy ##%","szukaj","zaloguj siê","u¿ytkownik","has³o","strona g³ówna","preferencje","o #a","serwer FTP","wykonawca","albumy","utwory","gatunek","tytu³","pytania lub komentarze","powered by #a version ##","dzisiejsze nowo¶ci","wczorajsze nowo¶ci","nowo¶æ z niedzieli","nowo¶æ z poniedzia³ku","nowo¶æ z wtorku","nowo¶æ ze ¶rody","nowo¶æ z czwartku","nowo¶æ z pi±tku","nowo¶æ z soboty","wyniki szukania","szukana fraza musi sk³adaæ siê z min. 2 liter","nie znaleziono","Brak pliku","Musisz byæ przekierowany do strony","kliknij tutaj","Kontynuacja","lista odtwarzania","widok listy odtwarzania") rosetta.add "PT", array("Portuguese" & vbtab & "iso-8859-1" & vbtab & "Português","Português","ficheiro","ficheiros","pasta","pastas","seleccionar todos","nenhum","juntar à playlist","remover da playlist","tocar selecção","tocar todos","a playlist está ##% cheia","procure no","por favor identifique-se","utilizador","palavra-passe","homepage","preferências","acerca do #a","site ftp","artistas","álbums","canções","géneros","editoras","questões ou comentários","powered by #a versão ##","novo hoje","novo ontem","novo domingo","novo segunda-feira","novo terça-feira","novo quarta-feira","novo quinta-feira","novo sexta-feira","novo sábado","resultados da pesquisa","o termo da pesquisa deve ter pelo menos 2 caracteres","nenhum resultado encontrado","Ficheiro não encontrado","Deverá ser redirigido para este site","clique aqui","Para continuar","playlist","ver playlist") rosetta.add "PT-br", array("Portuguese (Brazil)" & vbtab & "iso-8859-1" & vbtab & "Português (Brasil)","Português (Brasil)","arquivo","arquivos","pasta","pastas","selecionar todos","nenhum","adicionar ao playlist","remover do playlist","tocar seleção","tocar todas","o playlist está ##% cheio","procure no","por favor identifique-se","usuário","senha","homepage","preferências","sobre o #a","site ftp","artistas","álbums","músicas","estilos","selos","perguntas ou comentários","powered by #a versão ##","novo hoje","novo ontem","novo domingo","novo segunda-feira","novo terça-feira","novo quarta-feira","novo quinta-feira","novo sexta-feira","novo sábado","resultados da pesquisa","o termo da pesquisa deve ter pelo menos 2 caracteres","nenhum resultado encontrado","Arquivo não encontrado","Deverá ser redirecionado para este site","clique aqui","Para continuar","playlist","ver o playlist") rosetta.add "RU", array("Russian" & vbtab & "Windows-1251" & vbtab & "Pycckuu","Ðóññêèé","ôàéë","ôàéëîâ","ïàïêà","ïàïîê","âûáðàòü âñå","íè÷åãî","äîáàâèòü â ñïèñîê","óäàëèòü èç ñïèñêà","èãðàòü âûäåëåííîå","èãðàòü âñå","ñïèñîê ïîëîí íà ##%","èñêàòü íà","âõîä â ñèñòåìó","èìÿ","ïàðîëü","äîìàøíÿÿ ñòðàíèöà","íàñòðîéêè","îá #a","ñàéò ftp","èñïîëíèòåëè","àëüáîìû","ïåñíè","æàíðû","íàçâàíèÿ","âîïðîñû èëè çàìå÷àíèÿ","ðàáîòàåò íà #a âåðñèè ##","äîáàâëåíî ñåãîäíÿ","äîáàâëåíî â÷åðà","äîáàâëåíî â âîñêðåñåíüå","äîáàâëåíî â ïîíåäåëüíèê","äîáàâëåíî â âòîðíèê","äîáàâëåíî â ñðåäó","äîáàâëåíî â ÷åòâåðã","äîáàâëåíî â ïÿòíèöó","äîáàâëåíî â ñóááîòó","ðåçóëüòàòû ïîèñêà","ñëîâî äëÿ ïîèñêà äîëæíî áûòü áîëåå 2 ñèìâîëîâ â äëèíó","íè÷åãî íå íàéäåíî","Ôàéë íå íàéäåí","Ïðîèñõîäèò ïåðåíàïðàâëåíèå íà ñàéò","ùåëêíèòå çäåñü","Äëÿ ïðîäîëæåíèÿ","ñïèñîê","ïðîñìîòð ñïèñêà") rosetta.add "RO", array("Romanian" & vbtab & "iso-8859-2" & vbtab & "Româna","Românã","fiºier","fiºiere","director","directoare","selecteazã toate","nici unul","adaugã la listã","ºterge din listã","redã selecþia","redã toate","lista de piese este ##% plinã","cautã pe","vã rog conectaþi-vã","utilizator","parola","pagina principalã","preferinþe","despre #a","locaþie ftp","artiºti","albume","piese","stiluri","etichete","întrebãri sau comentarii","creat de #a versiunea ##","adãugat astãzi","adãugat ieri","adãugat Duminicã","adãugat Luni","adãugat Marþi","adãugat Miercuri","adãugat Joi","adãugat Vineri","adãugat Sîmbãtã","rezultatul cãutãrii","cuvîntul de cãutare trebuie sa aibã cel puþin 2 caractere","nu am gãsit nimic","Fiºierul nu existã","Trebuie sã reintri în site","apasã aici","Pentru a continua","lista","vizualizeazã lista") rosetta.add "SQ", array("Albanian" & vbtab & "iso-8859-1" & vbtab & "Shqip","Shqip","Fajl-i","Fajl-at","Dosja","Dosjet","zgjedh të gjitha","asnjë","shto ne listë","largo nga lista","dëgjo të zgjedhurën","dëgjo të gjitha","Lista ështe e mbushur ##%","Kërko","Lajmëroheni ju lutem","Emri","Fjalëkalimi","Homepage-i","Konfigurimi","lidhur me #a","ftp faqja","Artistët","Albumet","Këngët","Zhanret","Emërtimet","Pyetjet ose Komentet","powered by #a version ##","Risi nga sot","Risi nga dje","Risi nga e Diela","Risi nga e Hëna","Risi nga e Marta","Risi nga e Mërkura","Risi nga e Enjtja","Risi nga e Premtja","Risi nga e Shtuna","Rezultatet e kërkimit","Termi që kërkoni duhet të ketë më së paku 2 shkronja","nuk u gjetë asnjë rezultat","Fajli nuk është gjendur","Do te duhej te ridrejtoheshit ne faqen","kliko këtu","për të vazhduar","Lista","shiqo Listën") rosetta.add "SL", array("Slovenian" & vbtab & "iso-8859-2" & vbtab & "Slovenscina","Sloven¹èina","datoteka","datotek","mapa","map","izberi vse","niè","dodaj na seznam","zbri¹i s seznama","predvajaj izbrano","predvajaj vse","seznam je ##% poln","i¹èi","prosim prijavi se","prijava","geslo","domaèa stran","preference","o #a","ftp server","izvajalci","albumi","skladbe","¾anr","zalo¾be","vpra¹anja ali pripombe","powered by #a version ##","novo danes","novo od vèeraj","novo od nedelje","novo od ponedeljka","novo od torka","novo od srede","novo od èetrtka","novo od petka","novo od sobote","i¹èi po zadetkih","iskani termin naj vsebuje vsaj 2 znaka","ni zadetkov","Datoteka ni najdena","Preusmerjeni bi morali biti na stran","klikni tukaj","Za nadaljevanje","seznam","poglej seznam") rosetta.add "SK", array("Slovak" & vbtab & "iso-8859-2" & vbtab & "Slovensky","Slovensky","súbor","súbory","zlo¾ka","zlo¾ky","vybra» v¹etko","zma¾ výber","prida» do playlistu","odstráni» z playlistu","prehra» vybrané","prehra» v¹etko","playlist je z ##% plný","hµada» v","prihláste sa prosím","meno","heslo","titulná strana","nastavenie","o Andromede","ftp server","umelci","albumi","piesne","¾ánre","labely","otázky alebo komentáre","pou¾íva Andromedu verzie ##","novinka dnes","novinka vèera","novinka Nedele","novinka Pondelka","novinka Utorka","novinka Stredy","novinka ©tvrtka","novinka Piatku","novinka Soboty","výsledky vyhµadávania","zadejte aspoò 2 znaky","niè nenájdené","Súbor nenájdený","Budete presmerováný na","kliknite tu","Pokraèova»","playlist","prohliadnu» playlist") rosetta.add "SR", array("Serbian" & vbtab & "iso-8859-2" & vbtab & "Srpski","Srpski","fajl","fajla","direktorijum","direktorijuma","selektuj sve","ni¹ta","dodaj u listu","izbri¹i iz liste","slu¹aj selektovano","slu¹aj sve","lista je ##% puna","pretraga","molimo da se ulogujete","logovanje","¹ifra","glavna strana","pode¹avanja","#a","ftp strana","umetnici","albumi","pesme","¾anrovi","labele","pitanja ili komentari","powered by #a version ##","novi danas","novi juèe","novi Nedelja","novi Ponedeljak","novi Utorak","novi Sreda","novi Èetvrtak","novi Petak","novi Subota","rezultati pretrage","morate uneti najmanje 2 slova za pretragu","ni¹ta nije pronaðeno","Fajl nije pronaðen","Trebalo bi da budete poslani na sajt","kliknite ovde","Da nastavite","lista","pogledaj listu") rosetta.add "FI", array("Finnish" & vbtab & "iso-8859-1" & vbtab & "Suomi","Suomi","tiedosto","tiedostoa","kansio","kansiota","valitse kaikki","poista valinnat","lisää soittolistaan","poista soittolistasta","soita valitut","soita kaikki","soittolistan tilasta on käytössä ##%","etsi palvelimelta","kirjaudu järjestelmään","käyttäjätunnus","salasana","kotisivu","asetukset","tietoja #a:sta","ftp-palvelin","artistit","albumit","kappaleet","musiikkityylit","levy-yhtiöt","kysymykset tai kommentit","järjestelmä on toteutettu #a versiolla ##","uusi tänään","uusi eilen","uusi sunnuntai","uusi maanantai","uusi tiistai","uusi keskiviikko","uusi torstai","uusi perjantai","uusi lauantai","haun tulokset","hakusanan tulee olla vähintään 2 kirjaimen pituinen","hakusanalla ei löytynyt tiedostoja","Tiedostoa ei löydy","Selaimesi pitäisi ohjautua uudelle sivulle","paina tästä","Jatkaaksesi","soittolista","näytä soittolista") rosetta.add "SV", array("Swedish" & vbtab & "iso-8859-1" & vbtab & "Svenska","Svenska","fil","filer","mapp","mappar","välj alla","inga","lägg till spellistan","radera från spellistan","spela urvalet","spela alla","spellistan är till ##% full","sök i","Logga in tack","loggin","lösenord","hemsida","inställningar","om #a","ftp adress","artist","album","sånger","kategori","skivmärke","frågor och kommentarer","skapad av #a version ##","ny idag","ny igår","ny Söndag","ny Måndag","ny Tisdag","ny Onsdag","ny Torsdag","ny Fredag","ny Lördag","sök resultat","sökordet måste vara minst 2 tecken","inga träffar funna","inga filer funna","du blir vidarbefodrad till sidan","tryck här","fortsätt","spellistan","visa spellista") rosetta.add "TR", array("Turkish" & vbtab & "iso-8859-9" & vbtab & "Türkçe","Türkçe","dosya","dosya","dizin","dizin","hepsini seç","hiçbiri","listeye ekle","listeden çýkar","seçimi çal","hepsini çal","liste ##% dolu","ara","lütfen giriþ yapýn","kullanýcý","þifre","ana sayfa","ayarlar","#a hakkýnda","ftp site","artistler","albümler","þarkýlar","türler","etiketler","sorular veya öneriler","destekleyen; #a versiyon ##","yeni bugün","yeni dün","yeni Pazar","yeni Pazartesi","yeni Salý","yeni Çarþamba","yeni Perþembe","yeni Cuma","yeni Cumartesi","arama sonuçlarý","arama kriteri en az 2 karakterli olmalý","aranan kayýt bulunamadý","Dosya bulunamadý","Siteye gönderilebilirsiniz","buraya týklayýn","Devam için","liste","listeye gözat") rosetta.add "VI", array("Vietnamese" & vbtab & "UTF-8" & vbtab & "Viet Ngu","Việt Ngữ","Hồ sơ","Hồ sơ","Tập nhạc","Tập nhạc","Chọn tất cả","không","Thêm và danh sách","Xóa từ danh sách","Nghe bản nhạc","Nghe danh sách nhạc","Danh sách nhạc ##% đầy","Tìm","Xin đăng nhập","Đăng nhập","Mật mã","Trang chủ","Ý thích","Vài nét về #a","Thư viện FTP","Ca sĩ","albums","bản nhạc","thể loại nhạc","trung tâm","Câu hỏi / ý kiến","Thiết kế bởi #a ##","Bài mới hôm nay","Bài mới hôm qua","Bài mới Chủ nhật","Bài mới thứ Hai","Bài mới thứ Ba","Bài mới thứ Tư","Bài mới thứ Năm","Bài mới thứ Sáu","Bài mới thứ Bảy","Dò tìm nhạc","Từ tìm kiếm phải hơn 2 chữ","Không tìm thấy","Tìm không thấy bản nhạc","Bạn sẽ được đưa vào thư viện","Bấm vào đây","Tiếp tục","Danh sách nhạc","Coi danh sách nhạc") loadConstants loadDefaults loadPrefs if andromedaPrefs("timeout") <> "" then Server.ScriptTimeout = andromedaPrefs("timeout") end if if andromedaPrefs("rootName") = "" then andromedaPrefs("rootName") = displayName(andromedaPrefs("mediaPhysicalPath")) end if if andromedaPrefs("rootName") = "" then andromedaPrefs("rootName") = "root" if ((andromedaPrefs("coreInclude") <> "") and (ScriptEngineMajorVersion >= 5)) then server.execute(andromedaPrefs("coreInclude")) end if fttmpa = split(lcase(andromedaPrefs("audioFileTypes")),",") for fti = 0 to ubound(fttmpa) fileTypes.add fttmpa(fti), "audio" next fttmpa = split(lcase(andromedaPrefs("videoFileTypes")),",") for fti = 0 to ubound(fttmpa) fileTypes.add fttmpa(fti), "video" next fttmpa = split(lcase(andromedaPrefs("playlistFileTypes")),",") for fti = 0 to ubound(fttmpa) fileTypes.add fttmpa(fti), "playlist" next fttmpa = split(andromedaPrefs("folderSkipNames"),",") for fti = 0 to ubound(fttmpa) folderSkipNames.add fttmpa(fti), true next if andromedaConst(ca2s(array(101,100,105,116,105,111,110))) <> ca2s(array(69,86,65,76,85,65,84,73,79,78,32,67,79,80,89)) then response.end loadSkin loadLogons totalrowcount = 0 filerowcount = 0 plrpre = "" if andromedaPrefs("permitTranslation") then if request("t") <> "" then currentLanguage = request("t") else if request.cookies("clang") <> "" then currentLanguage = request.cookies("clang") else currentLanguage = andromedaPrefs("defaultLanguage") end if end if else currentLanguage = andromedaPrefs("defaultLanguage") end if clangCodes = split(rosetta(currentLanguage)(0),vbtab) if not(andromedaPrefs("requireLogon")) or andromedaConst("localUser") then permitAccess = true else cklogon = request.cookies("logon") ckpassword = request.cookies("password") if andromedaLogons.exists(cklogon) then permitAccess = ((andromedaLogons(cklogon) = ckpassword) and (request("q") <> "l")) else permitAccess = false end if end if if ((andromedaConst(ca2s(array(97,112,112,97,117,116,104))) <> ca2s(array(83,99,111,116,116,32,77,97,116,116,104,101,119,115))) or (andromedaConst(ca2s(array(97,112,112,99,111,114,112))) <> ca2s(array(84,117,114,110,115,116,121,108,101))) or (andromedaConst(ca2s(array(97,112,112,110,97,109,101))) <> ca2s(array(65,110,100,114,111,109,101,100,97))) or (andromedaConst(ca2s(array(97,112,112,114,111,111,116))) <> ca2s(array(104,116,116,112,58,47,47,119,119,119,46,116,117,114,110,115,116,121,108,101,46,99,111,109,47,97,110,100,114,111,109,101,100,97)))) then response.end if not(permitAccess) then if request("q") = "l" then cklogon = request("flogon") ckpassword = request("fpassword") if andromedaLogons.exists(cklogon) then permitAccess2 = (andromedaLogons(cklogon) = ckpassword) else permitAccess2 = false end if if not(permitAccess2) then if ((request("t") <> "") and andromedaPrefs("permitTranslation")) then response.cookies("clang") = currentLanguage andromedaHeader(trans(14)) %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>" height=220>
<% if andromedaPrefs("logonMessage") <> "" then %><% = andromedaPrefs("logonMessage") %><% addvpad 12 end if %>">>
" width=100%>
"><% = trans(14) %>
<% colorbar "100%","1",andromedaPrefs("menubarColor") %>" width=100%>
"><% = trans(15) %>:" style="font-size:9pt;">
"><% = trans(16) %>:
<% ipad 4,1 %><% imagetag "g","f","" %><% ipad 2,1 %>
<% colorbars andromedaPrefs("bodyFgDiv") andromedaFooter else response.cookies("logon") = request("flogon") response.cookies("password") = request("fpassword") andromedaHeaderCore trans(41), true %>" bgcolor="<% = andromedaPrefs("bodyFgColor") %>" height=220>
<% if andromedaPrefs("disableHTMLheaders") then %>><% end if %><% = trans(41) & ". " & trans(43) & ", " %><% if andromedaPrefs("disableHTMLheaders") then %> style="color:<% = andromedaPrefs("bodyLinkColor") %>">"><% = trans(42) %><% else %>><% = trans(42) %><% end if %>.<% if andromedaPrefs("disableHTMLheaders") then %><% end if %>
<% colorbars andromedaPrefs("bodyFgDiv") andromedaFooter end if else if ((request("t") <> "") and andromedaPrefs("permitTranslation")) then response.redirect(andrlink("?q=l&t=" & request("t"),"")) else response.redirect(andrlink("?q=l","")) end if end if else if ((request("t") <> "") and andromedaPrefs("permitTranslation")) then response.cookies("clang") = currentLanguage ckplaylist = readPlaylist("playlist") if request("q") = "f" and vpath(request("f")) then showfolder request("f") elseif request("q") = "p" and vpath(request("p")) and andromedaPrefs("playLinks") then playFolder request("p") elseif request("q") = "m" and vpath(request("m")) and andromedaPrefs("playLinks") then playPrepList "i" & request("m") & vbcrlf elseif request("q") = "e" and andromedaConst("localUser") and vpath(request("e")) then editNote request("e") elseif request("q") = "v" and andromedaConst("localUser") and vpath(request("v")) then saveNote request("v"), request("n") elseif request("q") = "r" and andromedaConst("localUser") then editPrefs elseif request("q") = "b" and andromedaConst("localUser") then savePrefs elseif request("q") = "s" and andromedaPrefs("permitSearch") then search request("s"),request("sm") elseif request("q") = "y" and andromedaPrefs("permitPlaylists") then select case request("y") case "p" if andromedaPrefs("playLinks") then playPrepList ckplaylist case trans(10) if andromedaPrefs("playLinks") then if request("m") = 1 then for each xx in request("f") pftmp = pftmp & xx & vbcrlf next playPrepList pftmp else selectlist = "" for each x in request("f") selectlist = selectlist & "[" & x & "]" next xtmpa = split(ckplaylist,vbcrlf) for xi = 0 to ubound(xtmpa) -1 if instr(selectlist,"[" & xi + 1 & "]") <> 0 then xtmp = xtmp & xtmpa(xi) & vbcrlf end if next playPrepList xtmp end if end if case trans(8) xtmp = ckplaylist for each xx in request("f") if vpath(mid(xx,2)) then xtmp = xtmp & xx & vbcrlf next xtmp = left(xtmp,andromedaPrefs("cBlockSize") * andromedaPrefs("cBlockCount")) xtmp = left(xtmp,instrrev(xtmp, vbcrlf)+1) ckplaylist = xtmp writePlaylist "playlist" displayPlaylist "playlist" case trans(45) displayPlaylist "playlist" case trans(9) removelist = "" for each x in request("f") removelist = removelist & "[" & x & "]" next xtmpa = split(ckplaylist,vbcrlf) for xi = 0 to ubound(xtmpa) -1 if instr(removelist,"[" & xi + 1 & "]") = 0 then xtmp = xtmp & xtmpa(xi) & vbcrlf end if next ckplaylist = xtmp writePlaylist "playlist" displayPlaylist "playlist" case else showfolder "" end select else showfolder "" end if end if set rosetta = nothing set andromedaLogons = nothing set folderSkipNames = nothing set fileTypes = nothing set andromedaPrefs = nothing set andromedaConst = nothing end if set local_fs = nothing %>