$db->open("SELECT * FROM songlist $where ORDER BY date_added ", $limit, $start);
$db->open("SELECT * FROM songlist WHERE songtype='S' OR songtype='C' AND status=0 AND artist = '". $song["artist"]."' AND genre = '".$song["genre"]."' ORDER BY rand() LIMIT 10 ");
var P : TPlayer; var Song : TSongInfo; var OldTime : DateTime; OldTime := Now; PAL.Loop := True; PAL.WaitForTime('+00:30:00'); P := SoundFX; if P <> nil then If (OldTime>T['07:00:00']) AND (OldTime<=T['00:00:00']) Then begin Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules); if Song <> nil then begin P.QueueSong(Song); // P.Play; end; end;