|
May not be the right place to ask this question. Thought I'd give it a shot. I've gotten the search to work. Im having trouble getting the links to ASP pages to work. Its got something to do with the way I'm reading the server address to the page(i think).
Here is an example Link to page from browser address bar: http://rehab_test/estate_mangement.asp - http://rehab_test/estate_mangement.asp
Link to same page from search results: file://fldoiremrhbfp4/intranet/test/intranet/estate_mangemen t.asp
Here is the code used to read the results to the page.
<% Dim strSearch
Set rsSearch = Server.CreateObject("ADODB.Recordset")
' create the connection string strConn = "Provider=MSIDXS; Data Source=Rehab_Test"
' Build our Query: Hide admin page and FPSE pages strQuery = "(" & strQuery & ")" _ & " AND NOT #filename = *admin*" _ & " AND NOT #path *\_vti_*"
' construct the search string strSearch = "SELECT DocTitle, Path, FileName, Characterization, Size" & _ " FROM SCOPE ()" & _ " WHERE CONTAINS ('" & Request.Form("txtSearchFor") & "')"
' open the recordset on the search rsSearch.Open strSearch, strConn
' show what's been searched for While Not rsSearch.EOF Response.Write "<SPAN CLASS='document'>" & rsSearch("DocTitle") & "</SPAN><BR>" & _ rsSearch("Characterization") & "<BR>" & _ "<A HREF='" & rsSearch("Path") & "'>" & rsSearch("FileName") & "</A>" & _ " (" & rsSearch("Size") & " bytes)<P>" rsSearch.MoveNext Wend Function PathToVpath(strPath) Const strWebRoot = "d:\intranet\live\"
Dim strTemp
strTemp = strPath
strTemp = Replace(strTemp, strWebRoot, "\") strTemp = Replace(strTemp, "\", "/")
PathToVpath = strTemp End Function
' tidy up rsSearch.Close Set rsSearch = Nothing %>
Thanks for any help you can give.
|