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 "Book id | " & RsBook("researchbookid") & " |
"
Response.Write "Category | Research Book |
"
Response.Write "Title | " & RsBook("Title") & " |
"
Response.Write "Chapter Title | " & RsBook("ChapterTitle") & " |
"
Response.Write "Author 1 | " & RsBook("Author1") & " |
"
Response.Write "Author 2 | " & RsBook("Author2") & " |
"
Response.Write "Author 3 | " & RsBook("Author3") & " |
"
Response.Write "Author 4 | " & RsBook("Author4") & " |
"
Response.Write "Editor 1 | " & RsBook("Editor1") & " |
"
Response.Write "Editor 2 | " & RsBook("Editor2") & " |
"
Response.Write "Editor 3 | " & RsBook("Editor3") & " |
"
Response.Write "Publisher | " & RsBook("Publisher") & " |
"
Response.Write "Status | " & RsBook("status") & " |
"
Response.Write "Research Area | " & request.querystring("researcharea") & " |
"
Response.Write "ISBN | " & RsBook("Isbn") & " |
"
Response.Write "Date Published | " & RsBook("Datepublished") & " |
"
Response.Write "Email | " & RsBook("username") & " |
"
Response.Write "
"
CN1.close
CN6.close
End If
--------
Hope you can help.
Thanks
Comments
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