Home
News
About the Band
Song List
Schedule
Gallery
Links
Contact Us

 

 

Contact Information:
Tel: 508-776-3947
P.O. Box 184
Barnstable Ma. 02630

Email: jeffloweband@aol.com with questions or comments about this web site.

A    B    C    D    E    F    G    H    I    J    K    L    M    N    O    P    Q    R    S    T    U    V    W    X    Y    Z
General Songs Standard Songs More Jazz Artists All Songs

<% dim strconn,strTextFileName,strTextFilePath dim strArtistName,strArtistLetter,strArtistLetter2,strType,strArtist,strSongTitle dim sSort,sType strTextFileName = "files/playlist-complete.txt" 'response.write strTextFileName sSort=request.QueryString("id") sType=request.QueryString("type") If sType="" Then sType="general" response.write sType &"
" End If strTextFilePath = Server.MapPath(strTextFileName) Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile((strTextFilePath), 1) strFullLine = f.readLine strArtistName = "" do while f.AtEndOfStream = false ' Count = Count + 1 strFullLine = f.readLine response.write strFullLine&"
" If InStr(strFullLine,"

  • ") = 0 Then If InStr(strFullLine,"") = 0 Then 'response.write strFullLine & "
    " arrSplit=split(strFullLine, ",") strArtistLetter = replace(arrSplit(0),vbTab,"") strArtistLetter2 = arrSplit(1) strType = arrSplit(2) strArtist = arrSplit(3) strSongTitle = arrSplit(4) if UCase(sSort) <> "" then if UCase(sSort) = UCase(strArtistLetter) OR UCase(sSort) = UCase(strArtistLetter2)then if strArtist <> "" then if strSongTitle <> "" then response.write "
    "&strArtist&"
    " response.write strSongTitle&"
    " else response.write "
    "&strArtist&"" end if else response.write strSongTitle&"
    " End if else 'response.write """" & replace(strArtistLetter,vbTab,"")&""", "&strArtistLetter2&", "&strType&", "&strArtist&", "&strSongTitle & "
    " 'response.write "
    " & strArtist & "
    " 'response.write strSongTitle & " -
    " 'strArtistName = strArtist end if elseif UCase(sType) <> "" Then if UCase(sType) = UCase(strType) then if strArtist <> "" then if strSongTitle <> "" then response.write "
    "&strArtist&"
    " response.write strSongTitle&"
    " else response.write "
    "&strArtist&"" end if else response.write strSongTitle&"
    " End if 'response.write strArtistLetter&", "&strArtistLetter2&", "&strType&", "&strArtist&", "&strSongTitle & "
    " else 'response.write strArtistLetter&", "&strArtistLetter2&", "&strType&", "&strArtist&", "&strSongTitle & "
    " 'response.write "
    " & strArtist & "
    " 'response.write strSongTitle & " -
    " 'strArtistName = strArtist end if else if strArtist <> "" then if strSongTitle <> "" then response.write "
    "&strArtist&"
    " response.write strSongTitle&"
    " else response.write "
    "&strArtist&"" end if else response.write strSongTitle&"
    " End if 'response.write "
    " & strArtist & "
    " 'response.write strSongTitle & " -
    " 'strArtistName = strArtist end if End if End if loop %>