CreateRecordset (0x80004005) Error

Discussion in 'ASP General' started by khan, Aug 15, 2005.

  1. khan

    khan Guest

    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>
     
    khan, Aug 15, 2005
    #1
    1. Advertising

  2. khan

    Curt_C [MVP] Guest

    khan wrote:
    > 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>
    >


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

    --
    Curt Christianson
    site: http://www.darkfalz.com
    blog: http://blog.darkfalz.com
     
    Curt_C [MVP], Aug 15, 2005
    #2
    1. Advertising

  3. khan wrote:
    > <%
    > 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
    --
    Microsoft MVP -- ASP/ASP.NET
    Please reply to the newsgroup. The email account listed in my From
    header is my spam trap, so I don't check it very often. You will get a
    quicker response by posting to the newsgroup.
     
    Bob Barrows [MVP], Aug 15, 2005
    #3
  4. > 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



    "Bob Barrows [MVP]" <> wrote in message
    news:...
    > khan wrote:
    >> <%
    >> Set oQuery = Server.CreateObject("IXSSO.Query")
     
    Aaron Bertrand [SQL Server MVP], Aug 15, 2005
    #4
  5. khan

    khan Guest

    this is line 47
    Set oRS = oQuery.CreateRecordSet("nonseq­uential")
     
    khan, Aug 15, 2005
    #5
  6. khan

    FX Guest

    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

    "khan" <> a écrit dans le message de news:
    ...
    > 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>
    >
     
    FX, Aug 16, 2005
    #6
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Shihao Png via DotNetMonster.com

    The dread COMException (0x80004005): Unspecified error...

    Shihao Png via DotNetMonster.com, Feb 25, 2005, in forum: ASP .Net
    Replies:
    2
    Views:
    10,414
    Shihao Png via DotNetMonster.com
    Feb 25, 2005
  2. Jim McGivney
    Replies:
    7
    Views:
    6,682
  3. mamin
    Replies:
    1
    Views:
    3,467
    elcon
    Jul 28, 2010
  4. Bill Youngman
    Replies:
    1
    Views:
    203
    Bill Youngman
    Oct 11, 2005
  5. ash

    CreateRecordSet("nonsequential")

    ash, Sep 29, 2006, in forum: ASP General
    Replies:
    0
    Views:
    117
Loading...

Share This Page