<% Option Explicit %>
<%
'****************************************************************************************
'**  Copyright Notice    
'**
'**  atozpages Internet Search Engine
'**                                                              
'**  Copyright 2002-2003 David Khoury All Rights Reserved.                                
'**
'**
'****************************************************************************************

Dim adoCon 			'Database Connection Variable
Dim rsConfiguration		'Holds the configuartion recordset
Dim strCon			'Holds the Database driver and the path and name of the database
Dim strSQL			'Holds the SQL query for the database
Dim intRecordsPerPage		'Holds the number of files shown on each page
Dim strBgColour			'Holds the background colour
Dim strTextColour		'Holds the text colour
Dim strTextType			'Holds the font type
Dim intTextSize			'Holds the font size 
Dim strLinkColour		'Holds the link colour
Dim strTableColour		'Holds the table colour
Dim strTableBorderColour	'Holds the table border colour
Dim strVisitedLinkColour	'Holds the visited link colour
Dim strHoverLinkColour		'Holds the mouse over link colour


'Declare constants
' ----------------- Change the following line to the number of entries you wish to have on each page and miniumum word length ------------------------

Const intMinuiumSearchWordLength = 2 	'Change this to the minimum word length to be searched on

'-------------------------------------------------------------------------------------------------------------------------------------


'Create database connection

'Create a connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")
			 

'------------- If you are having problems with the script then try using a diffrent driver or DSN by editing the lines below --------------
			 
'Database connection info and driver (if this driver does not work then comment it out and use one of the alternative drivers)
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("search_engine.mdb")

'Database driver for Brinkster
'strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/USERNAME/db/search_engine.mdb") 'This one is for Brinkster users place your Brinster username where you see USERNAME

'Alternative drivers faster than the basic one above
'strCon = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & Server.MapPath("search_engine.mdb") 'This one is if you convert the database to Access 97
'strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("search_engine.mdb")  'This one is for Access 2000/2002

'If you wish to use DSN then comment out the driver above and uncomment the line below (DSN is slower than the above drivers)
'strCon = "DSN = DSN_NAME" 'Place the DSN where you see DSN_NAME

'---------------------------------------------------------------------------------------------------------------------------------------------

'Set an active connection to the Connection object
adoCon.Open strCon

'Read in the configuration for the script
'Intialise the ADO recordset object
Set rsConfiguration = Server.CreateObject("ADODB.Recordset")

'Initialise the SQL variable with an SQL statement to get the configuration details from the database
strSQL = "SELECT tblConfiguration.* From tblConfiguration;"

'Query the database
rsConfiguration.Open strSQL, strCon

'If there is config deatils in the recordset then read them in
If NOT rsConfiguration.EOF Then

	'Read in the configuration details from the recordset
	intRecordsPerPage = CInt(rsConfiguration("No_records_per_page"))
	strBgColour = rsConfiguration("bg_colour")
	strTextColour = rsConfiguration("text_colour")
	strTextType = rsConfiguration("text_type")
	intTextSize = CInt(rsConfiguration("text_size"))
	strLinkColour = rsConfiguration("links_colour")
	strTableColour = rsConfiguration("table_colour")
	strTableBorderColour = rsConfiguration("table_border_colour")
	strVisitedLinkColour = rsConfiguration("visited_links_colour")
	strHoverLinkColour = rsConfiguration("active_links_colour")
End If

'Reset server object
Set rsConfiguration = Nothing
%>

<%

'ALL RIGHTS RESERVED. U.S & AUST  PATENT PENDING. Privacy notice at: http://www.auau.com.au 'privacy


Response.Buffer = True 

'Dimension variables
Dim rsSearchResults 		'database Recordset Variable
Dim intRecordPositionPageNum 	'Holds the record position
Dim intRecordLoopCounter 	'Loop counter for displaying the database records
Dim lngTotalRecordsFound 	'Holds the total number of records in the database
Dim lngTotalNumPages 		'holds the total number of pages in the database
Dim intLinkPageNum 		'Holds the page number to be linked to
Dim intLoopCounter		'Holds the loop counter number
Dim sarySearchWord	 	'Holds the keywords for the URL
Dim strSearchKeywords		'Holds the keywords to be searched
Dim intSQLLoopCounter		'Loop counter for the loop for the sql query
Dim intSearchWordLength		'Holds the length of the word to be searched
Dim blnSearchWordLenthOK	'Boolean set to false if the search word length is not OK
Dim intRecordDisplayFrom	'Holds the number of the search result that the page is displayed from
Dim intRecordDisplayedTo	'Holds the number of the search result that the page is displayed to


'If this is the first time the page is displayed then the page position is set to page 1
If Request.QueryString("PagePosition") = "" Then
	intRecordPositionPageNum = 1

