<% 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 %> Events <% Dim objFSO, objFile, objTxtStream, strName, strDate, strDesc Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(Application("CDDataPath") & "EN0" & 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") & "ET0" & intNum & ".txt") Set objTxtStream = objFile.OpenAsTextStream(1,0) If Not objTxtStream.AtEndOfStream Then strDate = objTxtStream.ReadAll End If objTxtStream.close() Set objFile = objFSO.GetFile(Application("CDDataPath") & "ED0" & intNum & ".txt") Set objTxtStream = objFile.OpenAsTextStream(1,0) If Not objTxtStream.AtEndOfStream Then strDesc = objTxtStream.ReadAll End If %>
 

Select one of the numbers above to learn about some of the College Ministry's exciting events 

at Moffett Road Baptist Church

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