<% Dim objFSO, objFile, objTxtStream, strText 'Response.Write Application("CDDataPath") & "Inf.txt" 'Response.End Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(Application("CDDataPath") & "Inf.txt") Set objTxtStream = objFile.OpenAsTextStream(1,0) Dim strFileText If Not objTxtStream.AtEndOfStream Then Dim strTemp strTemp = objTxtStream.ReadAll 'strFileText = Replace(Left(strTemp,InstrRev(strTemp,Chr(13))),Chr(13),"
") strFileText = Replace(strTemp,Chr(13),"
") objTxtStream.Close() strTemp = "
")-3) & Chr(34) & ">" & Right(strFileText,Len(strFileText)-InstrRev(strFileText,"
")-3) & "" strFileText = Left(strFileText,InstrRev(strFileText,"
")-1) End If Dim strStaff Set objFile = objFSO.GetFile(Application("CDDataPath") & "STF.txt") Set objTxtStream = objFile.OpenAsTextStream(1,0) If Not objTxtStream.AtEndOfStream Then strStaff = objTxtStream.ReadAll End If %>

 

Moffett Road Baptist Church 

College Ministry

5555 Moffett Road 

Mobile, AL 36618

(251) 342-0563

FAX: (251) 342-0625

Email: info@mrbcstudents.net

<% = addBreaks(strFileText) & strTemp %>

Ryan King Youth Intern ryan@mrbcstudents.net
   

Home | Purpose | Programs | Photos | FAQ | Contact | Info & Forms

for more information contact:

Moffett Road Baptist Church College Ministry

5555 Moffett Road - Mobile, AL 36618

(251) 342-0563

info@mrbcstudents.net

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