Here's Eriksson's code:
Code: Select all
Function AutoPlaylists(intID)
AutoPlaylists = ""
If Not intID = "-1" Then
Dim sql : sql = "SELECT PlaylistName FROM Playlists WHERE IsAutoPlaylist = 1 ORDER BY PlaylistName"
Dim dbit : Set dbit = SDB.Database.OpenSQL(sql)
If Not dbit.EOF Then
While Not dbit.EOF
Set PList = SDB.PlaylistByTitle(dbit.StringByIndex(0))
Set List = Plist.Tracks
For i = 0 To List.Count - 1
If List.Item(i).ID = intID Then
AutoPlaylists = AutoPlaylists & "<span class=""autoplaylists"">" & PList.Title & "</span><br />"
End If
Next
dbit.Next
Wend
End If
Set dbit = Nothing
End If
End Functionhttp://www.ventismedia.com/mantis/view.php?id=6412
