<% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide Internet 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 '** '**************************************************************************************** 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, "<", "<") strSearchKeywords = Replace(strSearchKeywords, ">", ">") 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 %> Search the Internet: <% = strSearchKeywords %> Brownlow Consulting is here to help you in any way we can

    
Electrical
Telecomm 
Network
Forum
Guest Book
Chat

ShareBuilder

H
Add site to our Search Engine
Add your Favorite Link
Add Your Favorite Saying
Southern Heritage
Astrology / Tarot Reading
Auctions
Baby Supplies
Buy And Sell Books
Buy Computers
Business Cards
Business-To-Business
Cars and Supplies
Cell Phones / Wireless
Credit Report / Credit Cards
Clothing /Apparel
Codes
Collectibles
Comment/Feedback
Calculators
Electrical
Flowers / Plants
Free Translation
Fun / Free Stuff
Food And Wine
Golf
Georgia Business
Health & Beauty
Hobbies/Toys
House/Building Supplies
Home Plans
HomeWork Help
Jewelry
Jokes
Jobs Links
Legal
Links
Incorporate Company
Loans
Lottery
Investment / Stocks
Insurance
Nascar
Networking
Magazines
Marketing
Music
Outdoors
Pet Supplies
Professional Learning
Programming
Promote Your Web Site
Real Estate Services
Recipes
Rome Georgia
Safety
Satellites
Security / Cameras
Education/ScholarShips
Search The Web
Software
Sports
Support
Supplies
Swimming Pools
Telecommunications
Tools
Travel
Vitamins & Herbs
Wedding Services
Web Hosting
Web Site Design
Whois Domain Name Checker
Domain Name Checker

ShareBuilder

In Association with Amazon.com

 

MoneyCentral Stock Quote       

Enter Symbol(s)

  

 

 

 

Go to msn.com

Search the Web for:
Use Advanced Search

 

 

 

 

 
Internet Search Engine
Submit Web Site       Recently Submitted Web Sites
Search the web   Web Page Search:
">
Search On : All Words Any Words
<% If NOT Request.QueryString("mode") = "" Then 'Display the HTML table with the results status of the search or what type of search it is Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "
" Response.Write vbCrLf & " " Response.Write vbCrLf & " " 'Display that the URL is randomly generated If Request.QueryString("submit") = "Random Search" Then Response.Write vbCrLf & " " 'Display that we are showing a page of the latest URL's indexed ElseIf Request.QueryString("mode") = "new" Then Response.Write vbCrLf & " " 'Display that one of the words entered was to short ElseIf blnSearchWordLenthOK = False Then Response.Write vbCrLf & " " 'Display that there where no matching records found ElseIf rsSearchResults.EOF Then Response.Write vbCrLf & " " 'Else Search went OK so display how many records found Else Response.Write vbCrLf & " " End If 'Close the HTML table with the search status Response.Write vbCrLf & " " Response.Write vbCrLf & "
Random Search for " & strSearchKeywords & ". The " & intRecordsPerPage & " latest URL's Indexed. Searched the web for " & strSearchKeywords & ".    One of the words searched is to short. Searched the web for " & strSearchKeywords & ".    Sorry, no results found. Searched the web for " & strSearchKeywords & ".    Displaying Results " & intRecordDisplayFrom & " - " & intRecordDisplayedTo & " of " & lngTotalRecordsFound & ".
" Response.Write vbCrLf & "
" 'Display the various results 'HTML table to display the search results or an error if there are no results Response.Write vbCrLf & "
" & vbCrLf Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "
" 'Display error message if one of the words is to short If blnSearchWordLenthOK = False And NOT Request.QueryString("mode") = "new" Then 'Write HTML displaying the error Response.Write vbCrLf & " Your Search - " & strSearchKeywords & " - Contained a word with " & intMinuiumSearchWordLength & " letters or less, this is to short to search." Response.Write vbCrLf & "

" Response.Write vbCrLf & " Suggestions:" Response.Write vbCrLf & "
" Response.Write vbCrLf & "
  • Try longer keywords.
  • Make sure all words are spelled correctly.
  • Try different keywords.
  • Try more general keywords.
" 'If no search results found then show an error message ElseIf rsSearchResults.EOF Then 'Write HTML displaying the error Response.Write vbCrLf & " Your Search - " & strSearchKeywords & " - did not match any documents." Response.Write vbCrLf & "

" Response.Write vbCrLf & " Suggestions:" Response.Write vbCrLf & "
" Response.Write vbCrLf & "
  • Make sure all words are spelled correctly.
  • Try different keywords.
  • Try more general keywords.
  • Try fewer keywords.
" Else 'For....Next Loop to display the results from the database For intRecordLoopCounter = 1 to intRecordsPerPage 'If there are no records left to display then exit loop If rsSearchResults.EOF Then Exit For 'Display the details of the URLs found Response.Write vbCrLf & " " & rsSearchResults("Title") & "" Response.Write vbCrLf & "
" Response.Write vbCrLf & " " & rsSearchResults("Description") Response.Write vbCrLf & "
" Response.Write vbCrLf & " Average rating based on " & CLng(rsSearchResults("No_of_ratings")) & " votes  -  Rate Link  -  Hits " & CInt(rsSearchResults("Hits")) & "  -  " & Replace(rsSearchResults("URL"), "http://", "") & "" Response.Write vbCrLf & "

" 'Move to the next record in the database rsSearchResults.MoveNext 'Loop back round Next End If 'Close the HTML table displaying the results Response.Write vbCrLf & "
" 'If there are more pages to display then add a title to the other pages If intRecordPositionPageNum > 1 OR NOT rsSearchResults.EOF AND blnSearchWordLenthOK = True Then 'Display an HTML table with links to the other search results Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "
" Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "
" 'If there are more pages to display then add a title to the other pages If intRecordPositionPageNum > 1 or NOT rsSearchResults.EOF Then Response.Write vbCrLf & " Results Page:  " End If 'If the page number is higher than page 1 then display a back link If intRecordPositionPageNum > 1 Then Response.Write vbCrLf & " << Prev  " End If 'If there are more pages to display then display links to all the search results pages If intRecordPositionPageNum > 1 or NOT rsSearchResults.EOF Then 'Loop to diplay a hyper-link to each page in the search results For intLinkPageNum = 1 to lngTotalNumPages 'If the page to be linked to is the page displayed then don't make it a hyper-link If intLinkPageNum = intRecordPositionPageNum Then Response.Write vbCrLf & " " & intLinkPageNum Else Response.Write vbCrLf & "  " & intLinkPageNum & "  " End If Next End If 'If it is Not the End of the search results than display a next link If NOT rsSearchResults.EOF then Response.Write vbCrLf & "  Next >>" End If 'Finsh HTML the table Response.Write vbCrLf & "
" Response.Write vbCrLf & "
" Response.Write vbCrLf & "
" End If End If 'Close Server Objects Set rsSearchResults = Nothing Set strCon = Nothing Set adoCon = Nothing %>
Submit Web Site       Recently Submitted Web Sites <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write(" Powered By - www.webwizguide.info") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>
 
 
Web Wiz Guide!
 

Brownlow Consulting © 2002 Email: brownlowconsulting@brownlows.net