'Else the page has been displayed before so the page postion is set to the Record Position number
Else
	intRecordPositionPageNum = CInt(Request.QueryString("PagePosition"))
End If	


'Read in all the search words into one variable
strSearchKeywords = Trim(Request.QueryString("search"))

'If the use has not entered a value then let the search words variable contain a space (chr10)
If strSearchKeywords = "" Then strSearchKeywords = chr(10)

'Replace any less than or greater than signs with the HTML equivalent (stops people entering HTML tags)
strSearchKeywords = Replace(strSearchKeywords, "<", "&lt;")
strSearchKeywords = Replace(strSearchKeywords, ">", "&gt;")
strSearchKeywords = Replace(strSearchKeywords, "'", "''")

'Read in the search words to be searched
sarySearchWord = Split(Trim(strSearchKeywords), " ")

'Return the tow '' back to one' for displaying on the screen
strSearchKeywords = Replace(strSearchKeywords, "''", "'")


'Initalise the word search length variable
blnSearchWordLenthOK = True

'Loop round to check that each word to be searched has more than the minimum word length to be searched
For intLoopCounter = 0 To UBound(sarySearchWord)
	
	'Initialise the intSearchWordLength variable with the length of the word to be searched
	intSearchWordLength = Len(sarySearchWord(intLoopCounter))
	
	'If the word length to be searched is less than or equal to min word length then set the blnWordLegthOK to false
	If intSearchWordLength <= intMinuiumSearchWordLength Then 
		blnSearchWordLenthOK = False		
	End If
Next


'Create a recordset object
Set rsSearchResults = Server.CreateObject("ADODB.Recordset")

	
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT tblWebsites.* FROM tblWebsites "
		
'Get the mode to decide how we are going to buid the SQL Query
Select Case Request.QueryString("mode")

	'If the user has selected to search any words then intalise the strSQL statement to search for any words in the database
	Case "anywords"

		'Search for the first search word in the URL titles
		strSQL = strSQL & "WHERE Title LIKE '%" & sarySearchWord(0) & "%'"
	
		'Loop to search for each search word entered by the user
		For intSQLLoopCounter = 0 To UBound(sarySearchWord)
			strSQL = strSQL & " OR Title LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'"
			strSQL = strSQL & " OR Keywords LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'" 
			strSQL = strSQL & " OR Description LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'"
		Next
		
		'Order the search results by the number of click through hits decending (most popular sites first)
		strSQL = strSQL & " ORDER By Rating DESC, No_of_ratings DESC, Hits DESC;"


	'If the user has selected to search for all words then intalise the strSQL statement to search for entries containing all the search words
	Case "allwords"
	
		'Search for the first word in the URL titles
		strSQL = strSQL & "WHERE (Title LIKE '%" & sarySearchWord(0) & "%'"
		
		'Loop to search the URL titles for each word to be searched
		For intSQLLoopCounter = 1 To UBound(sarySearchWord)
			strSQL = strSQL & " AND Title LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'"
		Next
		
		'OR if the search words are in the keywords	
		strSQL = strSQL & ") OR (Keywords LIKE '%" & sarySearchWord(0) & "%'"
		
		'Loop to search the URL keywords for each word to be searched
		For intSQLLoopCounter = 1 To UBound(sarySearchWord)
			strSQL = strSQL & " AND Keywords LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'"
		Next
		
		'Or if the search words are in the title	
		strSQL = strSQL & ") OR (Description LIKE '%" & sarySearchWord(0) & "%'"
		
		'Loop to search the URL description for each word to be searched
		For intSQLLoopCounter = 1 To UBound(sarySearchWord)
			strSQL = strSQL & " AND Description LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'"
		Next
		
		'Order the search results by the number of click through hits decending (most popular sites first)
		strSQL = strSQL & ") ORDER By Rating DESC, No_of_ratings DESC, Hits DESC;"


	'If the user has selected to see newly enetred URL's then order the search results by date decending
	Case "new"
		'Initalise the strSQL variable with an SQL statement to query the database
		strSQL = "SELECT TOP " & intRecordsPerPage & " tblWebsites.* FROM tblWebsites"
		strSQL = strSQL & " ORDER By SiteIDNo DESC;"
End Select

'Query the database with the strSQL statement
rsSearchResults.Open strSQL, strCon, 3

'Count the number of records found
lngTotalRecordsFound = CLng(rsSearchResults.RecordCount)	

'If this is a random URL then strip all the other URL's and only leave one remaining URL
If Request.QueryString("submit") = "Random Search" and NOT rsSearchResults.EOF Then 
	
	'Randomise system timer
	Randomize Timer
	
	'Move to a random record in the recordset
	rsSearchResults.Move CLng(RND * lngTotalRecordsFound) - 0.5

	'Filter out all the other records
	rsSearchResults.Filter = "SiteIDNo =" & rsSearchResults("SiteIDNO")

