<!-- <!-- <% Option Explicit %>
<% 
'****************************************************************************************
'**  Copyright Notice    
'**
'**  Web Wiz Guide Site Search Engine
'**                                                              
'**  Copyright 2001-2002 Bruce Corkhill All Rights Reserved.                                
'**
'**  This program is free software; you can modify (at your own risk) any part of it 
'**  under the terms of the License that accompanies this software and use it both 
'**  privately and commercially.
'**
'**  All copyright notices must remain in tacked in the scripts and the 
'**  outputted HTML.
'**
'**  You may use parts of this program in your own private work, but you may NOT
'**  redistribute, repackage, or sell the whole or any part of this program even 
'**  if it is modified or reverse engineered in whole or in part without express 
'**  permission from the author.
'**
'**  You may not pass the whole or any part of this application off as your own work.
'**   
'**  All links to Web Wiz Guide and powered by logo's must remain unchanged and in place
'**  and must remain visible when the pages are viewed unless permission is first granted
'**  by the copyright holder.
'**
'**  This program is distributed in the hope that it will be useful,
'**  but WITHOUT ANY WARRANTY; without even the implied warranty of
'**  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER 
'**  WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'**
'**  You should have received a copy of the License along with this program; 
'**  if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom.
'**    
'**
'**  No official support is available for this program but you may post support questions at: -
'**  http://www.webwizguide.info/forum
'**
'**  Support questions are NOT answered by e-mail ever!
'**
'**  For correspondence or non support questions contact: -
'**  info@webwizguide.com
'**
'**  or at: -
'**
'**  Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom
'**
'**************************************************************************************** 



'Set the response buffer to true
Response.Buffer = False

'Dimension global variables
Dim fsoObject			'File system object
Dim fldObject			'Folder object	
Dim sarySearchWord		'Array to hold the words to be searched for
Dim strSearchWords		'Holds the search words
Dim blnIsRoot			'Boolean set to true if it is the root dirctory
Dim strFileURL			'Holds the path to the file on the site
Dim strServerPath		'Holds the server path to this script
Dim intNumFilesShown		'Holds the number of files shown so far
Dim intTotalFilesSearched	'Holds the number of files searched
Dim intTotalFilesFound		'Holds the total matching files found
Dim intFileNum			'Holds the file number
Dim intPageLinkLoopCounter	'Loop counter to display links to the other result pages
Dim sarySearchResults(1000)	'Array holding the search results
Dim intDisplayResultsLoopCounter 'loop counter to diplay the results of the search
Dim intResultsArrayPosition	'Stores the array position of the array storing the results
Dim blnSearchResultsFound	'Set to true if search results are found
Dim strFilesTypesToSearch	'Holds the types of files to be searched
Dim strBarredFolders		'Holds the folders that you don't want searched
Dim strBarredFiles		'Holds the names of the files not to be searched
Dim blnEnglishLanguage		'Set to True if the user is using English




' -------------------------- Change the following line to the number of results you wish to have on each page ------------------------------------
Const intRecordsPerPage = 10 'change this to the number of results to show on each page

' --------------------- Place the names of the files types you want searching in the following line sepeararted by commas --------------------------
strFilesTypesToSearch = "htm,html,asp,shtml" 

' --------------------- Place the names of the folders you don't want searched in the following line spearated by commas --------------------------
strBarredFolders = "cgi_bin,_bin" 'cgi_bin and _bin have been put in here as examples, but you can put any folders in here

' ---------- Place the names of the files you don't want searched in the following line spearated by commas include the file extension -------------
strBarredFiles = "adminstation.htm,no_allowed.asp" 'adminstration.htm and not_allowed.asp have been put in as an examples

' -------------------- Set this boolean to False if you are not using an English language web site --------------------------------------------------
blnEnglishLanguage = True 'True = HTML Encode best for English sites \ False = no HTML Encoding best for non English sites

'-----------------------------------------------------------------------------------------------------------------------------------------------------


'Initalise variables
intTotalFilesSearched = 0

%> -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Search the Website</title>
<meta name="description" content="Search the web site for pages or information that you are after">
<!-- The Web Wiz Guide advanced site search engine is written and produced by Bruce Corkhill Š2001
     	If you want your own site search engine then goto http://www.webwizguide.info -->
