K
khan
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 <i>" &
vQueryStr & "</i>"
response.write "<br><br><input type='button' name='back' value='Search
Again' onclick='history.back();' language='javascript'>"
Else
Do While Not oRS.EOF
Response.write "<b>FileName:</b> <a href=""" & oRS("vpath") & """
target=""_blank"">" & oRS("FileName") & "</a><br>"
' Response.write "<b>doctitle:</b> " & oRS("doctitle") & "<br>"
Response.write "<b>path:</b> " & oRS("Vpath") & "<br>"
'Response.write "<b>Size:</b> " & oRS("Size") & "<br>"
'Response.write "<b>Create:</b> " & oRS("Create") & "<br>"
'Response.write "<b>Write:</b> " & oRS("Write") & "<br>"
Response.write "<b>Characterization:</b> " & oRS("Characterization") &
"<hr>"
oRS.MoveNext
Loop
End If
%>
<%
Set oRS = nothing
Set oQuery = nothing
%>
</body>
</html>
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 <i>" &
vQueryStr & "</i>"
response.write "<br><br><input type='button' name='back' value='Search
Again' onclick='history.back();' language='javascript'>"
Else
Do While Not oRS.EOF
Response.write "<b>FileName:</b> <a href=""" & oRS("vpath") & """
target=""_blank"">" & oRS("FileName") & "</a><br>"
' Response.write "<b>doctitle:</b> " & oRS("doctitle") & "<br>"
Response.write "<b>path:</b> " & oRS("Vpath") & "<br>"
'Response.write "<b>Size:</b> " & oRS("Size") & "<br>"
'Response.write "<b>Create:</b> " & oRS("Create") & "<br>"
'Response.write "<b>Write:</b> " & oRS("Write") & "<br>"
Response.write "<b>Characterization:</b> " & oRS("Characterization") &
"<hr>"
oRS.MoveNext
Loop
End If
%>
<%
Set oRS = nothing
Set oQuery = nothing
%>
</body>
</html>