error '80020009'

Hi im getting the following error message,

error '80020009'
Exception occurred.

/admin/response-keywordresearch.asp, line 307

It points to the following line,

strSQL6="Select Members.Instituteid,Institute from members, ResearchInstitutes where Members.Instituteid=ResearchInstitutes.Instituteid AND Members.memberid='" & Rsbook("memberid") & "';"

i have posted the whole of the code,

---------------
Response.Write "Full Search Result - Research Book Items

"
Dim RsBook
strDSN1=***
Set CN1=Server.CreateObject("ADODB.Connection") 'make a connection
CN1.Open ***'open connection
Set RsBook=Server.CreateObject("ADODB.Recordset") 'create a recordset

strSQL1="select b.researchbookid,b.memberid,b.title,b.ChapterTitle,b.author1,b.author2,b.author3,b.author4,b.editor1,b.editor2,b.editor3,b.publisher,p.status,b.researchareaid,b.isbn,b.datepublished, m.username from researchbooks b,publishingstatus p, members m where Researchbookid= '" & category & "' AND b.memberid=m.memberid AND b.statusid=p.statusid;"
RsBook.Open strSQL1,CN1

'Response.Write "book mem id:" & RsBook("memberid") & "
"

Dim RsMem
str**=****
Set CN6=Server.CreateObject("ADODB.Connection") 'make a connection
CN6.Open ****'open connection
Set RsMem=Server.CreateObject("ADODB.Recordset") 'create a recordset
strSQL6="Select Members.Instituteid,Institute from members, ResearchInstitutes where Members.Instituteid=ResearchInstitutes.Instituteid AND Members.memberid='" & Rsbook("memberid") & "';"

RsMem.Open strSQL6,CN6

Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""

Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write "
Book id" & RsBook("researchbookid") & "
CategoryResearch Book
Title" & RsBook("Title") & "
Chapter Title" & RsBook("ChapterTitle") & "
Author 1" & RsBook("Author1") & "
Author 2" & RsBook("Author2") & "
Author 3" & RsBook("Author3") & "
Author 4" & RsBook("Author4") & "
Editor 1" & RsBook("Editor1") & "
Editor 2" & RsBook("Editor2") & "
Editor 3" & RsBook("Editor3") & "
Publisher" & RsBook("Publisher") & "
Status" & RsBook("status") & "
Research Area" & request.querystring("researcharea") & "
ISBN" & RsBook("Isbn") & "
Date Published" & RsBook("Datepublished") & "
Email" & RsBook("username") & "
"
CN1.close
CN6.close
End If
--------

Hope you can help.

Thanks

Comments

  • 1st Problem at your connection, you did not specified the connection string and parameter.

    CN1.Open ***'open connection

    2nd Problem, your SQL statement does not comply with T-SQL/ANSI SQL spec:

    strSQL1="select b.researchbookid,b.memberid,b.title,b.ChapterTitle,b.author1,b.author2,b.author3,b.author4,b.editor1,b.editor2,b.editor3,b.publisher,p.status,b.researchareaid,b.isbn,b.datepublished, m.username from researchbooks b,publishingstatus p, members m where Researchbookid= '" & category & "' AND b.memberid=m.memberid AND b.statusid=p.statusid;"
    RsBook.Open strSQL1,CN1


    [size=2]Neo Gigs[/size]
    -----8<-------------------------------
    http://www.geocities.com/gigsvoo/mainpage.html

Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

In this Discussion