<% Dim objFSO, objFile, objTxtStream, strText 'Response.Write Application("CDDataPath") & "Inf.txt" 'Response.End Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(Application("CDDataPath") & "Inf.txt") Set objTxtStream = objFile.OpenAsTextStream(1,0) Dim strFileText If Not objTxtStream.AtEndOfStream Then Dim strTemp strTemp = objTxtStream.ReadAll 'strFileText = Replace(Left(strTemp,InstrRev(strTemp,Chr(13))),Chr(13),"
") strFileText = Replace(strTemp,Chr(13),"
") objTxtStream.Close() strTemp = "
")-3) & Chr(34) & ">" & Right(strFileText,Len(strFileText)-InstrRev(strFileText,"
")-3) & "" strFileText = Left(strFileText,InstrRev(strFileText,"
")-1) End If Dim strStaff Set objFile = objFSO.GetFile(Application("CDDataPath") & "STF.txt") Set objTxtStream = objFile.OpenAsTextStream(1,0) If Not objTxtStream.AtEndOfStream Then strStaff = objTxtStream.ReadAll End If %>
 
<% Dim objFSO2, objFile2, objTxtStream2, strText2 'Response.Write Application("CDDataPath") & "Inf.txt" 'Response.End Set objFSO2 = Server.CreateObject("Scripting.FileSystemObject") Set objFile2 = objFSO2.GetFile(Application("CDDataPath") & "Inf.txt") Set objTxtStream2 = objFile2.OpenAsTextStream(1,0) Dim strFileText2, aFields2, strMin2 If Not objTxtStream2.AtEndOfStream Then strFileText2 = objTxtStream2.ReadAll aFields2 = Split(strFileText2, Chr(13)) strMin2 = aFields2(1) End If Set objFSO2 = Nothing Set objFile2 = Nothing Set objTxtStream2 = Nothing %>
::: BCC YOUTH ONLINE

Bible Christian Church
BCC Youth
1404 E. Mary
Garden City, KS 67846
620.276.8356
www.bccyouth.com
kento@odsgc.net

<% = addBreaks(strStaff) %> Kent Wagner (High School Youth Minister)

<% Set objFSO = Nothing Set objFile = Nothing Set objTxtStream = Nothing %> -