hi everybody,
i have a problem with the indexing service when i have to do a second search in my internal portal, the first search is always good but if i want to searh another word the following message appears:
CreateRecordset error '8001010e'
The application called an interface that was marshalled for a different thread.
My code:
<%
dim numerr, abouterr
dim str_search
dim Q
Dim Rs
dim strQuery
str_search = Request.Form("CompSearch")
Response.Write "Stringa " & str_search
'On Error Resume Next
If str_search <>"" then
Set Q=Server.CreateObject("ixsso.Query")
Q.Query = str_search
Q.Catalog="Catalogo_Portale"
Q.SortBy="rank[d]"
Q.Columns="doctitle, filename, create, size, characterization, vpath"
Q.MaxRecords=5
Response.write "ciao1"
'On Error Resume Next
Set Rs = Q.CreateRecordset("nonsequential")
Q.Reset
set Q = Nothing
if Rs.EOF then
Response.Write "Mi dispiace. Nessun risultato trovato."
Response.Write " FILENAME " & Rs.Fields("filename")
else
Response.Write "<p><strong>"
Response.Write Rs.RecordCount
Response.Write "</strong> risultati trovati:</p>"
Do While Not Rs.EOF
Response.Write "<strong>"
Response.Write ("<a target=_blank href="& Rs.Fields("vpath")& ">" & Rs.Fields("doctitle")& ": " & Rs.Fields("filename")& "</a>")
response.Write "</strong> "
Response.Write "<br>"
Response.Write "Create:"
Response.Write Rs.Fields("create")
Response.Write "<br>"
Response.Write "Size:"
Response.Write Rs.Fields("size")
Response.Write "<br>"
Response.Write "<I>"
Response.Write Rs.Fields("vpath")
response.Write "</I> "
Response.Write "<br><br>"
' Spacing between results
Rs.MoveNext
Loop
Rs.close
set Rs = Nothing
end if
end if
if Err.number <> 0 Then
Response.Write "An Error has occured! Error number " & Err.number & " of_ the type: " & Err.description & Err.Column & Err.Line & Err.Source
End If
'Response.Write "Your Session ID is " & Session.SessionID
%>
can you help me?
thanks