<font face='Verdana'></font id='Verdana'><font color=blue></font id=blue>
We have an IIS indexer but need to utilize it through Dreamweaver pages.
Does Dreamweaver have a built in function for a search engine? One of
my associates has been looking at the IIS indexer, but it has to be utilized by a page created through DW. He doesn't know the details but he thinks the starting point will be the DW page.
Do you know where to start in DW MX?

I had a lot of fun doing exactly this...

I used the Microsoft Indexing service and needed to build a search and results page. There is nothing in MX as such but you can obviously use it to hand code the page.

I have some sample code here, it is pretty heavy going but i will help if you need it. Contact me via email for assistance...

&lt;%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%&gt;

&lt;% 'Obtain keyword from URL
Dim sSearchString
Dim oQuery

sSearchString = Request.Querystring("QU"

'Specify what the catalogue name is on the Index Service
Const SEARCH_CATALOG = "Enter the name of your catalog here"
%&gt;

&lt;% 'Create query and set recordset
Set oQuery = Server.CreateObject("IXSSO.Query"

oQuery.Catalog = SEARCH_CATALOG
oQuery.Query = "@all " & sSearchString & " AND NOT #path *tpl* AND NOT #path _* AND NOT #path *scripts* AND NOT #path *images* AND NOT #path *app* AND NOT #filename *.class AND NOT #path *publicity* AND NOT #path *vti* AND NOT #filename *.asa AND NOT #filename *.css AND NOT #filename *.txt AND NOT ukconnect_template_ver2.asp AND NOT #filename *script.asp"
oQuery.MaxRecords = 200
oQuery.SortBy = "rank[d], HitCount[d]"
oQuery.Columns = "DocAuthor, vpath, DocTitle, docByteCount, DocAppName, HitCount, FileName, Path, Write, Size, Rank, Create, Characterization, DocCategory"

Set oRS = oQuery.CreateRecordSet("nonsequential"

'Get total number of records returned.
Dim strNoRecords
strNoRecords = oRS.recordcount
%&gt;

&lt;HTML&gt;
&lt;HEAD&gt;
&lt;TITLE&gt;Search Results&lt;/TITLE&gt;


&lt;SCRIPT TYPE="text/javascript"&gt;


function checkform() {


var strQU=document.frmSearch.QU

if ((strQU.value==null)||(strQU.value=="")
{
alert("Please enter a keyword before starting the search"
strQU.focus()
return false
}


return true
}

&lt;/script&gt;
&lt;/HEAD&gt;
&lt;BODY MARGINWIDTH="0" MARGINHEIGHT="0"&gt;

&lt;h1&gt;search results &lt;/h1&gt;
&lt;table width="95%" border="0"&gt;
&lt;tr&gt;
&lt;td width="12%"&gt;&nbsp;&lt;/td&gt;
&lt;td width="88%"&gt;
&lt;form method="Get" ONSUBMIT="return checkform();" action="ukconnect_search_results.asp" name="frmSearch"&gt;
&lt;p&gt;
&lt;input name="QU" type="text" value size="20" maxlength="255"&gt;
&lt;input type="submit" value="Search" name="B1"&gt;

&lt;/p&gt;
&lt;/form&gt;
&lt;p&gt;Your search for &lt;em&gt;&lt;font color="#CC0033"&gt;&lt;strong&gt;&lt;%=Request.Querystring("QU"%&gt; &lt;/strong&gt;&lt;/font&gt;&lt;/em&gt;matched &lt;%=strNoRecords%&gt; documents.&lt;br&gt;
&lt;% If Not oRS.EOF Then %&gt;
Results are listed by relevance.&lt;br&gt;
&lt;% End If %&gt;

&lt;/p&gt;

&lt;p&gt;
&lt;% 'If no results, show message
If oRS.EOF Then
nomatches
Else 'If search returns results, repeat through each record
Do While Not oRS.EOF

Dim strvpath, strFileName, strDescription, strRank, strDocTitle, strSize, strLastMod, strHitCount, strAppWritten
strvpath = oRS("vpath" 'Full path of file
strFileName = oRS("FileName" 'Name of file
strDescription = oRS("Characterization" 'Meta Description or Index Service generated text
strRank = oRS("Rank" / 10 & "%" 'Display percentage of accuracy
strDocTitle = oRS("doctitle" 'Title of Doc if HTML file. Taken from the &lt;Title&gt; tag
strSize = oRS("Size" & " bytes" 'Size in bytes of doc
strLastMod = FormatDateTime(oRS("Write", 1) 'Date of last modification
strHitCount = oRS("HitCount" 'No of times that the keyword was found
strAppWritten = oRS("DocAppName" 'Name of the application the file was created with
%&gt;
&lt;!-- Write results to the page --&gt;
&lt;% 'If the document has no Title or it is the default Enter Title and the doc is not a word doc (word docs will not show doctitle) then display the filename in its place.
If Not oRS("DocTitle" = "" AND Not oRS("DocTitle" = "Enter Application Title Here - Enter Page Title Here" AND Not oRS("DocTitle" = "Untitled Document" AND Not oRS("DocAppName" = "Microsoft Word 9.0" AND Not oRS("DocAppName" = "Microsoft Word 8.0" AND Not oRS("DocAppName" = "Microsoft Word 7.0" AND Not oRS("DocAppName" = "Microsoft Word 6.0" AND Not oRS("DocAppName" = "Microsoft Word 5.0" Then %&gt;
&lt;a href="&lt;%=strvpath%&gt;"&gt;&lt;%=strDocTitle%&gt;&lt;/a&gt;
&lt;% Else %&gt;
&lt;a href="&lt;%=strvpath%&gt;"&gt;&lt;%=strFileName%&gt;&lt;/a&gt;
&lt;% End IF %&gt;
(&lt;%=strRank%&gt<img src=../images/dmxzone/forum/icon_smile_wink.gif border=0 align=middle>&lt;br&gt;
&lt;% 'If there is no Meta Description or Index service has not created a description show 'no description available' text

If Not strDescription = "" Then %&gt;
&lt;%=strDescription%&gt;
&lt;% Else %&gt;
&lt;br&gt;
[No Description available] &lt;br&gt;
&lt;% End If %&gt;
&lt;br&gt;
&lt;font size="1"&gt;Filename: &lt;%=strFileName%&gt;, Size: &lt;%=strSize%&gt;, Last Modified: &lt;%=strLastMod%&gt;, Hit Count: &lt;font color="#CC0033"&gt;&lt;%=strHitCount%&gt;&lt;/font&gt;&lt;/font&gt; &lt;/p&gt;
&lt;br&gt;
&lt;br&gt;

&lt;% 'Move to next record in recordset results
oRS.MoveNext
Loop
End If
%&gt;
&lt;%
'*******************************************************************************
SUB nomatches ' also includes help on the Index Server Query Language


Response.Write "&lt;tr&gt;" & VbCrLf
Response.Write "&lt;td width=""100"" valign=""top"" align=""right""&gt;&nbsp;&lt;/td&gt;" & VbCrLf
Response.Write "&lt;td width=""600"" valign=""top""&gt;" & VbCrLf
Response.Write "&lt;h3&gt;Exceptions:&lt;/h3&gt;" & VbCrLf & VbCrLf
Response.Write "&lt;b&gt;'Noise' words:&lt;/b&gt;&lt;br&gt;" & VbCrLf
Response.Write "These are common words such as: &lt;font color=""#0066CC""&gt;a&lt;/font&gt;, &lt;font color=""#0066CC""&gt;an&lt;/font&gt;, &lt;font color=""#0066CC""&gt;and&lt;/font&gt;, &lt;font color=""#0066CC""&gt;as&lt;/font&gt; and others. These words will be ignored by the search engine unless they are part of a Boolean (see below) search.&lt;br&gt;" & VbCrLf
Response.Write "&lt;b&gt;Punctuation marks:&lt;/b&gt;&lt;br&gt;" & VbCrLf
Response.Write "Punctuation marks such as: &lt;font color=""#0066CC""&gt;; (semicolon)&lt;/font&gt;, &lt;font color=""#0066CC""&gt;: (colon)&lt;/font&gt;, &lt;font color=""#0066CC""&gt;. (full stop/period)&lt;/font&gt;, &lt;font color=""#0066CC""&gt;, (comma)&lt;/font&gt; and others are ignored by the search engine.&lt;br&gt;" & VbCrLf
Response.Write "&lt;b&gt;Special Characters:&lt;/b&gt;&lt;br&gt;" & VbCrLf
Response.Write "To use specially treated characters such as &lt;font color=""#0066CC""&gt;&&lt;/font&gt;, &lt;font color=""#0066CC""&gt;|&lt;/font&gt;, &lt;font color=""#0066CC""&gt;^&lt;/font&gt;, &lt;font color=""#0066CC""&gt;#&lt;/font&gt;, &lt;font color=""#0066CC""&gt;@&lt;/font&gt;, &lt;font color=""#0066CC""&gt;$&lt;/font&gt;, &lt;font color=""#0066CC""&gt;(&lt;/font&gt;, &lt;font color=""#0066CC""&gt<img src=../images/dmxzone/forum/icon_smile_wink.gif border=0 align=middle>&lt;/font&gt;, in a query, enclose your query in quotation marks (&#8220<img src=../images/dmxzone/forum/icon_smile_wink.gif border=0 align=middle>." & VbCrLf
Response.Write "&lt;br&gt;&lt;br&gt;" & VbCrLf
Response.Write "&lt;h3&gt;Search Help:&lt;/h3&gt;" & VbCrLf
Response.Write "&lt;b&gt;Case:&lt;/b&gt;&lt;br&gt;" & VbCrLf
Response.Write "The search engine is case insensitive so the query ""&lt;font color=""#0066CC""&gt;quality report&lt;/font&gt;"" will return the same results as ""&lt;font color=""#0066CC""&gt;Quality Report&lt;/font&gt;"".&lt;br&gt;" & VbCrLf
Response.Write "&lt;b&gt;Keyword Search:&lt;/b&gt;&lt;br&gt;" & VbCrLf
Response.Write "The query, &lt;font color=""#0066CC""&gt;Quality Report&lt;/font&gt; will return all documents containing the words ""Quality"" and ""Report"". This type of search will return the same results as the Boolean &lt;font color=""#0066CC""&gt;""Quality"" AND ""Report""&lt;/font&gt;.&lt;br&gt;" & VbCrLf
Response.Write "&lt;b&gt;Phrase Search:&lt;/b&gt;&lt;br&gt;" & VbCrLf
Response.Write "The query, &lt;font color=""#0066CC""&gt;""Quality Report""&lt;/font&gt; which will only return documents containing ""Quality Report"".&lt;br&gt;" & VbCrLf
Response.Write "&lt;b&gt;Boolean Searches:&lt;/b&gt;&lt;br&gt;" & VbCrLf
Response.Write "The query, &lt;font color=""#0066CC""&gt;Quality AND NOT Report&lt;/font&gt; will return documents containing ""Quality"" but not ""Report"".&lt;br&gt;" & VbCrLf
Response.Write "The query, &lt;font color=""#0066CC""&gt;Quality AND Report&lt;/font&gt; will return documents containing the words ""Quality"" and ""Report"".&lt;br&gt;" & VbCrLf
Response.Write "The query, &lt;font color=""#0066CC""&gt;Quality OR Report&lt;/font&gt; will return documents containing ""Quality"" and also documents containing ""Report"".&lt;br&gt;" & VbCrLf
Response.Write "&lt;b&gt;Proximity Searches:&lt;/b&gt;&lt;br&gt;" & VbCrLf
Response.Write "The query, &lt;font color=""#0066CC""&gt;Quality NEAR Report&lt;/font&gt; will return documents containing the word ""Quality"" NEAR the word ""Report"".&lt;br&gt;" & VbCrLf
Response.Write "&lt;b&gt;Advanced Searches:&lt;/b&gt;&lt;br&gt;" & VbCrLf
Response.Write "The query &lt;font color=""#0066CC""&gt;@size &gt; 1000&lt;/font&gt; will return all documents with a size greater than 1KB.&lt;br&gt;" & VbCrLf
Response.Write "The query &lt;font color=""#0066CC""&gt;#filename *.doc&lt;/font&gt; will return only word documents.&lt;br&gt;" & VbCrLf
Response.Write "The query &lt;font color=""#0066CC""&gt;@write &gt; 01/2/1 10:00:00&lt;/font&gt; will return only documents modified since the 1st Feb 2001 at 12:00am.&lt;br&gt;" & VbCrLf
Response.Write "The query &lt;font color=""#0066CC""&gt;dis*&lt;/font&gt; will return all documents containing ""pro"" as part of a word, i.e. ""Procedure"", ""Professor"" and so on.&lt;br&gt;" & VbCrLf
Response.Write "&lt;/font&gt;" & VbCrLf
Response.Write "&lt;/td&gt;" & VbCrLf
Response.Write "&lt;/tr&gt;" & VbCrLf


END SUB
'*******************************************************************************
%&gt;

&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;


&lt;/BODY&gt;
&lt;/HTML&gt;

Regards
Vince

Visit my home: www.chez-vince.com

VBScript | ASP | HTML | SQL | Oracle | Hosting