--- title: "Jukebox" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/163647-jukebox" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Biasse" published: "2007-08-20T11:30:22.000Z" updated: "2007-08-20T11:30:22.000Z" replies: 0 views: 192 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/163647-jukebox" --- # Jukebox ## #1 — Biasse, 2007-08-20T11:30Z Ska försöka få in en jukebox på en sida och den jag hittat spelar samma låt om och om igen. Kan nån visa hur man gör för att ta nästa låt på listan istället när den är slut? Blir lite mycket kod men det är bättre än för lite :) ``` <% IF Request("play")<>"none" THEN Response.Write("") END IF %>

Juke-Boxen....

<% i=0 Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject") Set MyFiles=MyDirectory.GetFolder(Server.MapPath("./songs/")) For Each filefound In MyFiles.files IF i=0 THEN bg="bgcolor=#F4F4F4" i=1 ELSE bg="bgcolor=#FFFFFF" i=0 END IF %> <% Next %>

Välj Låt:
><%=filefound.Name%>	> Spela

Spelas Nu: <%IF Request("play")<>"none" THEN Response.Write(Request("play")) END IF%>

``` Permalänk: https://www.webforum.nu/p/163647 --- Tråden på webben: https://www.webforum.nu/amne/asp/163647-jukebox