Else
	'Set the number of records to display on each page by the constant set at the top of the script
	rsSearchResults.PageSize = intRecordsPerPage
	
	'Get the page number record poistion to display from
	IF NOT rsSearchResults.EOF Then rsSearchResults.AbsolutePage = intRecordPositionPageNum
	
	'Count the number of pages the search results will be displayed on calculated by the PageSize attribute set above
	lngTotalNumPages = CLng(rsSearchResults.PageCount)
	
	
	'Calculate the the record number displayed from and to on the page showing
	intRecordDisplayFrom = (intRecordPositionPageNum - 1) * intRecordsPerPage + 1
	intRecordDisplayedTo = (intRecordPositionPageNum - 1) * intRecordsPerPage + intRecordsPerPage
	If intRecordDisplayedTo > lngTotalRecordsFound Then intRecordDisplayedTo = lngTotalRecordsFound

End If
%>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns=">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="File-List" href="default_files/filelist.xml">
<title>bailiff Hit Counter</title>
<!-- atozpages Search Engine is written by dmaze Š2003
   	  goto http://www.auau.com.au --


<!-- Check the from is filled in correctly before submitting -->
<SCRIPT  language="JavaScript">
<!-- Hide from older browsers...
//Check the enquiry form is filled in correctly
function CheckForm () { 
		
	//If there is aproblem with the form then display an error
	if (document.frmInterSearch.search.value == "") {
		msg = "_________________________________________________________________\n\n";
		msg += "Your search has not been submitted because there are problem(s) with the form.\n";
		msg += "Please correct the problem(s) and re-submit the form.\n";
		msg += "_________________________________________________________________\n\n";
		msg += "\n\tPlease enter at least one keyword to search for."
		
		alert(msg + "\n\n");
		
		return false;
	}
	
	return true;
}

