<% Dim objFSO, objFile, objTxtStream, strText Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(Application("CDDataPath") & "PS01.txt") Set objTxtStream = objFile.OpenAsTextStream(1,0) If Not objTxtStream.AtEndOfStream Then strText = 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
   
  At BCC Youth we want you to know Jesus in a way that impacts all of your life. Everything we do is centered around this one idea... We try to accomplish this goal by creating events and trips that allow you to experience God through different avenues. Whether it is through writing a letter or singing a song, memorizing verses from the bible or spending time silently praying, we believe that YOU practicing the things that draw YOU close to God, will in the end cause you to have a relationship with God that is passionate and well informed.
<% Set objFSO = Nothing Set objFile = Nothing Set objTxtStream = Nothing %> -