<% Dim intNum, str1, str2, str3, str4, str5, str6 str1 = "1" str2 = "1" str3 = "1" str4 = "1" str5 = "1" str6 = "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" Case "5" str5 = "2" Case "6" str6 = "2" End Select End If %> FAQ <% Dim objFSO, objFile, objTxtStream, strQues, strAns Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(Application("CDDataPath") & "Q0" & intNum & ".txt") Set objTxtStream = objFile.OpenAsTextStream(1,0) If Not objTxtStream.AtEndOfStream Then strQues = objTxtStream.ReadAll End If objTxtStream.close() Set objFile = objFSO.GetFile(Application("CDDataPath") & "A0" & intNum & ".txt") Set objTxtStream = objFile.OpenAsTextStream(1,0) If Not objTxtStream.AtEndOfStream Then strAns = 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

 
  How do I get involved?
  That's easy enough... All you have to do is come. We have students and adults who love to meet new people! If you come to one of our programs I guarantee that you will be made to feel welcome! <% = addBreaks(strAns) %> <% 'Dim intCount 'intCount = 1 'While Len(strAns) > 0 ' Response.Write Left(strAns,1) & " = " ' Response.Write Asc(Left(strAns,1)) & "
" ' strAns = Right(strAns,Len(strAns)-1) 'Wend %>

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