<!-- Check the from is filled in correctly before submitting -->
<script  language="JavaScript">
<!--

<!-- Hide from older browsers...

//Preload search icon
var search_icon_off = new Image(); 
search_icon_off.src = "site_search_icon_off.gif";

//Check the form before submitting
function CheckForm () {

	//Check for a word to search
	if (document.frmSiteSearch.search.value==""){
		alert("Please enter at least one keyword to search");
		document.frmSiteSearch.search.focus();
		return false;
	}
	
	return true
}
// -->

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<link rel="stylesheet" href="..pagestyles.css" type="text/css">
<link href="pagestyles.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style14 {font-size: 12px}
.style15 {color: #990000}
.style16 {font-size: 14}
.style17 {font-weight: bold; color: #990000; text-decoration: none; font-family: verdana;}
-->
</style>
</head>
<body bgcolor="#003366" leftmargin="0" topmargin="0" text="#000000"  onLoad="MM_preloadImages('contents/home/38_logo-iskblr_over.gif')">
<table cellspacing="0" cellpadding="0" border="0" background="/contents/home/30_bluebg-copy.gif" width="100%" height="100%">
  <tr> 
    <td valign="top" align="center">
      <table border="0" cellspacing="0" cellpadding="0" align="center" width="750" bgcolor="#000000" mm_noconvert="TRUE">
        <tr> 
          <td width="245" align="center" bgcolor="#FFFFFF"><a href="/index.php" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('iskblr','','contents/home/38_logo-iskblr_over.gif',1)"><img name="iskblr" border="0" src="/contents/home/37_logo-iskblr.gif" width="174" height="65"></a></td>
          <td bgcolor="#FFFFFF">            <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="450" height="60">
              <param name=movie value="contents/home/33_ad.swf">
              <param name=quality value=high>
              <param name="SCALE" value="exactfit">
              <param name="BGCOLOR" value="#000000">
              <embed src="contents/home/33_ad.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="450" height="60" scale="exactfit" bgcolor="#000000">              </embed> 
          </object></td>
        </tr>
      </table>
      <table width="750"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFCC">
        <tr>
          <td width="726" height="12" align="center" background="images/bg_strip.jpg" bgcolor="#1C8888" class="smalltext">&nbsp;</td>
        </tr>
        <tr>
          <td height="2" align="center"><table width="100%" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="19" align="center" bgcolor="#FFFFCC"><a href="http://iskconbangalore.org/festivals/index.html" class="general_text_heading">Festivals</a></td>
              <td align="center" bgcolor="#FFFFCC"><span class="festivals-av">|</span></td>
              <td align="center" bgcolor="#FFFFCC"><a href="http://iskconbangalore.com" class="general_text_heading">E-seva</a></td>
              <td align="center" bgcolor="#FFFFCC"><span class="festivals-av">|</span></td>
              <td align="center" bgcolor="#FFFFCC"><a href="http://iskconbangalore.org/ces/index.html" class="general_text_heading">Cultural Education </a></td>
              <td bgcolor="#FFFFCC"><span class="festivals-av">|</span></td>
              <td align="center" bgcolor="#FFFFCC"><a href="http://iskconbangalore.org/guestbook" class="general_text_heading">Guest Book</a></td>
              <td bgcolor="#FFFFCC"><span class="festivals-av">|</span></td>
              <td align="center" bgcolor="#FFFFCC"><a href="http://www.iskconbangalore.org/contents/recipes/intro.php" class="general_text_heading">Prasadam Recipes</a></td>
              <td align="center" bgcolor="#FFFFCC"><span class="festivals-av">|</span></td>
              <td align="center" bgcolor="#FFFFCC"><a href="http://www.iskconbangalore.org/lists/?p=subscribe&amp;id=1" class="general_text_heading">Newsletter</a></td>
              <td align="center" bgcolor="#FFFFCC"><span class="festivals-av">|</span></td>
              <td align="center" bgcolor="#FFFFCC"><a href="http://www.iskconbangalore.org/contents/contactus/index.html" class="general_text_heading">Contact Us</a></td>
              <td align="center" bgcolor="#FFFFCC"><span class="festivals-av">|</span></td>
              <td align="center" bgcolor="#FFFFCC"><a href="http://iskconbangalore.org/jobs.html" class="general_text_heading">Jobs</a></td>
              <td align="center" bgcolor="#FFFFCC"><span class="festivals-av">|</span></td>
              <td align="center" bgcolor="#FFFFCC"><a href="http://www.iskconbangalore.org/mediaSpeak.htm" class="general_text_heading">&nbsp;MediaSpeak</a></td>
            </tr>
          </table>
          <img src="../contents/home/blk_dot.gif" width="100%" height="1" /></td>
        </tr>
      </table>
      <table border="1" cellspacing="0" cellpadding="4" align="center" bordercolor="#cccc99" mm_noconvert="TRUE" width="720" height="216">
        <tr> 
          <td valign="top" bgcolor="#FFFFFF"><table border="0" cellspacing="0" cellpadding="0">
            <tr> 
              <td valign="top" align="center"> 
                <table border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td valign="top" bgcolor="#FFFFFF">&nbsp;</td>
                    </tr>
                  <tr> 
                    <td valign="top"> 
                      <table border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td bgcolor="#FFFFFF" valign="top" align="center"> 
                            <table width="736" border="0" cellspacing="0" cellpadding="0">
                              <tr> 
                                <td width="736" height="355" align="center" valign="top" class="bookpage_heading style16"> 
                                  <h1 align="center"><font color="#000000" face="Garamond">Site 
                                    Search </font></h1>
  <TABLE><TR><TD><FORM METHOD="GET" ACTION="search.php">
    <INPUT NAME="q" TYPE="text" SIZE=30><INPUT TYPE="submit" VALUE="Search"><BR>
  </FORM></TD></TR></TABLE>                                  
  <br>
  <table width="409" height="217">
    <tr>
      <td><img src="images/TempleAerial.jpg" alt="Iskcon Radha Krishan Temple" width="409" height="217"></td>
    </tr>
  </table>
  <br>
  <a href="contents/multimedia/index.html" class="style17"><u>Click here for Temple Aerial view </u><br>
  </a></td>
                                </tr>
                              <tr> 
                                <td align="center" valign="top" width="736"> 
                                  <table border="0" cellspacing="0" cellpadding="3" width="700">
                                    <tr> 
                                      <td align="center" valign="top"><font face="Arial"><a href="contents/about_iskcon/index.html" class="blacktext style14"><u>About ISKCON</u></a></font><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font></font><font face="Arial"> <a href="http://www.akshayapatra.org" target="_blank" class="blacktext style14"><u>Akshaya Patra</u></a></font><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">| </font></font><font face="Arial"><font face="Arial"><font face="Arial"><font face="Arial"><span class="style14"><a href="http://www.folknet.in" class="blacktext"><u>FOLK - For  the Youth</u></a></span></font></font></font></font><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font> </font><font face="Arial"><a href="contents/bhagavatam/index.html" class="blacktext style14"><u>Bhagavatam &amp; Gita</u></a></font><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font> </font><font face="Arial"><a href="contents/books/index.html" class="blacktext style14"><u>Books</u></a></font><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">| </font></font><font face="Arial"><font face="Arial"><a href="http://www.iskconbangalore.org/contents/history/index.html" class="blacktext style14"><u>History</u></a></font></font><font size="1" face="Arial"><font size="1" face="Arial"><font size="1" face="Arial" color="#FF0000"> |</font></font></font> <font face="Arial"><a href="http://www.iskconbangalore.org/contents/chaitanya/index.html" class="blacktext style14"><u>Chaitanya Mahaprabhu</u></a></font><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font> </font><font face="Arial"><a href="http://www.iskconbangalore.org/contents/contactus/index.html" class="blacktext style14"><u>Contact Us</u></a></font><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font></font><font face="Arial"><a href="http://www.iskconbangalore.org/contents/cow/index.html" class="blacktext style14"><u>Cow Protection</u></a></font><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font> </font><font face="Arial"><font face="Arial"><a href="http://www.iskconbangalore.org/contents/dailyprograms/index.html" class="blacktext"><u><span class="style14">Daily Worship </span></u></a><span class="style14"><a href="http://www.iskconbangalore.org/contents/dailyprograms/index.html" class="blacktext"><u>Schedule</u></a></span></font></font><font size="1" face="Arial"><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">| </font></font></font><font face="Arial"><span class="style14"><a href="http://www.iskconbangalore.org/contents/distinguished/index.html" class="blacktext"><u>DistinguishedSpeak</u></a></span></font><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font> </font><font face="Arial"><a href="http://www.iskconbangalore.org/contents/faq/index.html" class="blacktext style14"><u>FAQs</u></a></font><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font> </font><font size="1" face="Arial">&nbsp; </font><font face="Arial"><font face="Arial"><span class="style14"><a href="http://www.iskconbangalore.org/contents/general/programdetails.html" class="blacktext"><u>For Children</u></a></span></font></font><font size="1" face="Arial"><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">| </font></font></font><font face="Arial"><font face="Arial"><a href="http://www.iskconbangalore.org/contents/general/programdetails.html" class="blacktext style14"><u>For Families</u></a></font></font><font size="1" face="Arial"><font size="1" face="Arial"> <font size="1" face="Arial"><font size="1" face="Arial"><font size="1" face="Arial" color="#FF0000">| </font>
                                      <!-- <font size="1" face="Arial"><a href="http://www.iskconbangalore.org/contents/general/construction.html" class="blacktext"> <u>Fun stuff</u></a> -->
                                      </font> </font></font></font> <font size="1" face="Arial">&nbsp; </font><font face="Arial"><a href="http://www.iskconbangalore.org/contents/article/index.html" class="blacktext style14"><u>Force of Life</u></a></font><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font><br>
                                      </font><font face="Arial"><font face="Arial"><a href="contents/krishnavoice/2008/kv_sept_2008/index.html" class="blacktext style14"><u>Krishna Voice</u></a></font></font><font size="1" face="Arial"><font size="1" face="Arial"><font size="1" face="Arial"> <font size="1" face="Arial"><font size="1" face="Arial"><font size="1" face="Arial" color="#FF0000">|</font> </font></font></font></font></font><font face="Arial"><font face="Arial"><font face="Arial"><font face="Arial"><font face="Arial"><font face="Arial"><font face="Arial"><span class="style14"><a href="http://www.iskconbangalore.org/contents/purpose/index.html" class="blacktext"><u>Interview With Temple President</u></a></span></font></font></font></font></font></font></font><font size="1" face="Arial"><font size="1" face="Arial"><font size="1" face="Arial"><font size="1" face="Arial"><font size="1" face="Arial"><font size="1" face="Arial"><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font> </font></font></font></font></font></font></font> <font face="Arial"><font face="Arial"><a href="http://www.iskconbangalore.org/contents/sp/index.html" class="blacktext style14"><u>Srila Prabhupada</u></a></font></font><font size="1" face="Arial"><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font> </font></font><font face="Arial"><font face="Arial"><a href="http://www.iskconbangalore.org/contents/organicfarming/index.html" class="blacktext style14"><u>Organic Farming</u></a></font></font><font size="1" face="Arial"><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font> </font></font><font face="Arial"><font face="Arial"><font face="Arial"><font face="Arial"><a href="http://www.iskconbangalore.org/contents/vaishnava/index.html" class="blacktext style14"><u>Vaishnava Calendar</u></a></font></font></font></font><font size="1" face="Arial"><font size="1" face="Arial"><font size="1" face="Arial"><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font> </font></font></font></font><font face="Arial"><font face="Arial"><font face="Arial"><font face="Arial"><a href="http://www.iskconbangalore.org/contents/worldpeace/index.html" class="blacktext style14"><u>Harinam Mantap</u></a></font></font></font></font><font size="1" face="Arial"><font size="1" face="Arial"><font size="1" face="Arial"><font size="1" face="Arial"> <font size="1" face="Arial" color="#FF0000">|</font></font></font></font></font></td>
                                      </tr>
                                    </table>                                  </td>
                                </tr>
                              </table>
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <h1 align="center">&nbsp;</h1>
    </td>
  </tr>
</table>
<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
try {
var pageTracker = _gat._getTracker("UA-7584905-1");
pageTracker._trackPageview();
} catch(err) {}</script>
</body>

</html>
<!-- <%



'Sub procedure to do the search
Public Sub SearchFile(fldObject)

	'Dimension local variabales
	Dim filObject				'File object
	Dim tsObject				'Text stream object
	Dim subFldObject			'Sub folder object
	Dim RegExpObject			'RegExp Object
	Dim strFileContents			'Holds the contents of the file being searched	
	Dim strPageTitle			'Holds the title of the page
	Dim intTitleStartPositionInFile		'Holds the start postion in the file being searched of the title
	Dim intTitleEndPositionInFile		'Holds the end postion in the file being searched of the title
	Dim strPageDescription			'Holds the description of the page
	Dim intDescriptionStartPositionInFile	'Holds the start postion in the file being searched of the description
	Dim intDescriptionEndPositionInFile	'Holds the end postion in the file being searched of the description
	Dim intSearchLoopCounter		'Loop counter to search all the words in the array
	Dim blnSearchFound			'Set to true if the search words are found	
	
	'Error handler
	On Error Resume Next
	
	
	'Loop to search each file in the folder
	For Each filObject in fldObject.Files
		
				
		'Check the file extension to make sure the file is of the extension type to be searched
		If InStr(1, strFilesTypesToSearch, fsoObject.GetExtensionName(filObject.Name), vbTextCompare) > 0 Then
		
		  	'Check to make sure the file about to be searched is not a barred file if it is don't search the file
			If NOT InStr(1, strBarredFiles, filObject.Name, vbTextCompare) > 0 Then
		  	
		  	
			  	'Open the file for searching
			    	Set tsObject = filObject.OpenAsTextStream
			
				'Read in the contents of the file
			   	strFileContents = tsObject.ReadAll
			 		
			 	'Initalise the search found variable to flase
			 	blnSearchFound = False
			 	
			 	
			 	'If the user has choosen to search by phrase 
			 	If Request.QueryString("mode") = "phrase" Then
			 		
			 		'Search the file for the phrase
			 		If InStr(1, LCase(strFileContents), LCase(strSearchWords), 1) then
			 		
			 			'If the search is found then set the search found variable to true
			 			blnSearchFound = True
			 		End If
			 	
			 	
			 	'Else the search is either by all or any words
			 	Else
			 			 	
			 		'If the search is by all words then initialise the search found variable to true
				 	If Request.QueryString("mode") = "allwords" then blnSearchFound = True
				 	
				 	
				 	'Loop round to search for each word to be searched
				 	For intSearchLoopCounter = 0 to UBound(sarySearchWord)
				 		    	
					    	'Search the file for the search words
					    	If InStr(1, LCase(strFileContents), LCase(sarySearchWord(intSearchLoopCounter)), 1) Then
				    	
				    			'If the search word is found and the search is for any words then set the search found variable to true
				    			If Request.QueryString("mode") = "anywords" then blnSearchFound = True
				    			
				    		Else
				    			'If the search word is not found and the search is for all words then set the search found variable back to false as one of the words has not been found
				    			If Request.QueryString("mode") = "allwords" then blnSearchFound = False
				    			
				    		End If
				    	Next
			    	End If
			    	
			    	
			    	
			    	'Calculate the total files searched
			    	intTotalFilesSearched = intTotalFilesSearched + 1
			    		    	
			    			    	
			    	
			    	'If the search found variable is true then display the results
			    	If blnSearchFound = True Then
			    			    	
			    					    		    	
					'Calculate the total files found 
					intTotalFilesFound = intTotalFilesFound + 1
										
			    	
			    		
					'Check that the file shown is between the the files shown so far and the maximum files to show per page
					If  intNumFilesShown < (intRecordsPerPage + intFileNum) and intTotalFilesFound > intNumFilesShown Then
	
						'Calculate the number of results shown
						intNumFilesShown = intNumFilesShown + 1
						
		
					    	'Read in the title of the file
						strPageTitle = GetFileMetaTag("<title>", "</title>", strFileContents)
								
						'Read in the description meta tag of the file
						strPageDescription = GetFileMetaTag("<meta name=""description"" content=""", """>", strFileContents)
			 	
			 			'If the page contains no title then Page Title variable the appropriate message to display
					    	If strPageTitle = "" Then strPageTitle = "No Title"
					    	
					    	'If the page contains no title then Page Description variable the appropriate message to display
					    	If strPageDescription = "" Then strPageDescription = "There is no description available for this page"
				       		
				       		'Place the search results into the saerch results array
				       		'Calculate the array position of the results array
				       		intResultsArrayPosition = intResultsArrayPosition + 1
				       		
				       		
				       		'Set the search results found boolean to true
				       		blnSearchResultsFound = True
				       					       		
						'If the file is in the root directory then
						If blnIsRoot = True Then
						
							'Place the search results into the search results array
							sarySearchResults(intResultsArrayPosition) = "<a href=""./" &  filObject.Name & """ target=""_self"">" & strPageTitle & "</a><br>" & vbCrLf & "        " & strPageDescription
									    						       		
				       		'Else it is not in the root directiory
				       		Else
				       			'Place the search results into the search results array
				       			sarySearchResults(intResultsArrayPosition) = "<a href=""./" & strFileURL  & fldObject.Name & "/" & filObject.Name & """ target=""_self"">" & strPageTitle & "</a><br>" & vbCrLf & "	      " & strPageDescription			   			   								
						End If	
									
					End If	      		
		      		End If
							
				'Close the text stream object
		    		tsObject.Close
			End If
		End If
	Next



	'Loop to search through the sub folders within the site
	For Each subFldObject In FldObject.SubFolders
										
		'Check to make sure the folder about to be searched is not a barred folder if it is then don't search
		If NOT InStr(1, strBarredFolders, subFldObject.Name, vbTextCompare) > 0 Then
			
			'Set to false as we are searching sub directories
			blnIsRoot = False		
					
			'Get the server path to the file
			strFileURL = fldObject.Path & "\"
			
			'Turn the server path to the file into a URL path to the file
			strFileURL = Replace(strFileURL, strServerPath, "")
			
			'Replace the NT backslash with the internet forward slash in the URL to the file
			strFileURL = Replace(strFileURL, "\", "/")
			
			'Encode the file name and path into the URL code method
			strFileURL = Server.URLEncode(strFileURL)
			
			'Just incase it's encoded any backslashes
			strFileURL = Replace(strFileURL, "%2F", "/")
			
							
			'Call the search sub prcedure to search the web site
			Call SearchFile(subFldObject)
		End If
	Next



	'Reset server variables
	Set filObject = Nothing
	Set tsObject = Nothing
	Set subFldObject = Nothing


End Sub



'Function to read in the files meta tags
Private Function GetFileMetaTag(ByRef strStartValue, ByRef strEndValue, ByVal strFileContents)

	'Dimension Variables
	Dim intStartPositionInFile	'Holds the start position in the file
	Dim intEndPositionInFile	'Holds the end position in the file
	
	
	'Get the start position in the file of the meta tag
	intStartPositionInFile = InStr(1, LCase(strFileContents), strStartValue, 1)
	
	
	'If no description or keywords are found then you may be using http-equiv= instead of name= in your meta tags
	If intStartPositionInFile = 0 And InStr(strStartValue, "name=") Then
		
		'Swap name= for http-equiv= 
		strStartValue = Replace(strStartValue, "name=", "http-equiv=")
		
		'Check again for keywords or description
		intStartPositionInFile = InStr(1, LCase(strFileContents), strStartValue, 1)		
	End If
	
				    	
	'If there is a description then the position in file will be over 0
	If NOT intStartPositionInFile = 0 Then
					
		'Get the end position of the HTML meta tag
		intStartPositionInFile = intStartPositionInFile + Len(strStartValue)
						
		'Get the position in file of the closing tag for the meta tag
		intEndPositionInFile = InStr(intStartPositionInFile, LCase(strFileContents), strEndValue, 1)
	
		'Read in the meta tag from the file for the function to return
		GetFileMetaTag = Trim(Mid(strFileContents, intStartPositionInFile, (intEndPositionInFile - intStartPositionInFile)))
					
	'If the is no meta tag then the GetFileMetaTag function returns a null value
	Else
		GetFileMetaTag = ""
		       		
	End If

End Function
%> -->