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