<% Response.Expires = -1 'asp altijd opnieuw van de server laten komen Response.Buffer = true 'asp in een keer laten zien ' ------------------------------------------------------------------------------------------------------------------------------------ ' 19-01-2008 Nieuwbouw ' ------------------------------------------------------------------------------------------------------------------------------------ Dim Item, i, j Dim fso, ts dim allstates, tempinput, maxcounter, thisstate, counter dim outputfile dim objFSO1 dim objFSO2 dim mp3(300) dim XMLinhoud Session("HOMEDIRECTORY") = "c:\domains\martinzonnenberg.nl\subdomeinen\marjolein\wwwroot\" If Request.Querystring("albumID") > " " then Session("mp3reeks") = "" ' ======================================================= ' DIT ZIJN DE MEEGEGEVEN PARAMETERS Session("albumID") = Request.Querystring("albumID") Session("pictureID") = Request.Querystring("pictureID") ' ======================================================= Session("laagstevolgnummerFB") = 999999 Session("hoogstevolgnummerFB") = 0 teller2 = 0 path = Session("HOMEDIRECTORY") & "beluisteren\" path = path & Session("albumID") ' Response.write path & "
" ListFolderContents(path) SUB ListFolderContents(path) dim fs, folder, file, item, url set fs = Server.CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) for each item in folder.Files waarde = Lcase(right(item.Name, 4)) if waarde = ".mp3" then teller2 = teller2 + 1 if Session("mp3reeks") > " " then Session("mp3reeks") = Session("mp3reeks") & ";" Session("mp3reeks") = Session("mp3reeks") & item.Name if Session("laagstevolgnummerFB") > teller2 then Session("laagstevolgnummerFB") = teller2 Session("hoogstevolgnummerFB") = teller2 end if next END SUB end if if Session("albumID") = "" then Response.end end if XMLinhoud = "" XMLinhoud = XMLinhoud & "" & vbcrlf XMLinhoud = XMLinhoud & "" & vbcrlf tempinput = Session("mp3reeks") allstates = split(tempinput,";") maxcounter = ubound(allstates) FOR counter= 0 TO maxcounter thisstate=allstates(counter) XMLinhoud = XMLinhoud & "" & vbcrlf XMLinhoud = XMLinhoud & "" & thisstate & "" & vbcrlf XMLinhoud = XMLinhoud & "" & vbcrlf XMLinhoud = XMLinhoud & "" & Session("albumID") & "/" & thisstate & "" & vbcrlf XMLinhoud = XMLinhoud & "" & vbcrlf & vbcrlf NEXT XMLinhoud = XMLinhoud & "" & vbcrlf XMLinhoud = XMLinhoud & "" & vbcrlf if Session("HOSTINGPROVIDER") = "INTERNEDSERVICESa" then Session("XMLinhoud") = XMLinhoud else ' -------------------------------------------------------------------------------------------------------------- ' MAAK XML BESTAND AAN ' -------------------------------------------------------------------------------------------------------------- waarde = "beluisteren\" outputfile = Session("HOMEDIRECTORY") & waarde & Session("albumID") & "v2.xml" Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject") Set objFSO2 = objFSO1.createtextfile(outputfile) objFSO2.WriteLine XMLinhoud objFSO2.close set objFSO2 = nothing set objFSO1 = nothing end if %> Beluisteren " rel="stylesheet" type="text/css">
<% if Session("HOSTINGPROVIDER") = "INTERNEDSERVICESa" AND Session("actueleautorisatieniveau") = 9 then Response.write "
" else %>

Get the Flash Player to see this player.

<% if Request("versie") = "RMKhome" then %> <% else %> <% end if %> <% end if %>