<% 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

Christmas Caroling

Thanks to Alex Munoz for taking the pictures...

 
.