|
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. |
2021 Schedule
|
|
|
|
<%
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 "| " & strDate & " | " & strType & " | " & strPlace & " | " & strMusic & " | "
Next
%>
|
