<% Dim intNum, str1, str2, str3, str4 str1 = "1" str2 = "1" str3 = "1" str4 = "1" If Request.Querystring("num") = "" Then intNum = 1 str1 = "2" Else intNum = Request.Querystring("num") Select Case Request.Querystring("num") Case "1" str1 = "2" Case "2" str2 = "2" Case "3" str3 = "2" Case "4" str4 = "2" End Select End If %> Programs <% Dim objFSO, objFile, objTxtStream, strName, strDesc Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(Application("CDDataPath") & "PN0" & intNum & ".txt") Set objTxtStream = objFile.OpenAsTextStream(1,0) If Not objTxtStream.AtEndOfStream Then strName = objTxtStream.ReadAll End If objTxtStream.close() Set objFile = objFSO.GetFile(Application("CDDataPath") & "PD0" & intNum & ".txt") Set objTxtStream = objFile.OpenAsTextStream(1,0) If Not objTxtStream.AtEndOfStream Then strDesc = 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





Wednesday Night Youth Group <% = addBreaks(strName) %>

(Wednesday Nights from 7:00-8:20)– Christ to Life impact is the goal for this program. Every Wednesday Night students are challenged to take the principles taught in scripture and live them out in their lives. <% = addBreaks(strDesc) %>

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