PEARL ROAD UNITED METHODIST CHURCH
CONTACT INFORMATION
E-mail the Pastor at prumc@juno.com
E-mail the Secretary at pearlumc@yahoo.com
E-mail the Webmaster at perlrd@gbgmchurches.gbgm-umc.org
Church Office Phone: (216) 661-5642
Church Office FAX: (216) 661-5648
<%
Function GetRandomNumber(LowerBound,UpperBound)
Randomize()
GetRandomNumber = Int((upperbound-lowerbound+1) * Rnd + lowerbound)
End Function
Set FileStreamObject = CreateObject("Scripting.FileSystemObject")
Set ReadStream = FileStreamObject.OpenTextFile (Server.MapPath ("scripture") & "\scripture.txt", 1)
Dim VerseNumber
Dim ReadCount
Dim Verse
VerseNumber = GetRandomNumber (1,35)
For ReadCount = 1 to VerseNumber
Verse=ReadStream.Readline
Next
Response.Write Verse
Set ReadStream=Nothing
%>This
page has been visited times since March 4, 2001.