<%
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
%>
Programs
<%
Dim objFSO, objFile, objTxtStream, strName, strDesc
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(Application("CDDataPath") & "PN0" & 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") & "PD0" & intNum & ".txt")
Set objTxtStream = objFile.OpenAsTextStream(1,0)
If Not objTxtStream.AtEndOfStream Then
strDesc = objTxtStream.ReadAll
End If
%>
Please select a number to learn about some of the programs at
Moffett Road Baptist Church
