Random MIDI background music

[wengang]

What I did:

<%
Randomize
tSong = Int(RND*41) + 1
strSong = "mdi\" & cstr(tSong) & ".mid" %>
<bgsound src="<%=strSong%>" loop="-1">


I guess you see what it does

Instead, I'd like to have the song play through once only and then randomly start another one.
Irealize it probably wouldn't still be the bgsound, but maybe a javascript that starts on page load?

Thanks all.
Wengang

[Danial]

Even though I hate when sites use bg sound and user dont have the option to turn the off. I guess you have a good reason. Have fun

Danial

<%
    Dim strPlayed
    Dim rndValue
    Dim n
       
    rndValue = GetRandomValue
    
    'these are the songs number that has already been played
    
    'use cookie or session variable to store number of the already played songs
    strPlayed = "1,19,23,32,40"
    
    n = Split(strPlayed, ",")
    
    'No more number to generate
    If UBound(n) >= 40 Then
        strPlayed = ""
        Exit Sub
    End If
    
 
    Do
        rndValue = GetRandomValue
        If Played(rndValue) = False Then
            Exit Do
        End If
    Loop
        
    If strPlayed = "" Then
        strPlayed = rndValue
    Else
        strPlayed = strPlayed & "," & rndValue
    End If
    
    strSong = "mdi\" & CStr(rndValue) & ".mid"
    
 
Function Played(value)
    Dim b
    Dim tmp
    Dim i
    
    tmp = False
    
    b = Split(strPlayed, ",")
    
    
    For i = 0 To UBound(b)
        If CInt(value) = CInt(b(i)) Then
            tmp = True
        End If
    Next
    
    Played = tmp
       
End Function
 
Function GetRandomValue()
    GetRandomValue = Int(Rnd * 41) + 1
End Function

[wengang]

Thanks.

I promise to include a button for turning off the sound.

[Danial]

Originally posted by wengang
Thanks.

I promise to include a button for turning off the sound.

Thank you

Forgot to add the randomize line

Function GetRandomValue()
    Randomize Timer
    GetRandomValue = Int(Rnd * 41) + 1
End Function

Note that i have only tested the code in VB and works fine, havent tested it on ASP, let me know if you run inot any problem.