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.

<% dim strconn strTextFileName = "files/schedule.txt" 'response.write strTextFileName strTextFilePath = Server.MapPath(strTextFileName) 'strTextFilePath = strTextFilePath & strTextFileName 'response.write strTextFilePath Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile((strTextFilePath), 1) sLine = f.readLine 'read first line with div tag i=0 Do Until f.AtEndOfStream Redim Preserve arrFileLines(i) sLine = f.readLine If (InStr(sLine,""))=1 Then 'check if line has Else arrFileLines(i)=sLine i = i + 1 End If Loop For l = 0 to (Ubound(arrFileLines)-1) ' 'response.write(arrFileLines(l)) ' ' Count = Count + 1 ' 'response.write strFullLine & "
" arrSplit=split(arrFileLines(l), "|") strDate = arrSplit(0) strType = arrSplit(1) strPlace = arrSplit(2) strMusic = arrSplit(3) response.write "" Next %>
2021 Schedule

     
" & strDate & "" & strType & "" & strPlace & "" & strMusic & "