<%

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("../private/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

'USE THIS STRING FOR LOCAL DEVELOPMENT ACCESS 2000 VERSION
'=========================================================
'strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../../private/search_engine.mdb")  'This one is for Access 2000/2002

'USE THIS STRING FOR LIVE SITE ACCESS 2000 VERSION
'=================================================
'strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("./../private/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 = "Provider=Microsoft.Jet.OLEDB.4.0; DRIVER={MySQL}; DSN=the-search-site"  'This one is for Access 2000/2002

'strCon = "DSN=the-search-site"

'USE THIS STRING FOR LOCAL DEVELOPMENT ACCESS 2000 VERSION
'=========================================================
'strCon = "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=search_engine; Option=4; User=MyUserName; Password=MyPassword;"
'strCon = "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=search_engine; Option=4;"

'USE THIS STRING FOR LOCAL SITE MySQL 2000 VERSION
'=================================================
'strCon = "Driver={MySQL ODBC 3.51 Driver}; Server=127.0.0.1; Port=3306; Database=search_engine; Option=4;" 'Uid=MyUsername;Pwd=MyPassword;

'USE THIS STRING FOR LIVE SITE MySQL 2000 VERSION
'================================================
strCon = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=mikeadmin.db.2238098.hostedresource.com; PORT=3306; DATABASE=mikeadmin; USER=mikeadmin; PASSWORD='Freddy111'; OPTION=0;"

'---------------------------------------------------------------------------------------------------------------------------------------------

'Set an active connection to the Connection object
adoCon.Open strCon

intRecordsPerPage = 14
strBgColour = "#FFFFFF"
strTextColour = "#000000"
strTextType = "Verdana, Arial, Helvetica, sans-serif"
intTextSize = 11
strLinkColour = "#0000CC"
strTableColour = "#CCCCCC"
strTableBorderColour = "#000000"
strVisitedLinkColour = "#0000CC"
strHoverLinkColour = "#FF0000"


%> 
<%
'---- BodyFormat Property ----
Const CdoBodyFormatHTML	= 0	' The Body property is to include Hypertext Markup Language (HTML).
Const CdoBodyFormatText	= 1	' The Body property is to be exclusively in plain text (default value).

'---- MailFormat Property ----
Const CdoMailFormatMime	= 0	' The NewMail object is to be in MIME format.
Const CdoMailFormatText	= 1	' The NewMail object is to be in uninterrupted plain text (default value).

'---- Importance Property ----
Const CdoLow	= 0		' Low importance
Const CdoNormal	= 1		' Normal importance (default)
Const CdoHigh	= 2		' High importance

'---- AttachFile and AttachURL Methods ----
Const CdoEncodingUUencode	= 0	' The attachment is to be in UUEncode format (default).
Const CdoEncodingBase64		= 1	' The attachment is to be in base 64 format.

MyEnquiry = Request("enquiry")
'remove any HTML tags
MyEnquiry = Replace(MyEnquiry, "<", "&lt;")
MyEnquiry = Replace(MyEnquiry, ">", "&gt;")
MyEnquiry = Replace(MyEnquiry, "'", "`")
MyEnquiry = Replace(MyEnquiry, """", "`")

If Request("name") <> "" Then

	strBrowserID = Request.ServerVariables("REMOTE_HOST")

	Dim objNewMail
	Dim strBody
	
	strBody = "NAME: " & Request("name") & "<BR>"
	strBody = strBody & "EMAIL: " & Request("email") & "<BR>"
	strBody = strBody & "COMPANY: " & Request("company") & "<BR>"
	strBody = strBody & "DEPARTMENT: " & Request("dept") & "<BR>"
	strBody = strBody & "COUNTRY: " & Request("country") & "<BR>"
	strBody = strBody & "SALES ORDER: " & Request("order") & "<BR>"
	strBody = strBody & "COMPUTER I.P.: " & strBrowserID & "<BR>"
	strBody = strBody & "<BR><BR>" & Request("enquiry")
	
	Set objNewMail = Server.CreateObject("CDONTS.NewMail")
	objNewMail.From = Request("email")
	objNewMail.To = Request("nature") & "@the-search-site.com"
	objNewMail.Subject = Request("nature") & " enquiry to the-search-site.com"
	objNewMail.Body = strBody
	objNewMail.BodyFormat = CdoBodyFormatHTML
	objNewMail.MailFormat = CdoMailFormatText
	objNewMail.Importance = CdoNormal
	objNewMail.Send
	Set objNewMail = Nothing
End If
%>

<HTML> 
<HEAD>
<META name="description" content="The Search Site Com - Human edited search tool, access our fast Global database with Internet links to the World Wide Web. Directory search and find by name, region and keyword. Submit url free. Submission Listings added usually within 24 hours (subject to satisfactory review)">
<META name="keywords" content="search, engine, categories, where, searching, browse, find, homepage, help, information, news, weather, sport, business, money, shopping, travel, entertainment, women, education, finance, ">

<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Submit your enquiry to The Search Site Com - Human edited search tool, access our fast Global database with Internet links to the World Wide Web. Directory search and find by name, region and keyword. Submit url free. Submission Listings added usually within 24 hours (subject to satisfactory review)</TITLE>

</style>



<!-- Check the from is filled in correctly before submitting -->
<script  language="JavaScript">
<!-- Hide from older browsers...

function click() {if (event.button==2) { alert('Disabled') } } document.onmousedown=click


// Function to check form is filled in correctly before submitting
function CheckForm () {

	//Initialise variables
	var errorMsg = "";
	var errorMsgLong = "";

	//Check for a business name
	if (document.frmAddURL.name.value == ""){
		errorMsg += "\n\t- Enter Your Name";
	}
		
	if (document.frmAddURL.nature.value == "Please select"){
		errorMsg += "\n\t- Enter the nature of the enquiry";
	}
	
	if (document.frmAddURL.email.value == ""){
		errorMsg += "\n\t- Enter your email address";
	}

	if (document.frmAddURL.company.value == ""){
		errorMsg += "\n\t- Enter the Company/Organisation";
	}

	if (document.frmAddURL.dept.value == "Please select"){
		errorMsg += "\n\t- Enter the Department";
	}

	if (document.frmAddURL.country.value == "All countries"){
		errorMsg += "\n\t- Enter the Country";
	}

	if (document.frmAddURL.enquiry.value.length < 30){
		errorMsg += "\n\t- Enter your enquiry";
	}	

	//If there is a problem with the form then display an error
	if ((errorMsg != "")||(errorMsgLong != "")){
		msg = "___________________________________________________________________\n\n";
		msg += "Your enquiry has not been submitted because there are problem(s) with the form.\n";
		msg += "Please correct the problem(s) and re-submit the enquiry.\n";
		msg += "___________________________________________________________________\n\n";
		msg += "The following field(s) need to be corrected: -\n";
		
		errorMsg += alert(msg + errorMsg + "\n" + errorMsgLong);
		return false;
	}
	
	return true;
}

// -->
</script>

<style type="text/css">
<!--
.text {font-family: Arial; font-size: 13px; color: <% = strTextColour %>}
.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 %>}
body {
	background-image: url(images/page/background.png); background-position:center; background-repeat:repeat-y;
}
-->
</style>
</HEAD>


<body>


<CENTER>
<A HREF="sitemap.htm"><IMG SRC="images/search.gif" VALIGN=BOTTOM BORDER=0 ALT="The Search Site Engine and Directory. Building into a market leading human edited search tool, access this very fast Global database with Internet links to the World Wide Web. Directory find by name, region and keyword. Submit URL free. Submission Listings added usually within 24 hours (subject to satisfactory review)."></A>
<TABLE BORDER=0 ALIGN=CENTER WIDTH=900 BACKGROUND="images/curvedmap.gif" STYLE="background-repeat: no-repeat;"><TR><TD>
<TABLE BORDER=0	 WIDTH="100%">
<TR>

	<TD NOWRAP WIDTH="20%">
	</TD>
	
	<TD NOWRAP WIDTH="20%" ALIGN=CENTER>
	<A HREF="sitemap.htm"><IMG SRC="images/sitelogo.gif" BORDER=0 ALT="The Search Site Engine and Directory. Building into a market leading human edited search tool, access this very fast Global database with Internet links to the World Wide Web. Directory find by name, region and keyword. Submit URL free. Submission Listings added usually within 24 hours (subject to satisfactory review)."></A>
	</TD>
	
	<TD NOWRAP ALIGN=CENTER WIDTH="20%">
	<FONT FACE=Verdana SIZE=1><%=Day(Now()) & " " & MonthName(Month(Now())) & " " & Year(Now()) & "<BR>" & Time()%></FONT>
	</TD>

	<TD NOWRAP WIDTH="20%">
	</TD>

</TR>
</TABLE>

<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD VALIGN=TOP WIDTH=1 STYLE="cursor: hand;" ONCLICK="document.location='findbusiness.asp';"><IMG SRC="images/new_bussearch.gif" BORDER=0 ALIGN=CENTER ALT="Search for a local Business or service"></TD>
<TD VALIGN=TOP WIDTH=1 STYLE="cursor: hand;" ONCLICK="document.location='default.asp';"><IMG SRC="images/new_websearch.gif" BORDER=0 ALIGN=CENTER ALT="Search the world wide web for an internet site"></TD>
<TD VALIGN=TOP WIDTH=1 STYLE="cursor: hand;" ONCLICK="document.location='directory.asp';"><IMG SRC="images/new_topicsearch.gif" BORDER=0 ALIGN=CENTER ALT="search by topic - category"></TD>
<TD VALIGN=TOP WIDTH=1 STYLE="cursor: hand;" ONCLICK="document.location='advertising.htm';"><IMG SRC="images/new_advertise.gif" BORDER=0 ALIGN=CENTER ALT="advertise and market your services through us"></TD>
<TD VALIGN=TOP WIDTH=1 STYLE="cursor: hand;" ONCLICK="document.location='news.asp';"><IMG SRC="images/new_news.gif" BORDER=0 ALIGN=CENTER ALT="search site news & information"></TD>
<TD VALIGN=TOP WIDTH=1 STYLE="cursor: hand;" ONCLICK="document.location='add_business_form.asp';"><IMG SRC="images/new_addbus.gif" BORDER=0 ALIGN=CENTER ALT="add your business or service to the worldwide and local business directory"></TD>
<TD VALIGN=TOP WIDTH=1 STYLE="cursor: hand;" ONCLICK="document.location='add_url_form.asp';"><IMG SRC="images/new_addweb.gif" BORDER=0 ALIGN=CENTER ALT="add web site"></TD>
</TR>
</TABLE>
<BR><BR>


	
	
<table align=center width="620" border="1" BGCOLOR=SILVER CELLPADDING=0><TR><TD align="left"><div align="left"></div>
  <form method=post name="frmAddURL" action="enquiries.asp" onSubmit="return CheckForm();">
<table width="100%" border="0" cellspacing="0" cellpadding="1" align="center" bgcolor=silver>
  
	<TR>
	<TD BGCOLOR="#000080">
	<FONT FACE="MS Sans Serif" SIZE=2 COLOR=WHITE>
	<B>&nbsp;Your enquiry - We will respond within 24 hours</B>
	</FONT>
	</TD>
	</TR>  
  
    <tr> 
      <td width="887"> 
        <table width="100%" border="0" align="center" class="normal" height="166" bgcolor="silver" cellpadding="3" cellspacing="0">

			<tr class="arial"> 
			  <td align="right" width="23%" height="14" class="text">Your Name: </td>
			  <td height="14" width="56%"> 
			    <input type="text" name="name" maxlength="45" style="width: 250px;" value="<%=Request("name")%>">
			  </td>
			  <td width="21%" rowspan="9" align="center" valign="top"><table width="120" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td><script type="text/javascript"><!--
google_ad_client = "pub-5530099479620927";
/* 120x240, created 20/07/09 the-search-site enquiries */
google_ad_slot = "6732260091";
google_ad_width = 120;
google_ad_height = 240;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>&nbsp;</td>
                </tr>
              </table></td>
			</tr>


			<tr class="arial"> 
			  <td align="right" width="23%" height="14" class="text">Nature of your enquiry:</td>
			  <td height="14" width="56%"> 
				<SELECT NAME=nature ID=nature SIZE=1 style="width: 250;">
					<% If Request("nature") <> "Please select" And Request("nature") <> "" Then %>
					<OPTION SELECTED VALUE="<%=Request("nature")%>"><%=Request("nature")%></OPTION>
					<% Else %>
					<OPTION VALUE="Please select">Please select</OPTION>
					<% End If %>
					<OPTION VALUE="Accounts">Accounts</OPTION>
					<OPTION VALUE="Sales">Sales</OPTION>
					<OPTION VALUE="Advertising">Advertising</OPTION>
					<OPTION VALUE="Administration">Administration</OPTION>
					<OPTION VALUE="Suggestion">Suggestion</OPTION>
				</SELECT>	
			  </td>
			  </tr>


          <tr class="arial"> 
            <td align="right" width="23%" class="text" height="12">Your e-mail address:</td>
            <td height="12" width="56%"> 
              <input type="text" name="email" maxlength="55" style="width: 250px;" value="<%=Request("email")%>">
            </td>
            </tr>


          <tr class="arial"> 
            <td align="right" width="23%" class="text" height="12">Sales Order No. (if applicable):</td>
            <td height="12" width="56%"> 
              <input type="text" name="order" maxlength="55" style="width: 250px;" value="<%=Request("order")%>">
            </td>
            </tr>


          <tr class="arial"> 
            <td align="right" width="23%" class="text" height="12">Company/Organisation:</td>
            <td height="12" width="56%"> 
              <input type="text" name="company" maxlength="55" style="width: 250px;" value="<%=Request("company")%>">
            </td>
            </tr>


		<tr class="arial"> 
		  <td align="right" width="23%" height="14" class="text">Department:</td>
		  <td height="14" width="56%"> 
			<SELECT NAME=dept ID=dept SIZE=1 style="width: 250;">
				<% If Request("dept") <> "Please select" And Request("dept") <> "" Then %>
				<OPTION SELECTED VALUE="<%=Request("dept")%>"><%=Request("dept")%></OPTION>
				<% Else %>
				<OPTION VALUE="Please select">Please select</OPTION>
				<% End If %>
				<OPTION VALUE="Accounts">Accounts</OPTION>
				<OPTION VALUE="Public relations">Public relations</OPTION>
				<OPTION VALUE="Administration">Administration</OPTION>
				<OPTION VALUE="Webmaster">Webmaster</OPTION>
				<OPTION VALUE="General enquiries">General enquiries</OPTION>
			</SELECT>	
		  </td>
		  </tr>

          <tr class="arial"> 
            <td align="right" width="23%" class="text" height="12">Country:</td>
            <td height="12" width="56%"> 
			<SELECT NAME=country ID=country SIZE=1 style="width: 250;">
			<% If Request("country") <> "All countries" And Request("country") <> "" Then %>
				<OPTION SELECTED VALUE="<%=Request("country")%>"><%=Request("country")%></OPTION>
			<% Else %>				
				<SCRIPT src="countries.htm"></SCRIPT>
			<% End If %>
			</SELECT>	
            </td>
            </tr>


          <tr class="arial"> 
            <td align="right" valign=top width="23%" class="text" height="12" NOWRAP>Your enquiry:</td>
            <td height="12" width="56%"> 
              <TEXTAREA name="enquiry" rows=6 style="width: 250px;"><%=MyEnquiry%></TEXTAREA>
            </td>
            </tr>

          <tr> 
            <td valign="top" align="right" height="2" width="23%" class="arial">&nbsp; </td>
            <td height="2" width="56%"> 
              <p> 
                <input type="reset" name="Reset" value="Clear" style="width: 123px;">
                <input type="submit" name="Submit" value="Submit" style="width: 123px;">
              </p>
            </td>
            </tr>
          <tr>
            <td height="2" colspan="3" align="right" valign="top" class="arial"><script type="text/javascript"><!--
google_ad_client = "pub-5530099479620927";
/* 468x60, created 20/07/09 the-search-site enquiries */
google_ad_slot = "1356842966";
google_ad_width = 468;
google_ad_height = 60;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>&nbsp;</td>
            </tr>

        </table>
      </td>
    </tr>
    
  </table>
</form>
</TD></TR></TABLE>

<CENTER><BR>
<% If strBrowserID <> "" Then %>
	<FONT FACE=Verdana SIZE=2 COLOR=BLUE>
	<B>Thank you for your enquiry, this has been sent to our team.</B><BR>
	Please note that in the interests of security your computer id has been logged (<%=strBrowserID%>)
<% End If %>


<TABLE BORDER=0  WIDTH=900 HEIGHT=50 ALIGN=CENTER><TR>
<TD ALIGN=CENTER STYLE="cursor: hand;" ONCLICK="document.location='add_url_form.asp';"><FONT FACE=Verdana COLOR=GRAY SIZE=1><B>Submit Web Site</TD>
<TD ALIGN=CENTER STYLE="cursor: hand;" ONCLICK="document.location='add_business_form.asp';"><FONT FACE=Verdana COLOR=GRAY SIZE=1><B>Add Business</TD>
<TD ALIGN=CENTER STYLE="cursor: hand;" ONCLICK="document.location='advertising.htm';"><FONT FACE=Verdana COLOR=GRAY SIZE=1><B>Advertise</TD>
<TD ALIGN=CENTER STYLE="cursor: hand;" ONCLICK="document.location='logos.htm';"><FONT FACE=Verdana COLOR=GRAY SIZE=1><B>Use Our Search Results</TD>
<TD ALIGN=CENTER STYLE="cursor: hand;" ONCLICK="document.location='sitemap.htm';"><FONT FACE=Verdana COLOR=GRAY SIZE=1><B>Site Map</TD>
<TD ALIGN=CENTER STYLE="cursor: hand;" ONCLICK="javascript:terms();"><FONT FACE=Verdana COLOR=GRAY SIZE=1><B>Terms & Conditions</TD>
<TD ALIGN=CENTER STYLE="cursor: hand;" ONCLICK="this.style.behavior='url(#default#homepage)'; this.setHomePage('http://www.the-search-site.com');"><FONT FACE=Verdana COLOR=GRAY SIZE=1><B>Add To Favourites</TD>
<TD ALIGN=CENTER STYLE="cursor: hand;"><FONT FACE=Verdana COLOR=GRAY SIZE=1><A href="mailto:enquiries@the-search-site.com" STYLE="text-decoration: none;"><FONT FACE=Verdana COLOR=GRAY SIZE=1><B>Contact Us</A></TD>
<TD ALIGN=CENTER STYLE="cursor: hand;" ONCLICK="document.location='news.asp';"><FONT FACE=Verdana COLOR=GRAY SIZE=1><B>News</TD>
<TR></TABLE>
<CENTER>
<FONT FACE=Verdana COLOR=GRAY SIZE=1><B>Powered by Woolfcom SearchMonster Algorithmic Technologies&nbsp;&copy;</FONT><BR><BR>

<FONT FACE="Arial" SIZE=1 COLOR=GRAY>
www.the-search-site.com<BR>
Tel: 09063 020 888 (UK enquiries only)<BR>

<IMG border=0 width=1 height=1 src="images/blank.gif" ALT="the search site.com, high speed searching for the Internet, with no frills. Make us your preferred search engine, and see the difference! Search, engine, categories, where, searching, browse, find, homepage, help, information, news, weather, sport, business, money, shopping, travel, entertainment, women, education, finance">

</body>
</html>
<%
'Close Server Objects
Set strCon = Nothing
Set adoCon = Nothing
Set rs = Nothing
%>