Hi,

I get the following message when I try to look at my page;

Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support bookmarks. This may be a limitation of 
the provider or of the selected cursortype.


Why is this happening? I need my page to both page the records AND display 
them horizontally in rows/columns, which I have managed. Now i'm trying to 
get it to work with my stored procedure which divides them into 
departments. 

Any help would be appreciated, this is driving me nuts!

Karen

This is my code: 


<% 


set dbDepartment = server.createobject("adodb.connection")
set rsDepartment = server.CreateObject("adodb.recordset")
dbDepartment.open "Provider=SQLOLEDB.1;uid=sa;pwd=;database=mounts;"
sql = "execute sp_RetrieveDept " & request("idDept")
set rsDepartment = dbDepartment.Execute(sql)

Category = rsDepartment("Category")
CatID = rsDepartment("CatID")

session("LastIDDept") = request("idDept")

%>

<CENTER><FONT size="4"><B><%=Categogy%></b></font><BR><BR></CENTER>
<%=Category%>  Select a product:<BR><BR>

<% 

    Const NumPerPage = 15
    Dim CurPage
    If Request.QueryString("CurPage") = "" then
       CurPage = 1 
    Else
        CurPage = Request.QueryString("CurPage")
    End If


set dbProducts = server.createobject("adodb.connection")
dbProducts.open "Provider=SQLOLEDB.1;uid=sa;pwd=;database=mounts;"
set rsProducts = server.CreateObject("adodb.recordset")

rsProducts.CursorLocation = adUseClient
rsProducts.CursorType= adOpenStatic
rsProducts.CacheSize = NumPerPage
	
sql = "execute sp_RetrieveDeptProducts " & request("idDept")

set rsProducts = dbProducts.Execute(sql)

rsProducts.MoveFirst
rsProducts.PageSize = NumPerPage
Dim TotalPages
TotalPages = rsProducts.PageCount
rsProducts.AbsolutePage = CurPage

chrProductName = rsProducts("mount")
chrProductImage = rsProducts("ImageSmall")
idProduct = rsProducts("MountID")

Dim count
dim cellString

%>

Karen,

If you used .GetRows and placed the results from your SQL into an Array, you
can then close the connection to the database and page back and forth in
your array as much as you'd like without going back to the DB each time.


'--- Using GetRows -----

If not objRST.EOF then
  arrResults = objRST.GetRows
End if

If isArray(arrResults) then
  intRecordCount = UBound(arrResults, 2) + 1
End if

objRST.Close


'-------------------------


Sorry this isn't an answer to your immediate question, but it may help you.


Regards
Craig.



-----Original Message-----
From: btdevil@y... [mailto:btdevil@y...]
Sent: 03 December 2002 15:01
To: ASP_ADO_RDS
Subject: [asp_ado_rds] Help! Recordset does not support bookmarks error!


Hi,

I get the following message when I try to look at my page;

Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support bookmarks. This may be a limitation of
the provider or of the selected cursortype.


Why is this happening? I need my page to both page the records AND display
them horizontally in rows/columns, which I have managed. Now i'm trying to
get it to work with my stored procedure which divides them into
departments.

Any help would be appreciated, this is driving me nuts!

Karen

This is my code:


<%


set dbDepartment = server.createobject("adodb.connection")
set rsDepartment = server.CreateObject("adodb.recordset")
dbDepartment.open "Provider=SQLOLEDB.1;uid=sa;pwd=;database=mounts;"
sql = "execute sp_RetrieveDept " & request("idDept")
set rsDepartment = dbDepartment.Execute(sql)

Category = rsDepartment("Category")
CatID = rsDepartment("CatID")

session("LastIDDept") = request("idDept")

%>

<CENTER><FONT size="4"><B><%=Categogy%></b></font><BR><BR></CENTER>
<%=Category%>  Select a product:<BR><BR>

<%

    Const NumPerPage = 15
    Dim CurPage
    If Request.QueryString("CurPage") = "" then
       CurPage = 1
    Else
        CurPage = Request.QueryString("CurPage")
    End If


set dbProducts = server.createobject("adodb.connection")
dbProducts.open "Provider=SQLOLEDB.1;uid=sa;pwd=;database=mounts;"
set rsProducts = server.CreateObject("adodb.recordset")

rsProducts.CursorLocation = adUseClient
rsProducts.CursorType= adOpenStatic
rsProducts.CacheSize = NumPerPage

sql = "execute sp_RetrieveDeptProducts " & request("idDept")

set rsProducts = dbProducts.Execute(sql)

rsProducts.MoveFirst
rsProducts.PageSize = NumPerPage
Dim TotalPages
TotalPages = rsProducts.PageCount
rsProducts.AbsolutePage = CurPage

chrProductName = rsProducts("mount")
chrProductImage = rsProducts("ImageSmall")
idProduct = rsProducts("MountID")

Dim count
dim cellString

%>
To unsubscribe send a blank email to %%email.unsub%%


_____________________________________________________________________
Please contact I.T. Support if you have received this email in error.
This e-mail has been scanned for all viruses by Star Internet.
_____________________________________________________________________


_____________________________________________________________________
Kingfield Heath Ltd. Email Disclaimer

Confidentiality : This email and its attachments are intended for the
above-named only and may be confidential. If they have come to you in
error you must take no action based on them, nor must you copy or
show them to anyone; please reply to this email and highlight the
error.

Security Warning : Please note that this email has been created in
the knowledge that the internet is not a 100% secure communications
medium. We advise that you understand and observe this lack of
security when emailing us.

Viruses : Although we have taken steps to ensure that this email and
attachments are free from any virus, we advise that, in keeping with
good computing practice, the recipient should ensure they are
actually virus free.
_____________________________________________________________________

hi to all,

Im gonna create an online Questionnaire, which would require
single and multiple answers to each question. This is my tables:
-------------
table users:
id
user
type
-------------
table question:
id
questions
-------------
table question_class:
id
description
set(which questions are to be inserted)
--------------
table answer:
user
question
answer

problem here is if the questions requires a checkbox which is multiple, how
can i do this???