//Function to open pop up window
function openWin(theURL,winName,features) {
  	window.open(theURL,winName,'toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=0,width=350,height=310');
}
// -->
</script>
<style type="text/css">
<!--
.text {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strTextColour %>}
.bold {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strTextColour %>; font-weight: bold;}
.italic {font-family: <% = strTextType %>; font-size: <% = intTextSize - 1 %>px; color: #009900; font-style: italic;}
.heading {font-family: <% = strTextType %>; font-size: 24px; color: <% = strTextColour %>; font-weight: bold;}
a {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strLinkColour %>}
a:hover {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strHoverLinkColour %>}
a:visited {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strVisitedLinkColour %>}
a:visited:hover {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strHoverLinkColour %>}

-->
</style>
<!--[if !mso]>
<style>
v\:*         { behavior: url(#default#VML) }
o\:*         { behavior: url(#default#VML) }
.shape       { behavior: url(#default#VML) }
</style>
<![endif]-->
<!--[if gte mso 9]>
<xml><o:shapedefaults v:ext="edit" spidmax="1027"/>
</xml><![endif]-->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" vlink="#330000">
<div align="center" class="heading"> 
  <table width="99%" border="0" height="21" cellpadding="0" cellspacing="0">
    <tr> 
      <td valign="top" height="31" bgcolor="#990033" width="18%" align="center"> 
        <div align="center" class="heading">
          <script language=JavaScript src="menu2_array.js" type=text/javascript></script>
          <script language=JavaScript src="mmenu2.js" type=text/javascript></script>
          <img src="../logo7.gif" width="51" height="53"></div>
      </td>
      <td valign="middle" height="31" bgcolor="#990033" width="65%"> 
        <div align="center">
          <style type="text/css">
<!--

.menuh	{
		BORDER-COLOR : #FFFFFF ;
		cursor : hand ;
		Border-Left : #FFFFFF ;
		Border-Top : #FFFFFF ;
		Padding-Left : 1px ;
		Padding-Top : 1px ;
		Background-Color : #0000ff ;
	}
.menu	{
		Background-Color : white ;
	}
.home	{
		cursor : hand ;
	}

.menulinks{
text-decoration:none;
}
//-->
          </style>
          <a href="http://www.auau.com.au/"> 
          <!--[if gte vml 1]><v:shapetype id="_x0000_t136"
 coordsize="21600,21600" o:spt="136" adj="10800" path="m@7,l@8,m@5,21600l@6,21600e">
 <v:formulas>
  <v:f eqn="sum #0 0 10800"/>
  <v:f eqn="prod #0 2 1"/>
  <v:f eqn="sum 21600 0 @1"/>
  <v:f eqn="sum 0 0 @2"/>
  <v:f eqn="sum 21600 0 @3"/>
  <v:f eqn="if @0 @3 0"/>
  <v:f eqn="if @0 21600 @1"/>
  <v:f eqn="if @0 0 @2"/>
  <v:f eqn="if @0 @4 21600"/>
  <v:f eqn="mid @5 @6"/>
  <v:f eqn="mid @8 @5"/>
  <v:f eqn="mid @7 @8"/>
  <v:f eqn="mid @6 @7"/>
  <v:f eqn="sum @6 0 @5"/>
 </v:formulas>
 <v:path textpathok="t" o:connecttype="custom" o:connectlocs="@9,0;@10,10800;@11,21600;@12,10800"
  o:connectangles="270,180,90,0"/>
 <v:textpath on="t" fitshape="t"/>
 <v:handles>
  <v:h position="#0,bottomRight" xrange="6629,14971"/>
 </v:handles>
 <o:lock v:ext="edit" text="t" shapetype="t"/>
</v:shapetype><v:shape id="_x0000_s1025" type="#_x0000_t136" style='width:326.25pt;
 height:17.25pt'>
 <v:shadow color="#868686"/>
 <v:textpath style='font-family:"Arial Black";font-size:12pt;v-text-kern:t'
  trim="t" fitpath="t" string="Bailiff / Sheriff Queensland - Enforcement Officers"/>
</v:shape><![endif]-->
          <![if !vml]>
          <img border=0 width=437 height=27
src="default_files/image001.gif"
alt="Bailiff / Sheriff Queensland - Enforcement Officers" v:shapes="_x0000_s1025"> 
          <![endif]>
          </a></div>
      </td>
      <td valign="middle" height="31" bgcolor="#990033" width="17%"><a href="../SEIZUREOFAMOTORVEHICLE.htm"><img src="../auctionlogoflash.gif" width="112" height="30" border="0"></a></td>
    </tr>
  </table>
  <table width="99%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" height="164">
    <tr> 
      <td width="18%" bgcolor="#990033" height="171"><img src="../../spacer.gif" width="139" height="27"></td>
      <td width="82%" valign="top" align="center" height="171"> 
        <p align="center"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><b><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><b><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#000000" size="1"><br>
          </font></font></b></font></b></font></p>
        <table width="99%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td> 
              <div align="center"><iframe name="cwindow" style="border:" width=99% height=200 src="../townsguid/sim_input.asp"></iframe></div>
            </td>
          </tr>
        </table>
        <table width="99%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td bgcolor="#0000FF">&nbsp;</td>
          </tr>
        </table>
        <table width="99%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td> 
              <div align="center"><iframe name="cwindow" style="border:" width=99% height=200 src="../nsw/sim_input.asp"></iframe></div>
            </td>
          </tr>
        </table>
        <p align="center"><br>
          <b><font color="#0000FF">
          <style>


BODY { scrollbar-3d-light-color:#FF0000;
scrollbar-arrow-color:#FFFF33;
scrollbar-base-color:black;
scrollbar-dark-shadow-color:#333333;
scrollbar-face-color:##CC0033;
scrollbar-highlight-color:##FFFF00;
scrollbar-shadow-color:#FF0000}
</style>
          </font></b> </p>
        <table width="99%" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="20" width="60%"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font color="#0000FF" size="3">The 
              Bailiff Web site is <a href="http://www.auau.com.au/">powered by 
              www.auau.com.au </a></font><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"></font></font></font></font></font></font></font></font></font></font></font></td>
            <td height="20" width="40%"> 
              <div align="right"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#0000FF" size="1"><font color="#0000FF" size="3">Updated 
                by <a href="http://www.atozpages.com.au/abby/default.asp">atozpages.com.au</a></font></font></font></font></font></div>
            </td>
          </tr>
        </table>
        
        
      </td>
    </tr>
  </table>
  <table width="99%" border="0" cellpadding="0" cellspacing="0" bgcolor="#990033">
    <tr>
      <td height="2" width="18%"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"></font></font></font></font></font></font></td>
      <td height="2" width="82%"> 
        <div align="center"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><b><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><b><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><b><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><b><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF" size="1">Copyright 
          &copy; 2003<a href="http://www.auau.com.au"> auau.com.au</a> All <b><b><b><b>rights 
          reserved</b></b></b></b></font></font></b></font></b></font> </font></b><font face="Geneva, Arial, Helvetica, san-serif" color="#FFFFFF"><font size="1">Design 
          By DK</font></font></font></b></font> </div>
      </td>
    </tr>
  </table>
  <div align="center">
<div align="center">
      <div align="center"> </div>
    </div>
  </div>
</div>
  
</body>
</html>