CreateRecordset (0x80004005) Error

khan · Aug 15, 2005

Error Type:
CreateRecordset (0x80004005)
Unspecified error
/finalsite/SearchResults.asp, line 47

this is my code can any one help plz why I am getting ths error

<html>

<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>St. Peter's Search Results Page</title>
</head>

<body>
<%
Dim sSearchString
Dim oQuery
Dim sCatalogue

'sSearchString = Request.Form("query")
'sCatalogue = Request.form("manual")

vmyText=request.form("query")
vmyText_Arr=split(vmyText," ",-1,1)

for x=0 to ubound(vmyText_Arr)
if trim(vmyText_Arr(x))>"" then
'Response.Write "<hr>vmyText_Arr(" & x & ").." & vmyText_Arr(x)
IF vQueryStr<" " THEN
vQueryStr = vmyText_Arr(x)
ELSE
vQueryStr = vQueryStr & " OR " & vmyText_Arr(x)
END IF
end if
next

SEARCH_CATALOG = "english1" 'remember to change this
%>
<%
Set oQuery = Server.CreateObject("IXSSO.Query")

oQuery.Catalog = SEARCH_CATALOG
'oQuery.Query = "@all " & sSearchString & " AND NOT #path *downloads*
AND NOT #path *images* AND NOT #filename *.class AND NOT #filename
*.asa AND NOT #filename *.css AND NOT #filename *postinfo.html"
oQuery.Query = "@all " & vQueryStr & " AND NOT #filename *.asp AND NOT
#filename *.doc AND NOT #filename *.ldb AND NOT #filename *.ppt AND NOT
#filename *.txt AND NOT #filename *.js AND NOT #filename *.htm AND NOT
#filename *.xls AND NOT #path """
oQuery.MaxRecords = 200
oQuery.SortBy = "rank[d]"
oQuery.Columns = "DocAuthor, Vpath, doctitle, FileName, Path, Write,
Size, Rank, Create, Characterization, DocCategory"
Set oRS = oQuery.CreateRecordSet("nonsequential")
%>
<%
If oRS.EOF Then
Response.Write "Sorry, no pages were found for the query " &
vQueryStr & ""
response.write " <input type='button' name='back' value='Search
Again' onclick='history.back();' language='javascript'>"
Else
Do While Not oRS.EOF

Response.write "FileName: <a href=""" & oRS("vpath") & """
target=""_blank"">" & oRS("FileName") & "</a> "
' Response.write "doctitle: " & oRS("doctitle") & " "
Response.write "path: " & oRS("Vpath") & " "
'Response.write "Size: " & oRS("Size") & " "
'Response.write "Create: " & oRS("Create") & " "
'Response.write "Write: " & oRS("Write") & " "
Response.write "Characterization: " & oRS("Characterization") &
"<hr>"

oRS.MoveNext
Loop
End If
%>
<%
Set oRS = nothing
Set oQuery = nothing
%>
</body>
</html>

Curt_C [MVP] · Aug 15, 2005

khan said:
Error Type:
CreateRecordset (0x80004005)
Unspecified error
/finalsite/SearchResults.asp, line 47

this is my code can any one help plz why I am getting ths error

<html>

<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>St. Peter's Search Results Page</title>
</head>

<body>
<%
Dim sSearchString
Dim oQuery
Dim sCatalogue

'sSearchString = Request.Form("query")
'sCatalogue = Request.form("manual")

vmyText=request.form("query")
vmyText_Arr=split(vmyText," ",-1,1)

for x=0 to ubound(vmyText_Arr)
if trim(vmyText_Arr(x))>"" then
'Response.Write "<hr>vmyText_Arr(" & x & ").." & vmyText_Arr(x)
IF vQueryStr<" " THEN
vQueryStr = vmyText_Arr(x)
ELSE
vQueryStr = vQueryStr & " OR " & vmyText_Arr(x)
END IF
end if
next

SEARCH_CATALOG = "english1" 'remember to change this
%>
<%
Set oQuery = Server.CreateObject("IXSSO.Query")

oQuery.Catalog = SEARCH_CATALOG
'oQuery.Query = "@all " & sSearchString & " AND NOT #path *downloads*
AND NOT #path *images* AND NOT #filename *.class AND NOT #filename
*.asa AND NOT #filename *.css AND NOT #filename *postinfo.html"
oQuery.Query = "@all " & vQueryStr & " AND NOT #filename *.asp AND NOT
#filename *.doc AND NOT #filename *.ldb AND NOT #filename *.ppt AND NOT
#filename *.txt AND NOT #filename *.js AND NOT #filename *.htm AND NOT
#filename *.xls AND NOT #path """
oQuery.MaxRecords = 200
oQuery.SortBy = "rank[d]"
oQuery.Columns = "DocAuthor, Vpath, doctitle, FileName, Path, Write,
Size, Rank, Create, Characterization, DocCategory"
Set oRS = oQuery.CreateRecordSet("nonsequential")
%>
<%
If oRS.EOF Then
Response.Write "Sorry, no pages were found for the query " &
vQueryStr & ""
response.write " <input type='button' name='back' value='Search
Again' onclick='history.back();' language='javascript'>"
Else
Do While Not oRS.EOF

Response.write "FileName: <a href=""" & oRS("vpath") & """
target=""_blank"">" & oRS("FileName") & "</a> "
' Response.write "doctitle: " & oRS("doctitle") & " "
Response.write "path: " & oRS("Vpath") & " "
'Response.write "Size: " & oRS("Size") & " "
'Response.write "Create: " & oRS("Create") & " "
'Response.write "Write: " & oRS("Write") & " "
Response.write "Characterization: " & oRS("Characterization") &
"<hr>"

oRS.MoveNext
Loop
End If
%>
<%
Set oRS = nothing
Set oQuery = nothing
%>
</body>
</html>

line 47 is?
what is the generated SQL statement? Check it to make sure that's not
the issue also.

Bob Barrows [MVP] · Aug 15, 2005

khan said:
<%
Set oQuery = Server.CreateObject("IXSSO.Query")

You seem to be using some third-party component. You will need to get help
from the supplier of this object. We have no idea what code is contained in
this object.

Bob Barrows

Aaron Bertrand [SQL Server MVP] · Aug 15, 2005

You seem to be using some third-party component.

Index Server.

A little bit of information here, but Ihave not documented 80004005 errors
with index server:
http://www.aspfaq.com/2134

khan · Aug 15, 2005

this is line 47
Set oRS = oQuery.CreateRecordSet("nonsequential")

FX · Aug 16, 2005

Error occurs when not word is requested to be search: you must use an on
error resume next and intercept the error to parse it. This is a known bug
in Indexing Service API

Good luck

Fail to create IXSSO.Query object	9	Jun 8, 2010
vPath cutting off path location name?	2	Jun 14, 2007
Object required error	0	Jun 9, 2007
Error 80004005	4	Oct 4, 2005
Index Server 2.0 wildcard query	1	Sep 11, 2005
Java script on classic ASP page	6	Aug 12, 2008
classi asp	0	Jul 25, 2008
Combo box on ASP page	2	Aug 8, 2008

CreateRecordset (0x80004005) Error

khan

Curt_C [MVP]

Bob Barrows [MVP]

Aaron Bertrand [SQL Server MVP]

khan

FX

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads