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("<bgsound src=./songs/"&Request("play")&" loop=-1>")
END IF
%>
</head>
<body>
<table width="500" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20"> </td>
<td height="20" colspan="2" align="left" valign="top">
<font size="4" color="#FF0000" face="Cooper BlkIt BT">Juke-Boxen</font><font size="4" color="#FF0000" face="Cooper BlkIt BT">....</font> <span class="style1"> </span> </td>
<td height="20"> </td>
</tr>
<tr align="center" valign="top">
<td width="10" height="9"><img src="images/tb_top_l.gif" width="10" height="9"></td>
<td height="9" colspan="2" background="images/tb_top_m.gif"><img src="images/tb_top_m.gif" width="1" height="9"></td>
<td width="10" height="9"><img src="images/tb_top_r.gif" width="10" height="9"></td>
</tr>
<tr valign="top">
<td width="10" height="100%" align="center" valign="middle" background="images/tb_mid_l.gif"><img src="images/tb_mid_l.gif" width="10" height="1"></td>
<td height="100%" colspan="2">
<br>
<table border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#CCCCCC"><td colspan="3"><font color="#000080"><strong>Välj Låt:</strong></font></td></tr>
<%
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
%>
<tr>
<td height="18" <%=bg%>><%=filefound.Name%></td>
<td width="80" height="18" align="center" valign="middle" <%=bg%>><A HREF="?play=<%=filefound.Name%>" target="_self"><IMG src="images/icon_listen.gif" alt="Listen" width="16" height="16" border="0" align="absmiddle">
<font color="#000080">Spela</font></a></td>
</tr>
<% Next %>
<tr bgcolor="#CCCCCC"><td height="1" colspan="3"></td>
</tr>
</table>
<br><br> </td>
<td width="10" height="100%" align="center" valign="middle" background="images/tb_mid_r.gif"><img src="images/tb_mid_r.gif" width="10" height="1"></td>
</tr>
<tr align="center" valign="bottom" >
<td height="25" align="center"><img src="images/tb_botbar_left.gif" width="10" height="25"></td>
<td width="366" height="25" align="left" valign="middle" background="images/tb_botbar_mid.gif">
<table width="100%" height="18" border="0" cellpadding="0" cellspacing="0" background="images/nowplaying_mid.gif">
<tr>
<td width="4"></td>
<td width="2"><img src="images/nowplaying_left.gif" width="2" height="18"></td>
<td width="100%" background="images/nowplaying_middle.gif" class="style1" style=""><span class="style2"> <font color="#000080">Spelas
Nu:</font></span>
<%IF Request("play")<>"none" THEN Response.Write(Request("play")) END IF%></td>
<td width="2"><img src="images/nowplaying_right.gif" width="2" height="18"></td>
</tr>
</table>
</td>
<td width="114" height="25" align="center" valign="middle" background="images/tb_botbar_mid.gif">
<a href="?play=none" target="_self"><IMG src="images/button_stop.gif" alt="STOP" width="52" height="18" border="0" align="absmiddle"></a></td>
<td height="25" align="center"><img src="images/tb_botbar_right.gif" width="10" height="25"></td>
</tr>
<tr align="center" valign="bottom">
<td colspan="4"></td>
</tr>
</table>
</body>
</html>